Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Можно ли подсчитать количество кликов?

Автор: Jr13san 31.7.2008, 16:48

Название темы говорит само за себя, что нужно подсчитать кол-во кликов...
У меня имеется форма, на ней кнопка(Command1) и Textbox.
При нажатии на Command1 в текстовом поле Textbox'а должно появиться число, которое обозначает кол-во кликов, которые совершил пользователь...
Пробовал так:
Dim x As long
Dim i As Long
For i = 1 To x
x= i + 1
Command1 = x
Next i
Ничего не получилось...
Кто знает как можно это сделать, - помогите пожалуйста...

Автор: Akina 31.7.2008, 17:03

Цитата(Jr13san @ 31.7.2008, 17:48

)

число, которое обозначает кол-во кликов, которые совершил пользователь

Кликов по кнопке?

Автор: I_Am_Rock 31.7.2008, 18:59

Код


Dim z As Integer

Private Sub Command1_Click()
z = z + 1
Text1.Text = z
End Sub

Private Sub Form_Load()
z = 0
End Sub

Автор: Jr13san 3.8.2008, 17:32

Всё работает...
Я только поменял тип Integer на Double.
Всем Спасибо.
I_Am_Rock - от меня респект! smile

Добавлено через 58 секунд
Тему можно закрывать.