Question

〜我需要制作一个程序，以便我不会一遍又一遍地输入代码

我现在正在文本框中尝试它，但它仍然无法正常工作条件：调用过程时，以当前形式清除文本框

*情形1

模块：

sub cleartext
text1.text=""
end sub

Form1中：

Private Sub Command1_Click()
cleartext
End Sub

错误 - 需要对象

*情形2

模块：

sub cleartext
form1.text1.text=""
end sub

Form1中：

Private Sub Command1_Click()
cleartext
End Sub

没有错误..但我需要在每种形式中使用它

编辑：

模块：

Public Sub ClearText(tb As TextBox)
tb.Text = ""
End Sub

Form1中：

Private Sub Command1_Click()
Call ClearText(Text1)
End Sub

只有我有1个文本框

才有效

它在第二个文本框中不起作用

Answer 1

试试这个：

模块：

Public Sub ClearText(tb as TextBox)
   tb.text=""
End Sub

Form1中：

Private Sub Command1_Click()
   Call ClearText(text1) ' assuming text1 is your form's textbox name
End Sub

对于具有多个文本框控件的表单，您可以循环：

   Private Sub Command1_Click()
    For Each cControl In Me.Controls
       If (TypeOf cControl Is TextBox) Then
          Call ClearText(cControl)
       End If
    Next
   End Sub

在vb6中创建一个过程以清除当前形式的文本框

1 个答案: