Конференция VBStreets

**Akella** » 21.01.2005 (Пт) 8:35

Напомните код для кнопки ALT

GM » 21.01.2005 (Пт) 8:42

Вот:
vbKeyMenu = 18 = &H12

**PUNK-GRUNGER** » 21.01.2005 (Пт) 12:40

vbAltMask

**KDima** » 21.01.2005 (Пт) 14:37

API Text Viewer

**tyomitch** » 21.01.2005 (Пт) 14:55

MSDN

**Александр80** » 21.01.2005 (Пт) 16:29

Private Sub Form_KeyDown(KeyAscii As Integer, Shift As Integer)
If KeyAscii = 18 Then MsgBox "кнопка ALT"
End Sub

ИЛИ

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 18 Then MsgBox "кнопка ALT"
End Sub

:lol:

Только vbAltMask (KeyCode = vbAltMask) не работает... Работает:
If Shift And vbAltMask Then MsgBox "кнопка ALT" или по-другому... :cry:

**KDima** » 21.01.2005 (Пт) 16:59

tyomitch писал(а):MSDN

Код: Выделить всё: Private Sub Form_KeyDown(KeyAscii As Integer, Shift As Integer) MsgBox trim$(chr$(KeyAscii)) End Sub

**alibek** » 21.01.2005 (Пт) 17:00

Не KeyAscii, а KeyCode. Это во-первых. А во-вторых, автор слишком невнятно выразил, нужен ли ему код виртуальной кнопки, или скан-код.

**KDima** » 21.01.2005 (Пт) 18:43

alibek писал(а):Не KeyAscii, а KeyCode.

Кстати.... Да...

alibek писал(а):Это во-первых. А во-вторых, автор слишком невнятно выразил, нужен ли ему код виртуальной кнопки, или скан-код.

Пишем другую процу на другой ивент...

**PUNK-GRUNGER** » 21.01.2005 (Пт) 23:20

vbAltMask везде работает

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode:
Case vbKeyF2 And Shift = vbAltMask:
MsgBox "Нажато ALt+F2"
case shift=vbaltmask:
Msgbox "Альт"
End Select
End Sub

**Александр80** » 21.01.2005 (Пт) 23:29

PUNK-GRUNGER точно Shift = vbAltMask.... а я Shift and vbAltMask :lol:

поэтому и не получалось... :wink:

**Max!** » 22.01.2005 (Сб) 4:19

Тут прям война пошла , кто года больше даст !

:wink:

GM » 23.01.2005 (Вс) 1:55

Max! писал(а):Тут прям война пошла , кто года больше даст !

А ответ то однозначный( vbKeyMenu = 18 = &H12)

Конференция VBStreets

ALT

ALT

Кто сейчас на конференции