Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отследить нажатие клавиши. / 25 сообщений из 25, страница 1 из 1
18.05.2006, 16:11
    #33736178
Evgeshka
Evgeshka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
Как в Visual Basic 6.0 отслеживать нажатие клавишь CapsLock и Insert ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2006, 16:17
    #33736205
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyInsert Then
MsgBox "Нажат инсерт"
ElseIf KeyCode = 20 Then
MsgBox "Нажат КАБЛОК"
End If
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2006, 16:30
    #33736252
Evgeshka
Evgeshka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
TIKOPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyInsert Then
MsgBox "Нажат инсерт"
ElseIf KeyCode = 20 Then
MsgBox "Нажат КАБЛОК"
End If
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Спасибо тебе за помощь, но мне надо отследить состояние клавиши CapsLock.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2006, 16:42
    #33736315
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
Evgeshka
Спасибо тебе за помощь, но мне надо отследить состояние клавиши CapsLock.

Вы приведенный код хотябы пробовали? Именно это он и делает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2006, 16:49
    #33736341
Evgeshka
Evgeshka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
Magnus23 Evgeshka
Спасибо тебе за помощь, но мне надо отследить состояние клавиши CapsLock.

Вы приведенный код хотябы пробовали? Именно это он и делает.

Конечно пробовал:
Код: plaintext
1.
2.
3.
4.
If KeyCode =  20  Then
MainStatusBar.Panels( 4 ).Text = "Caps Lock"
Else: MainStatusBar.Panels( 4 ).Text = ""
End If

Ее же еще и сбрасывать как то надо?!!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2006, 16:57
    #33736378
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
Может вы все-таки удосужитесь почитать ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2006, 17:28
    #33736507
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
EvgeshkaЕе же еще и сбрасывать как то надо?!!!!!
Какой вопрос - такой и ответ.
Конкретнее формулируйте вопрос и небудет непоняток.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Type KeyboardBytes
     kbByte( 0  To  255 ) As Byte
End Type
Dim kbArray As KeyboardBytes, CapsLock As Boolean, kbOld As KeyboardBytes


Private Sub Form_KeyPress(KeyAscii As Integer)
    If GetAsyncKeyState( 20 ) =  1  Then
         MainStatusBar.Panels( 4 ).Text = "Caps Lock"
    Else 
       MainStatusBar.Panels( 4 ).Text = ""
    End If

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2006, 17:38
    #33736544
Evgeshka
Evgeshka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
Magnus23 EvgeshkaЕе же еще и сбрасывать как то надо?!!!!!
Какой вопрос - такой и ответ.
Конкретнее формулируйте вопрос и небудет непоняток.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Type KeyboardBytes
     kbByte( 0  To  255 ) As Byte
End Type
Dim kbArray As KeyboardBytes, CapsLock As Boolean, kbOld As KeyboardBytes


Private Sub Form_KeyPress(KeyAscii As Integer)
    If GetAsyncKeyState( 20 ) =  1  Then
         MainStatusBar.Panels( 4 ).Text = "Caps Lock"
    Else 
       MainStatusBar.Panels( 4 ).Text = ""
    End If
End Sub


Твой код полностью нерабочий.
Откуда ты взял ф-ю GetAsyncKeyState и где она объявлена?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2006, 17:46
    #33736574
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
Не тот код скопировал.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Form_KeyPress(KeyAscii As Integer)
 GetKeyboardState kbArray
   If kbArray.kbByte( 20 ) =  1  Then
       MainStatusBar.Panels( 4 ).Text = "Caps Lock"
    Else 
       MainStatusBar.Panels( 4 ).Text = ""
    End If
End Sub

Обьявления в предыдущем посте.

Magnus
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2006, 17:54
    #33736614
