以下是引用Bin在2014-10-28 14:13:00的发言:
这是哪里的X 我怎么没看到
全局代码:
Public Sub FormTab_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If sender.SelectedTab.Text = "主界面" Then Return
Dim TabRect As Rectangle = sender.SelectedTab.TabBounds
If e.Button = System.Windows.Forms.MouseButtons.Left And TabRect.Contains(e.Location) Then
For Each frm As WinForm.Form In Forms
If frm.Opened AndAlso frm.Text = sender.SelectedTab.Text Then frm.Close : Return
Next
End If
End Sub
Dim MainTab As C1Command.C1DockingTab = BaseMainform.Controls("MainPages")
MainTab.HotTrack = True
MainTab.Font = New Font("微软雅黑",10)