Imports Foxtable
Imports System.Threading
Imports System.Windows.Forms
Imports System.Drawing
Public Class TableState
#Region "私有成员"
Private mTabMain As WinForm.TabControl
Private mHeight As Integer
Private mWidth As Integer
Private mMiddleSize As Size = New Size(130, 125)
Private mLargeSize As Size = New Size(188, 182)
Private mintSep As Integer = 10
Private mArears As New Dictionary(Of String, Arear)
Private mTables As New Dictionary(Of String, TableState.Table)
Private mOpenPic As String = ProjectPath & "Pic\包间1.jpg"
Private mClosePic As String = ProjectPath & "Pic\包间2.jpg"
Private mBackPic As String = ProjectPath & "Pic\背景.jpg"
Private blnMenuBuilded As Boolean = False
Private mTableSize As TableSizeEnum = TableSizeEnum.Large
Private mMenu As System.Windows.Forms.ContextMenuStrip
Private mTableNameFromMenu As String = "" '从菜单那获得的桌台名称
#End Region
'Public gs_strActiveConn As String
Public Enum TableSizeEnum
Middle = 1
Large = 2
End Enum
Public Sub New(ByVal MainTab As WinForm.TabControl)
mTabMain = MainTab
mArears = New Dictionary(Of String, Arear)
mTables = New Dictionary(Of String, TableState.Table)
mHeight = mLargeSize.Height
mWidth = mLargeSize.Width
'创建菜单
ContextMenuStripBuild()
End Sub
#Region "属性"
Public ReadOnly Property Tables() As Dictionary(Of String, TableState.Table)
Get
Return mTables
End Get
End Property
Public Property Height() As Integer
Set(ByVal value As Integer)
mHeight = value
End Set
Get
Return mHeight
End Get
End Property
这只是一小部分，都是这代码，出身小白的我们，实在是看不懂，也没有意义啊
加好友 
发短信
Post By：2022/7/13 16:07:00 [只看该作者]
