Delete Key Intercept 1

[borgunit]

Hi,
I am trying to delete entries in a ListBox by using the delete key. I can react to the DEL key (KeyAscii 46) but the Delete Key (one of those MS ergo keyboards doesn't seem to send a KeyAscii code when pressed). Any suggestions?

Thanks

 

[JohnYingling]

Use the KeyDown Event of the List Box.
This worked for me.
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
With List1
If .ListIndex >= 0 Then
.RemoveItem (.ListIndex)
End If
End With
End If
End Sub

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[JohnYingling]

Oops. Change that.
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
With List1
If .ListCount > 0 Then
.RemoveItem .ListIndex
End If
End With
End If
End Sub

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[borgunit]

Thanks,
That was it. I was using KeyPress instead of KeyDown.