VPF::хочу в своей процедуре проверить

Step

Дата 29.4.2003, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

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

Сабж

--------------------

- Дурак учится на своих ошибках, умный на чужих.
- умные учатся у дураков

cardinal

Дата 3.5.2003, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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

Делай так

' объявляешь в модуле

Код

' проверяет нажата ли Caps Lock
Public Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long

' объявляешь на самом верху в коде форме

Код

Const VK_CAPITAL = &H14

' событие KeyDown

Код

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)
Dim CapsLockState As Boolean
CapsLockState = keys(VK_CAPITAL)

If (CapsLockState = False And Shift = 0) Or (CapsLockState = True And Shift = 1) Then
' ...
ElseIf CapsLockState = True Or Shift = 1 Then
' ...
End If
End Sub

Успехов!

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Step

Дата 3.5.2003, 15:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

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

наконецто cardinal спасибо, в понедельник попробую

--------------------

- Дурак учится на своих ошибках, умный на чужих.
- умные учатся у дураков

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