
Private Sub Command1_Click()
Dim Ctl As Control
For Each Ctl In Controls
If TypeName(Ctl) = "TextBox" and Ctl.Tag="edited" Then
Ctl.Text = Empty
End If
Next
End Sub
Private Sub Command1_Click()
Dim Ctl As Control
For Each Ctl In Controls
If TypeName(Ctl) = "TextBox" Then
If Ctl.Tag="edited" Then
Ctl.Text = Empty
End If
End If
Next
End Sub
If TypeOf Ctl Is TextBox Then
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5