Re: OnKey problem

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

Sorry, I left out the most important statement...

KeyCode = 0

its the one that stops a character from being printed (usually used when one presses Shift, Ctrl or Alt is pressed in combination with a letter in order to stop the letter from appearing in the TextBox)...

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If KeyCode = vbKeyN Then
If Shift = 1 Then
MsgBox "You pressed Shift+N"
KeyCode = 0
ElseIf Shift = 2 Then
MsgBox "You pressed Ctrl+N"
KeyCode = 0
ElseIf Shift = 4 Then
MsgBox "You pressed Alt+N"
KeyCode = 0
Else
MsgBox "You pressed just N by itself"
End If
End If
End Sub

--
Rick (MVP - Excel)


"Rick Rothstein" <rick.newsNO.SPAM@xxxxxxxxxxxxxxxxxx> wrote in message news:e10bx%23weJHA.1268@xxxxxxxxxxxxxxxxxxxxxxx
Comment out your complete KeyDown event (so you won't lose it in case you want to go back to it) and then put this demonstration KeyDown event code in its place...

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If KeyCode = vbKeyN Then
If Shift = 1 Then
MsgBox "You pressed Shift+N"
ElseIf Shift = 2 Then
MsgBox "You pressed Ctrl+N"
ElseIf Shift = 4 Then
MsgBox "You pressed Alt+N"
Else
MsgBox "You pressed just N by itself"
End If
End If
End Sub

Now run the UserForm, place the cursor in the TextBox and press Shift+N, then press Ctrl+N, then press Alt+N and then just press the N by itself. Hopefully, the above code will help you to see how to work with this event (the KeyUp event works the same way).

--
Rick (MVP - Excel)


"Bert" <bwhittier@xxxxxxxxxxx> wrote in message news:e4g5X0veJHA.5820@xxxxxxxxxxxxxxxxxxxxxxx
Thanks for getting me on the right track. Okay, I want to trap only Alt-n (or possibly Ctrl-n) at this point, although later I may want to add other similar combinations. All other keystrokes should be displayed or triggered as usual (Ctrl-c, for example, should copy selected text).
I'm not sure this is right, but the following subroutine captures the Alt-n keystrokes; however, I'm not sure how to "release" the non-Alt-n keystrokes to do what they normally would.
----------------------------------------------
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Static half1 As Boolean
If half1 Then
' get second half of the key combination.
If KeyCode = 78 Then
Call Placenm ' add name at insertion point
End If
half1 = False
Else
' the next line works as long as the character is a displayable character.
' do I need to create code to handle each condition/keystroke?
If KeyCode = 18 Then
half1 = True
Else
TextBox1.Text = TextBox1.Text & Chr$(KeyCode)
End If
End If
End Sub
----------------------------------------------
Thanks.
Bert

"Rick Rothstein" <rick.newsNO.SPAM@xxxxxxxxxxxxxxxxxx> wrote in message news:e05mHmpeJHA.816@xxxxxxxxxxxxxxxxxxxxxxx
Use the TextBox's own KeyDown, KeyUp or KeyPress events depending on what kind of keystroke you want to trap.

--
Rick (MVP - Excel)


"Bert" <bwhittier@xxxxxxxxxxx> wrote in message news:OpsqT0oeJHA.2112@xxxxxxxxxxxxxxxxxxxxxxx
Okay...when I closed the workbook (and Excel) and restarted it, it worked--both your code and mine. (Actually, I'm using Alt-n - "%n".) So thanks for sticking with this!
Now I have another problem: When the insertion point is in a textbox in a Userform, the OnKey method doesn't seem to work. It would appear that Userforms behave differently. Is this the case? If so, is there a way to trap specific keystokes in a textbox?
Thanks again.
Bert.

"Gary''s Student" <GarysStudent@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message news:FD321803-F622-4180-8800-B7E3ABD42255@xxxxxxxxxxxxxxxx
I put the following in Module1:

Sub OffKey()
Application.OnKey "^{+}", "Placenm"
End Sub

Sub Placenm()
MsgBox ("Hello World")
End Sub

I went back to the worksheet and manually ran OffKey. I then touched
CNTRL-SHFT-+ and got the macro to fire.

Try the same on a fresh, new workbook.
--
Gary''s Student - gsnu200827


"Bert" wrote:

Placenm is in the "default" module "Module1".
Bert

"Gary''s Student" <GarysStudent@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:BE519644-4F60-46FA-B5BC-F0653430C728@xxxxxxxxxxxxxxxx
> Where did you put Placenm?
> -- > Gary''s Student - gsnu200827
>
>
> "Bert" wrote:
>
>> Thanks; however, as noted, I've tried several different key
>> combinations--
>> "%n", "^{+}", and others.
>> I've tried all control and alt keys in all combinations (with and >> without
>> the shift keys)
>> It still isn't working.
>> Any other suggestions?
>> Bert
>>
>> "Gary''s Student" <GarysStudent@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote >> in
>> message
>> news:4BDA091A-FEC3-409D-86FD-2522F4A7A5A8@xxxxxxxxxxxxxxxx
>> > Remember:
>> >
>> > 1. CNTRL-+ using the numeric keypad will not work
>> > 2. to get to the "normal" + key ( the one above the = sign) you >> > must
>> > touch
>> > CNTRL-SHFT-=
>> >
>> > This key combination will drive your macro!
>> > -- >> > Gary''s Student - gsnu2007k
>> >
>> >
>> > "Bert" wrote:
>> >
>> >> I'm using Excel 2003 in Vista. I'm using the following code, >> >> but it
>> >> doesn't
>> >> work.
>> >> Application.OnKey "^{+}", "Placenm"
>> >> I've placed it in ThisWorkBook in a WorkBook_Open routine.
>> >> I've also placed it in a subroutine that gets called >> >> periodically in
>> >> the
>> >> course of a work session.
>> >> I've also tried different key combinations. Nothing seems to >> >> work.
>> >> (The
>> >> subroutine, "Placenm" is not getting called.)
>> >> Any suggestions would be appreciated.
>> >> Thanks.
>> >> Bert.
>> >>
>> >>
>>
>>







.

Relevant Pages

  • Re: OnKey problem
    ... its the one that stops a character from being printed (usually used when one presses Shift, Ctrl or Alt is pressed in combination with a letter in order to stop the letter from appearing in the TextBox)... ... Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ... ByVal Shift As Integer) ... MsgBox "You pressed Shift+N" ...
    (microsoft.public.excel.programming)
  • Programmitically setting keydown event
    ... Shift As Integer) ... Public Sub CheckKeydDwn(ByVal KeyCode As Integer, ... Dim bShiftDown As Integer, bAltDown As Integer, bCtrlDown As Integer ... MsgBox ...
    (microsoft.public.access.formscoding)
  • Re: Distinguish between < and . with KeyUp?
    ... Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ... Shift As Integer) ... MsgBox "Left" ...
    (microsoft.public.excel.programming)
  • Re: Ignore System Menu
    ... MsgBox instead of the system menu? ... Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) ... If KeyCode = vbKeyDown Then ...
    (microsoft.public.vb.general.discussion)
  • Re: Form development question
    ... With Textbox1, Textbox2 and Commandbutton 1, in that tab order, code goes ... Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ... Shift As Integer) ...
    (microsoft.public.excel.programming)