Опять KeyPress

[Sholah]

Вот оня опять со своими шлупыми вопросами. Буду краток

Код: Выделить всё


Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyPress = Chr(32) Then
Label1.Visible = False
End If
End Sub


Почему не работает? Если не трудно, привидите пожалуйста правильный и работоспособный код.

[Viper]

Код: Выделить всё


Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyPress = 32 Then
Label1.Visible = False
End If
End Sub


[RayShade]

Мда.

А может быть потому что не KeyPress, а KeyAscii проверять в обработчике надо?

[Viper]

Оппаньки....

[Antonariy]

Может автору нужен

Код: Выделить всё

Private Sub Command1_Сlick()
    Label1.Visible = False
End Sub

:?:
Эффект тот же самый

[Sholah]

2 !Viper!
не, не работает.

[keks-n]

А есть ли у автора на форме Command1?

[Sholah]

2 keks-n
Есть, даже label1 есть

[Lumen]

Мда.
А может быть потому что не KeyPress, а KeyAscii проверять в обработчике надо?

[keks-n]

Убеди меня, что это не работает

[alibek]

Да нет, ошибка автора в том, что он Option Explicit не использует.

[Sholah]

2 keks-n
Да что за глупость? Если бы мне надо было бы реализовать таким образом, чтоб кликом скрывать label, то я бы так и сделал. Но мне надо, что бы это действие происходило в момент нажатия пробела.
2 alibek
А как тогда реализовать?

[keks-n]

Тогда:

Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then Label1.Visible = False
End Sub

[keks-n]

А если в сам момент нажатия, то:
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 32 Then Label1.Visible = False
End Sub

[Sholah]

2 keks-n
Спасибо, заработал вариант с KeyAscii = 32.

[kibernetics]

ребза а что может быть если:
на форме есть листвью, нужно отслеживать на листайтеме даблклик и зажат ли Ctrl. в дебаг моде всё работает, после компиляции - нет.
делаю так:
глобальная bBtn As Boolean на уровне формы, в листвью

Код: Выделить всё

Private Sub lvw_DblClick()
If bBtn then
Debug.Print "Ctrl was pressed"
End If
End Sub

Private Sub lvw_KeyDown(KeyAscii as Integer)
if KeyAscii = 2 then bBtn = True
End Sub

Private Sub lvw_KeyUp(KeyAscii as Integer)
bBtn = False
End Sub

Требуется, при даблклике на листвью отслеживать, зажат ли контрол?
В чём у меня ошибка?

[Хакер]

kibernetics
Лучше ловить не тут, а ловить в MouseUp, там можно узнать нажатость шифтовых кнопок.

[kibernetics]

Хакер
о, спасибо!