initial commit

This commit is contained in:
raytrace
2018-12-09 20:18:51 +09:00
commit 9aef53ee89
477 changed files with 2867797 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