25 lines
944 B
VB.net
25 lines
944 B
VB.net
Public Class selitem
|
|
|
|
Private Sub selitem_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
|
|
|
|
End Sub
|
|
|
|
Private Sub selitem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
|
|
If e.KeyCode = Keys.Escape Then
|
|
Me.DialogResult = Windows.Forms.DialogResult.Cancel
|
|
Me.Dispose()
|
|
ElseIf e.KeyCode = Keys.Enter Then
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Dispose()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Dispose()
|
|
End Sub
|
|
|
|
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
|
|
|
|
End Sub
|
|
End Class |