RE: Объявление переменных

Михайло — Mon, 30 Jul 2007 09:56:44 GMT

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

Объявление переменных

w.s. — Sat, 28 Jul 2007 21:13:08 GMT

Нужно для нескольких texboxoв на форме установить одну и ту же функцию на изменение данных
можно ли как-нибудь объявить в переменных имена texboxoв
Сейчас у меня получается, что для каждого texboxа я пишу почти одно и тоже...
(((
[code]
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
[/code]

Релиб / Access / Базы данных / Объявление переменных / Latest Posts

RE: Объявление переменных

Объявление переменных