Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Как создать независимый от формы счетчик? Добавлено: 26.11.08 09:52  

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

Ответить

  Ответы Всего ответов: 5  

Номер ответа: 1
Автор ответа:
 tz-man



ICQ: 369431909 

Вопросов: 6
Ответов: 11
  Web-сайт: terabayt.info
 Профиль | | #1 		Добавлено: 26.11.08 12:24
Направление - GetAsyncKeyState.
Она работает на уровне системы.

Ответить

Номер ответа: 2
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #2 Добавлено: 26.11.08 13:10
  1. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  2. Dim iK As Integer
  3. Dim bK As Boolean
  4. Dim A As Long
  5. Private Sub Timer1_Timer()
  6. iK = GetAsyncKeyState(vbKeyReturn)
  7.     If (iK = -32767) And (bK <> True) Then
  8.     A = A + 1
  9.     Open "C:\File.txt" For Output As #1
  10.     Print #1, A
  11.     Close #1
  12.     bK = True
  13.     ElseIf (iK = 0) And (bK = True) Then
  14.     bK = False
  15.     End If
  16. End Sub

Ответить

Номер ответа: 3
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #3 		Добавлено: 26.11.08 13:48
tz-man, @lex, вы по-моему не так прочитали вопрос.

Андрей, есть разные способы. Если работаешь в Excel, можно значение сохранять где-нибудь в ячейке, можно на скрытом листе. Чтобы счетчик хранился, файл надо перед закрытием записывать. Если не в Excel, то можно хранить данные в файле или в реестре.

Ответить

Номер ответа: 4
Автор ответа:
 Геннадий



Вопросов: 2
Ответов: 5
  Профиль | | #4 Добавлено: 28.11.08 16:26
Например так
Private Sub UserForm_Initialize()
Range("J1";).Value = Range("J1";).Value + 1
End Sub

Ответить

Номер ответа: 5
Автор ответа:
 Геннадий



Вопросов: 2
Ответов: 5
  Профиль | | #5 Добавлено: 28.11.08 16:26
Например так
Private Sub UserForm_Initialize()
Range("J1";).Value = Range("J1";).Value + 1
End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам