Checking Shift State (Any)

[Kevin]

Thought this might be helpful or interesting for anyone
trapping the Word dialog subs (as I do). The code below
executes at the start of each dialog sub (FileClose,
FileOpen, etc.) to test the state of the shift key. If it's down
when the dialog is invoked, the user gets to by-pass the
firm dialogs and use the built-in Word dialogs. Handy for
troubleshooting situations too.

Simple, but handy.

<pre>Const VK_SHIFT = &H10
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Function UseWordMethod(strMsg As String) As String
If GetKeyState(VK_SHIFT) And &H8000 Then
ans = MsgBox(strMsg, vbYesNoCancel, "Use Word Dialog?")
Select Case ans
Case vbYes
UseWordMethod = "Yes"
Case vbNo
UseWordMethod = "No"
Case vbCancel
UseWordMethod = "Cancel"
End Select
Else
UseWordMethod = "No"
End If
End Function

</pre>

[jscher2000]

The document management police will be beating down your door any minute now. <img src=/S/wink.gif border=0 alt=wink width=15 height=15>

[Kevin]

Ah, so I've stolen something from them?

You can also use the shift state check to get a lot more mileage out of your command and toolbar buttons.

[charlotte]

Is there a reason for declaring your own constant instead of using the built-in vbKeyShift? Granted, the VB constant probably won't work in WordBasic, but only Chris and Howard seem to care. <img src=/S/evilgrin.gif border=0 alt=evilgrin width=15 height=15>

[Kevin]

No, and since the only reason you can think of is a relatively minor concern, I'll change the code to reflect your insight. Thanks!