VPF::Объявление переменных - Форум программистов

wss

Дата 28.7.2007, 23:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 28.7.2007

Репутация: нет
Всего: нет

Нужно для нескольких 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

bopoha

Дата 29.7.2007, 11:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Для этого можно воспользовать структруным программированием. Очень полезно. Т.е. создается модуль, в нем реализуется процедура (если значения не возвращает):

Код


Option Compare Database
Option Explicit

Public Sub MySub(ByRef tb As TextBox)
...
End Function

уже на форме:

Код


Private Sub txt_chisla_Change()
    Call MySub(Me.txt_chisla)
End Sub

Есть вариант прописывать функцию на событии измения как "=Функция()". Но на мой взгляд это менее сопровождаемо. При этом ее нужно реализовывать по другому и получать элемент управления через Screen.ActiveControl.

Это сообщение отредактировал(а) bopoha - 29.7.2007, 11:45

--------------------

Как создавать приложения на MS Access

wss

Дата 29.7.2007, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 28.7.2007

Репутация: нет
Всего: нет

Все таки остановился на варианте "=Функция()"

Код


Private Function TextBoxChange()
    Dim objTextBox As TextBox
    Dim i As Integer, j As Integer
    Dim str As String
    Set objTextBox = Me.ActiveControl

    j = objTextBox.SelStart
    str = objTextBox.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 <> objTextBox.Text Then
        objTextBox = str
        objTextBox.SelStart = j - 1
    End If

End Function

В поле свойства texbox изменение ввожу "=TextBoxChange()"

Это сообщение отредактировал(а) wss - 29.7.2007, 18:40

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »