|
|
|
Forum Member
 
участник
Last Login: 10.08.2007 23:01
Сообщ.: 34,
Visits: 253
|
|
Нужно для нескольких texboxoв на форме установить одну и ту же функцию на изменение данных
можно ли как-нибудь объявить в переменных имена texboxoв
Сейчас у меня получается, что для каждого texboxа я пишу почти одно и тоже...
(((
Private Sub txt_chisla_Change()
Dim i As Integer, j As Integer
Dim str As String
j = txt_chisla.SelStart
str = txt_chisla.Text
For i = 1 To Len(str)
If Mid(str, i, 1) Like "[!0-9,.]" Then
str = Left(str, i - 1) & Mid(str, i + 1)
End If
Next i
If str <> txt_chisla.Text Then
txt_chisla = str
txt_chisla.SelStart = j - 1
End If
End Sub
|
|
|
|
|
Supreme Being
участник
Last Login: 13.03.2008 11:35
Сообщ.: 839,
Visits: 8 738
|
|
Private Function fun()
Dim i As Integer, j As Integer
Dim str As String
Dim Поле0 As TextBox
Set Поле0 = ActiveControl
j = Поле0.SelStart
str = Поле0.Text
For i = 1 To Len(str)
If Mid(str, i, 1) Like "[!0-9,.]" Then
str = Left(str, i - 1) & Mid(str, i + 1)
End If
Next i
If str <> Поле0.Text Then
Поле0 = str
Поле0.SelStart = j - 1
End If
End Function
Private Sub txt_chisla_Change()
fun
End Sub
Private Sub txt_chisla1_Change()
fun
End Sub
|
|
|
|