Отслеживание нажатых кнопок

11.08.2010, 12:49. **Показов** 1034. **Ответов** 3

Author24 — интернет-сервис помощи студентам

Здравствуйте! Помогите пожалуйста разобраться : на форме есть несколько кнопок, как сделать, чтобы в поле выводилась информация о нажатой кнопке (например ее Caption). Спасибо.

@Teslenko_EA · 11.08.2010, 12:54

Здравствуйте Ninja_G.
создайте подобный код, обрабатывающий нажатие кнопок формы и будет Вам счастье.

Visual Basic

Private Sub Кнопка1_Click()
    Поле0 = Кнопка1.Caption
End Sub
Private Sub Кнопка2_Click()
    Поле0 = Кнопка2.Caption
End Sub
...

Евгений.

11.08.2010, 13:08

Сообщение от Teslenko_EA

Здравствуйте Ninja_G.
создайте подобный код, обрабатывающий нажатие кнопок формы и будет Вам счастье.

Visual Basic

...

Евгений.

Спасибо большое, нужно учить VB

@Волшебник · 30.07.2011, 12:58

Ещё можно так.

Visual Basic

Option Compare Database
Option Explicit
 
Private Sub Form_Open(Cancel As Integer)
Dim i As Integer
Dim str As String
    For i = 1 To 3
    str = "Кнопка" & i
    Me.Controls(str).OnClick = "=Action('" & str & "')"
    Next i
End Sub
 
Function Action(str As String) As Integer
Me![Поле0] = str
'    If (7 = MsgBox("Нажата " & str, 64, "Инфо")) Then
'    End If
End Function

Ninja_G
		1
	Отслеживание нажатых кнопок 11.08.2010, 12:49. Показов 1034. Ответов 3 Метки нет (Все метки) Здравствуйте! Помогите пожалуйста разобраться : на форме есть несколько кнопок, как сделать, чтобы в поле выводилась информация о нажатой кнопке (например ее Caption). Спасибо. Миниатюры

	30.07.2011, 12:58