INIT OK 20.1.4

This commit is contained in:
2020-06-09 10:30:25 +02:00
parent 96e5588d9d
commit 291939e03f
25 changed files with 54 additions and 60 deletions
@@ -22,18 +22,18 @@ Public Class NotePropertyEditor
Return control
End Function
Private Sub control_PreviewKeyDown(sender As Object, e As Windows.Forms.PreviewKeyDownEventArgs)
Private Sub control_PreviewKeyDown(sender As Object, e As System.Windows.Forms.PreviewKeyDownEventArgs)
Dim control As ComboBoxEdit = TryCast(sender, ComboBoxEdit)
If e.KeyCode = Windows.Forms.Keys.F6 Then
If e.KeyCode = System.Windows.Forms.Keys.F6 Then
MsgBox(control.Text)
control.EditValue = control.Text
End If
End Sub
Private Sub control_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs)
Private Sub control_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs)
Dim control As ComboBoxEdit = TryCast(sender, ComboBoxEdit)
If control.IsPopupOpen Then
If e.KeyCode = Windows.Forms.Keys.F6 Then
If e.KeyCode = System.Windows.Forms.Keys.F6 Then
control.ClosePopup()
MsgBox(control.Text)
End If