16,555
社区成员
发帖
与我相关
我的任务
分享
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim test As New MyControl With {.Dock = DockStyle.Fill}
Dim txtBox1 As New TextBox With {.Multiline = True, .Dock = DockStyle.Fill}
Dim txtBox2 As New TextBox With {.Multiline = True, .Dock = DockStyle.Fill}
test.Panel1.Controls.Add(txtBox1)
test.Panel2.Controls.Add(txtBox2)
Me.Controls.Add(test)
End Sub
End Class
Public Class MyControl
Inherits System.Windows.Forms.SplitContainer
Public Sub New()
Me.SetStyle(ControlStyles.Selectable, False)
End Sub
Protected Overrides Sub OnGotFocus(ByVal e As System.EventArgs)
'MyBase.OnGotFocus(e)
Me.SelectNextControl(Me.ParentForm, True, False, True, True)
End Sub
End Class
Private Sub SplitContainer1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SplitContainer1.MouseUp