initial commit

This commit is contained in:
Chikyun
2019-10-24 21:24:21 +09:00
commit 376f7d9de0
544 changed files with 295019 additions and 0 deletions

View File

@@ -0,0 +1,22 @@
Public Class MyCmb
Dim NC As Control = Nothing
Private Sub MyCmb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Enter Then
If Me.NC Is Nothing Then
SendKeys.Send("{TAB}")
Else
NC.Focus()
End If
End If
End Sub
Public Property NectControl() As Control
Get
Return NC
End Get
Set(ByVal value As Control)
NC = value
End Set
End Property
End Class