ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отследить нажатие клавиши.
25 сообщений из 25, страница 1 из 1
Отследить нажатие клавиши.
    #33736178
Фотография Evgeshka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evgeshka
Участник
Как в Visual Basic 6.0 отслеживать нажатие клавишь CapsLock и Insert ?
...
Рейтинг: 0 / 0
18.05.2006, 16:11
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #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:17
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #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:30
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #33736315
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
Evgeshka
Спасибо тебе за помощь, но мне надо отследить состояние клавиши CapsLock.

Вы приведенный код хотябы пробовали? Именно это он и делает.
...
Рейтинг: 0 / 0
18.05.2006, 16:42
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #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:49
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #33736378
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Может вы все-таки удосужитесь почитать ?
...
Рейтинг: 0 / 0
18.05.2006, 16:57
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #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:28
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #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:38
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #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:46
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #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:54
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #33736638
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
2 SmeL_md
GetAsyncKeyState там совсем не нужна, копировал из своего проэкта, не то выдрал, они ж похожи :).
А пост этот и есть сама классика. Ничего абсолютно делать не умеем а гонору на хороший отдел прогов хватит.

Magnus
...
Рейтинг: 0 / 0
18.05.2006, 17:59
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #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, 07:12
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #33737493
Фотография Evgeshka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evgeshka
Участник
Люди помогите, не могу найти в Preferences - Microsoft Dialog Control, хотя на другой машине с этой же инсталляжки ставол этот компонент есть :(
...
Рейтинг: 0 / 0
19.05.2006, 09:30
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #33737572
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
EvgeshkaЛюди помогите, не могу найти в Preferences - Microsoft Dialog Control, хотя на другой машине с этой же инсталляжки ставол этот компонент есть :(
Попробуй в компонентс
...
Рейтинг: 0 / 0
19.05.2006, 09:54
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #33737587
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
Может Microsoft Common Dialog Control ?
...
Рейтинг: 0 / 0
19.05.2006, 09:59
| Ответить | Цитировать | Написать  
Отследить нажатие клавиши.
    #33737589
Фотография Evgeshka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evgeshka
Участник
TIKO EvgeshkaЛюди помогите, не могу найти в Preferences - Microsoft Dialog Control, хотя на другой машине с этой же инсталляжки ставол этот компонент есть :(
Попробуй в компонентс

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

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

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

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

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


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