SmeL_md
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
EvgeshkaОткуда ты взял ф-ю GetAsyncKeyState и где она объявлена?Можно было как то и мягче спросить и так ваш пост тянет на классику с которой ведется борьба. А вот Вам то, что так не хватало, а еще ответ можно найти тут
Код: plaintext
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2006, 17:59
    #33736638
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
2 SmeL_md
GetAsyncKeyState там совсем не нужна, копировал из своего проэкта, не то выдрал, они ж похожи :).
А пост этот и есть сама классика. Ничего абсолютно делать не умеем а гонору на хороший отдел прогов хватит.

Magnus
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2006, 07:12
    #33737325
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
Evgeshka Magnus23 Evgeshka
Спасибо тебе за помощь, но мне надо отследить состояние клавиши CapsLock.

Вы приведенный код хотябы пробовали? Именно это он и делает.

Конечно пробовал:
Код: plaintext
1.
2.
3.
4.
If KeyCode =  20  Then
MainStatusBar.Panels( 4 ).Text = "Caps Lock"
Else: MainStatusBar.Panels( 4 ).Text = ""
End If

Ее же еще и сбрасывать как то надо?!!!!!

Если вы пытаетесь использовать контрол Statusbar, у него в стайле есть свойство панели 1-sbrCabs , слово CABS автоматом активизируется если нажата кл кабслок
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2006, 09:30
    #33737493
Evgeshka
Evgeshka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
Люди помогите, не могу найти в Preferences - Microsoft Dialog Control, хотя на другой машине с этой же инсталляжки ставол этот компонент есть :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2006, 09:54
    #33737572
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
EvgeshkaЛюди помогите, не могу найти в Preferences - Microsoft Dialog Control, хотя на другой машине с этой же инсталляжки ставол этот компонент есть :(
Попробуй в компонентс
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2006, 09:59
    #33737587
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
Может Microsoft Common Dialog Control ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2006, 10:00
    #33737589
Evgeshka
Evgeshka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
TIKO EvgeshkaЛюди помогите, не могу найти в Preferences - Microsoft Dialog Control, хотя на другой машине с этой же инсталляжки ставол этот компонент есть :(
Попробуй в компонентс

Извини друг, я его изначально в компонентах и искал, все равно нету. Вышлите мне *.ocx на evgeniy@lisichansk.com.ua
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2006, 10:01
    #33737597
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
TIKOМожет Microsoft Common Dialog Control ?
Да или Нет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2006, 10:02
    #33737600
Evgeshka
Evgeshka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
TIKOМожет Microsoft Common Dialog Control ?

И его нету. Вышлите срочно библиотечку пожалуйста !!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2006, 10:05
    #33737612
Evgeshka
Evgeshka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
какое имя у *.OCX я его в system32 поищу???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2006, 10:11
    #33737632
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
Evgeshkaкакое имя у *.OCX я его в system32 поищу???
comdlg32.ocx
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2006, 10:17
    #33737657
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
Evgeshka TIKO EvgeshkaЛюди помогите, не могу найти в Preferences - Microsoft Dialog Control, хотя на другой машине с этой же инсталляжки ставол этот компонент есть :(
Попробуй в компонентс

Извини друг, я его изначально в компонентах и искал, все равно нету. Вышлите мне *.ocx на evgeniy@lisichansk.com.ua

отправил, но будет лучше если заново переустановить VB. Поскольку эти компоненты автоматом ставятся на машину
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2006, 10:23
    #33737683
Evgeshka
Evgeshka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
TIKO Evgeshkaкакое имя у *.OCX я его в system32 поищу???
comdlg32.ocx

Спасибо тебе друг! Библиотеку от тебя получил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2006, 10:25
    #33737692
Evgeshka
Evgeshka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
to TIKO: переустановка VB ничего не дала.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2006, 10:26
    #33737696
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
Так решилась проблемма с КабсЛок?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2006, 10:30
    #33737714
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить нажатие клавиши.
Evgeshkato TIKO: переустановка VB ничего не дала.
при установке выбери ADD/Remove из списка выбери ActiveX
и перезагрузи комп навсякий сл...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отследить нажатие клавиши. / 25 сообщений из 25, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 528ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165839]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 174ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 275ms
total:  528ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]