|
|
|
Несколько нажатий на одну кнопку
|
|||
|---|---|---|---|
|
#18+
Есть два кнопки и лейбл. В зависимости от нажатия на кн1 или кн2 должен появляться определенный текст в лейбле. Нажимать на кнопки надо будет где-то 7-10 раз, и соответственно, в лейбле будет появляться определенный для каждого нажатия текст. Как можно будет написать процедуру для этих 7-10 нажатий? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.12.2005, 18:54:09 |
|
||
|
Несколько нажатий на одну кнопку
|
|||
|---|---|---|---|
|
#18+
Private Sub Command1_Click() Static s As Long s = s + 1 Select Case s Case 1 Label1.Caption = "s=1" Case 2 Label1.Caption = "s=2" Case 3 Label1.Caption = "s=3" Case 4 Label1.Caption = "s=4" Case 5 Label1.Caption = "s=5" Case 6 Label1.Caption = "s=6" Case 7 Label1.Caption = "s=7" Case Else Label1.Caption = "не задан параметр" s = 0 End Select End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.12.2005, 07:23:18 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=33431563&tid=2166713]: |
0ms |
get settings: |
8ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
201ms |
get topic data: |
6ms |
get forum data: |
1ms |
get page messages: |
20ms |
get tp. blocked users: |
1ms |
| others: | 221ms |
| total: | 480ms |
| 0 / 0 |
