Модераторы: Akina
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Можно ли подсчитать количество кликов? 
V
    Опции темы
Jr13san
  Дата 31.7.2008, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

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



Название темы говорит само за себя, что нужно подсчитать кол-во кликов...
У меня имеется форма, на ней кнопка(Command1) и Textbox.
При нажатии на Command1 в текстовом поле Textbox'а должно появиться число, которое обозначает кол-во кликов, которые совершил пользователь...
Пробовал так:
Dim x As long
Dim i As Long
For i = 1 To x
x= i + 1
Command1 = x
Next i
Ничего не получилось...
Кто знает как можно это сделать, - помогите пожалуйста...
PM MAIL WWW ICQ   Вверх
Akina
Дата 31.7.2008, 17:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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



Цитата(Jr13san @  31.7.2008,  17:48 Найти цитируемый пост)
число, которое обозначает кол-во кликов, которые совершил пользователь

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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
I_Am_Rock
Дата 31.7.2008, 18:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Код

Dim z As Integer

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

Private Sub Form_Load()
z = 0
End Sub

PM MAIL WWW   Вверх
Jr13san
Дата 3.8.2008, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

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



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

Добавлено через 58 секунд
Тему можно закрывать.
PM MAIL WWW ICQ   Вверх
  
Закрытая темаСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

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


 




[ Время генерации скрипта: 0.0656 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.