| Вопрос: Вызов Sub | Добавлено: 05.07.07 06:33 |
Автор вопроса:  BG(Алексей)
|
|
Подскажите пожалуйста, как вызвать
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
........ End Sub из Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
........ End Sub Cпасибо. |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  dNW Вопросов: 30 Ответов: 683 |
Профиль | | #1 | Добавлено: 05.07.07 08:15 |
|
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
btnSave_Click(sender,e) End Sub |
||
|
Номер ответа: 2 Автор ответа: BG(Алексей)Вопросов: 26 Ответов: 295 |
Профиль | | #2 | Добавлено: 05.07.07 08:36 |
| CПАСИБО | ||
|
Номер ответа: 3 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #3 | Добавлено: 05.07.07 16:27 |
|
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click btnSave_Click
... End Sub |
||
|
Номер ответа: 4 Автор ответа: BG(Алексей)Вопросов: 26 Ответов: 295 |
Профиль | | #4 | Добавлено: 06.07.07 03:40 |
|
Нет, это не подходит, потому как там условия проверки. Я просто опустил этот код.
В любом случае спасибо. |
||
|
Номер ответа: 5 Автор ответа: SHDZICQ: 209382104 Вопросов: 39 Ответов: 244 |
Профиль | | #5 | Добавлено: 25.07.07 11:34 |
|
а лучше вызывать третью процедуру из той и из другой
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click MySub() End Sub Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click MySub() End Sub Private MySub() { } |
||
|
Номер ответа: 6 Автор ответа:  Алексейblack admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #6 | Добавлено: 25.07.07 11:40 |
|
Private Sub btnSave_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _ Handles btnSave.Click, btnClear.Click If CType(sender, Button).Name = "btnSave" Then MsgBox("Save" 
Else MsgBox("Clear"
End If End Sub |
||
Страница: 1 |