功能这个！！

hardwired · 发表于 2008-3-5 06:28:37

嗨，
我有下面的代码，我想知道如何使它成为一个从10个不同的按钮调用它的函数-唯一改变的是块名所在的文本框引用(pick ),但它将被放入每个按钮的click sub。我只是想避免每个按钮都包含这些代码代码0]
.....我以前从未做过函数，当我试图为此设置一个函数时，我试图通过简单地输入函数名从每个按钮调用它，但是它标记了一个错误..

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Bryco · 发表于 2008-3-5 09:59:58

嗨，
正如我所说，我对功能并不热，因为我以前从未创建过一个，只是不时地复制一些表单源，所以请耐心等待，并让我知道如果我编码不正确：

copy

Public Function GETFIXINGBLOCK(FixBlock As AcadObject, PickPoint As Variant)
On Error Resume Next
PICK:
ThisDrawing.Utility.GetEntity FixBlock, PickPoint, "Please select a fixing.."
If Err  0 Then
    Err.Clear
    Exit Function
Else 'Else for error..
    If FixBlock.ObjectName = "AcDbBlockReference" Then 'If block..
        If FixBlock.Name Like "A$C*" Then 'If the block name is "A$C......." (A copied and pasted block)..
            MsgBox "This isn't a true fixing block - It appears to be a copied / pasted block.." & vbCr & "Please pick another instance of it", vbExclamation, "Fixings Chart Creator.."
            GoTo PICK
        Else
            ' Other code to go here later for getting the block attribute values but for now, just the block name..
            GoTo PICKED
        End If
    ElseIf FixBlock.ObjectName  "AcDbBlockReference" Then 'If NOT block..
        ThisDrawing.Utility.Prompt "You may only select a block: "
        GoTo PICK
    End If 'End If for objectname..
End If 'End if for error..
End Sub

....按钮点击的调用如下所示：

copy

Private Sub blockpick1BTN_Click()
    FixingsChartFRM.Hide 'Hide the form..
    GETFIXINGBLOCK
PICKED:
    fx1descTXT.text = FixBlock.Name & ": " & FixBlock.Handle 'Put the block name in the text box..
    FixingsChartFRM.Show 'Show the form..
End Sub

hardwired · 发表于 2008-3-5 12:20:56

据我所知，你不需要函数，你需要一个带有参数的 Sub，其中参数是 TextBox。我用了你的第一个代码：

copy

Sub ForButton(ByRef TB As TextBox)
FixingsChartFRM.Hide 'Hide the form..
On Error Resume Next
PICK:
Dim FixBlock As AcadEntity
Dim PickPoint As Variant
ThisDrawing.Utility.GetEntity FixBlock, PickPoint, "Please select a fixing.."
If Err  0 Then
    Err.Clear
    Exit Sub
Else 'Else for error..
    If FixBlock.ObjectName = "AcDbBlockReference" Then 'If block..
        If FixBlock.Name Like "A$C*" Then 'If the block name is "A$C......." (A copied and pasted block)..
            MsgBox "This isn't a true fixing block - It appears to be a copied / pasted block.." & vbCr & "Please pick another instance of it", vbExclamation, "Fixings Chart Creator.."
            GoTo PICK
        Else
            'ENTER ATTRIBUTE CODE HERE GETTING "FIXDESC" STRING..
        End If
    ElseIf FixBlock.ObjectName  "AcDbBlockReference" Then 'If NOT block..
        ThisDrawing.Utility.Prompt "You may only select a block: "
        GoTo PICK
    End If 'End If for objectname..
End If 'End if for error..
PICKED:
TB.Text = FixBlock.Name & ": " & FixBlock.Handle 'Put the block name in the text box..
FixingsChartFRM.Show 'Show the form..
End Sub