push to show a msg

[whiskydrinka]

hi all i would like to make a project where i would have to hold down any button
down on the keyboard or even mouse down an it will show the msg on the form
and when i let go of the button the msg will not show

any ideas on how i can go about this

thanks

[Doogle]

Create a project and on the Form Draw a Frame (Frame1) set it's visible property to False and blank out its Caption. Inside the Frame draw a Label and set its Caption property to whatever message you want displayed. Set the KeyPreview property of the Form to True. Copy and paste the code below into the Declaration Section of the Form and run it

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Frame1.Visible = True
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Frame1.Visible = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Frame1.Visible = True
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Frame1.Visible = False
End Sub

Note that the Mouse down and up only work on the area of the Form that has no controls on it. The Key down and up should work everywhere on the Form

[whiskydrinka]

nice thank you ,is it possible to have lets say i want to choose which button i want to use for instance i want to use Q or A button for it to work that would be greatfull

and thanks for the quik responce

[Doogle]

Something like this

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
    Frame1.Visible = True
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
    Frame1.Visible = False
End If
End Sub

[whiskydrinka]

thank you

much appreciated

[whiskydrinka]

hi again
Ive been playing around with the code and been trying to
have a the vb key assigned in text box ,like i would like to change what button I want to press or even a combo box an have the key code constance in the combo box
something like that


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKey & text1.text Then
Frame1.Visible = True
End If
End Sub

OR

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
vbkey = Form2.Text1.Text

If KeyCode = Form2.Text1.Text Then
Frame1.Visible = True
End If
End Sub

instead of vbkeyA the "A" would be in the textbox an i could change it to what ever i like
any help would be great

[Doogle]

There may be better approaches but I'd define a common boolean variable to indicate if the Key has yet been defined, when it has set the boolean and test it in the Form_KeyDown event. If you're only going to use alphanumeric keys it shouldn't be too difficult since their KeyCodes are the same as their ASCII codes. Something for you to play with.

Private boKeySet As Boolean
Private intKey As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If boKeySet = True Then
    If KeyCode = intKey Then
        Frame1.Visible = True
    End If
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If boKeySet = True Then
    If KeyCode = intKey Then
        Frame1.Visible = False
    End If
End If
End Sub

Private Sub txtKey_KeyPress(KeyAscii As Integer)
'
' Check if the Key has been set
'
If boKeySet = False Then
    '
    ' No, then check that an alphanumeric key has been pressed
    ' 48 = "0", 57 = "9"
    ' 65 = "A", 90 = "Z"
    ' 97 = "a", 122 = "z"
    '
    If (KeyAscii >= 48 And KeyAscii <= 57) Or _
        (KeyAscii >= 65 And KeyAscii <= 90) Or _
        (KeyAscii >= 97 And KeyAscii <= 122) Then
        '
        ' Valid key has been pressed
        '
        If KeyAscii >= 97 Then
        '
        ' Since the KeyCode will return the same value whether "a" or "A"
        ' is pressed (eg 65), our intKey must always contain the uppercase
        ' value. Alternatively, and on reflection, better, we could check the 
        ' value of Shift in the KeyDown and KeyUp events.
        ' Perhaps I'll leave that up to you. (Lazy me)
        '
            intKey = KeyAscii - (97 - 65)
        Else
            intKey = KeyAscii
        End If
        boKeySet = True
    Else
        '
        ' Invalid key pressed, beep to alert the user
        '
        Beep
    End If
Else '
'
' After the key has been pressed ignore
' additional  characters entered into txtKey
'
    KeyAscii = 0
End If
End Sub

Then
[code]

[whiskydrinka]

private sub thanks_click ()

thanks for that im trying to add the keyascii into a combobox looking good so far still playing around with it ,Ive even used the keytext.locked = true an false
so i can use any keyacsii an lock it so it dont keep typing it in the textbox

thanks heaps

end sub

[Hack]

Does this resolve your problem or do you still have questions?

[whiskydrinka]

Does this resolve your problem or do you still have questions?

thanks doogle