How can I detect a shift + tab vs just a tab in my datagrid? 1

[Blitz]

here is what i currently have in my derived datagrid that detects when tab is pressed and selects the next control.

Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean


If msg.WParam.ToInt32() = CInt(Keys.Tab) Then
'goto next tab control
Me.Parent.SelectNextControl(Me, True, True, True, True)
Return True
End If

End Function

this works fine but i now need to be able to detect if the shift key is being held down at the same time as tab so that i can have it go to the previous control, but I dont know what is required to determine if shift is pressed. Thanks for any help


Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean


If msg.WParam.ToInt32() = CInt(Keys.Tab) Then
If 'shift key is pressed' then
'goto previous tab control
Me.Parent.SelectNextControl(Me, False, True, True, True)

Else
'goto next tab control
Me.Parent.SelectNextControl(Me, True, True, True, True)

End If
Return True
End If
End Function

 

[JohnYingling]

Keys is a Flags Enumeration so Tab is 9 and Shift is 65536.

' Try
Dim iKeys As Integer = msg.WParam.ToInt32()
' THINK Bitwise AND/OR/NOT rather than LOGICAL
' If TAB Or Shift Tab
if (iKeys And Not (Keys.Shift)) = (iKeys Or Keys.Tab) Then
' TAB wth or withiout Shift
If iKeys = (Keys.Tab Or Keys.Shift) Then
' Tab and Shift
Me.Parent.SelectNextControl(Me, False, True, True, True)
Else
' Tab only
Me.Parent.SelectNextControl(Me, True, True, True, True)
End If
End If

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing

http://www.VBCompare.com

Compare Code

http://www.VBSortGen.com

Generate Sort Class in VB

http://www.Vbcompare.com/Check.Htm(1979

Check To MS)

 

[Blitz]

Unfortunatly that did not work, it still behaves as if only tab is pressed even if shift is held down. Thanks for trying you gave me a few more ideas to play with.

 

[JohnYingling]

When you use Shift+Tab you should see 65536 + 9 = 65545 in iKeys. If not, the Shift/Alt/Control modifiers are not being passed.

Dim iKeys As Integer = msg.WParam.ToInt32()
Debug.Writeline ("keys=" & iKeys.Tostring)

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing

http://www.VBCompare.com

Compare Code

http://www.VBSortGen.com

Generate Sort Class in VB

http://www.Vbcompare.com/Check.Htm(1979

Check To MS)

 

[JohnYingling]

TRY AGAIN.
Except this time use KeyData, not Msg.

' THINK Bitwise AND/OR/NOT rather than LOGICAL
' If TAB Or Shift Tab
if (KeyData And Not (Keys.Shift)) = (KeyData Or Keys.Tab) Then
' TAB wth or withiout Shift
If KeyData = (Keys.Tab Or Keys.Shift) Then
' Tab and Shift
Me.Parent.SelectNextControl(Me, False, True, True, True)
Else
' Tab only
Me.Parent.SelectNextControl(Me, True, True, True, True)
End If
End If

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing

http://www.VBCompare.com

Compare Code

http://www.VBSortGen.com

Generate Sort Class in VB

http://www.Vbcompare.com/Check.Htm(1979

Check To MS)

 

[Blitz]

That did it thank you for taking the time to help me on this one.

 

[JohnYingling]

OK.

Clarification
if (KeyData And Not (Keys.Shift)) = (KeyData Or Keys.Tab) Then
is simpler as
' Turn off shift if on
if (KeyData And Not (Keys.Shift)) = (Keys.Tab) Then

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing

http://www.VBCompare.com

Compare Code

http://www.VBSortGen.com

Generate Sort Class in VB

http://www.Vbcompare.com/Check.Htm(1979

Check To MS)