doubleselectbox1.ctl

星级酒店管理系统（附带系统自写控件源码）

    PropertyChanged "ObjectListIndex"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=lstSource,lstSource,-1,ListCount
Public Property Get SourceListCount() As Integer
Attribute SourceListCount.VB_Description = "返回控件的列表部分中的项目数。"
    SourceListCount = lstSource.ListCount
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=lstObject,lstObject,-1,ListCount
Public Property Get ObjectListCount() As Integer
Attribute ObjectListCount.VB_Description = "返回控件的列表部分中的项目数。"
    ObjectListCount = lstObject.ListCount
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=lstSource,lstSource,-1,AddItem
Public Sub SourceAddItem(ByVal Item As String, Optional ByVal Index As Variant)
Attribute SourceAddItem.VB_Description = "添加一项到 Listbox 或 ComboBox 控件，或添加一行到 Grid 控件。"
    lstSource.AddItem Item, Index
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=lstObject,lstObject,-1,AddItem
Public Sub ObjectAddItem(ByVal Item As String, Optional ByVal Index As Variant)
Attribute ObjectAddItem.VB_Description = "添加一项到 Listbox 或 ComboBox 控件，或添加一行到 Grid 控件。"
    lstObject.AddItem Item, Index
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=lstSource,lstSource,-1,RemoveItem
Public Sub SourceRemoveItem(ByVal Index As Integer)
Attribute SourceRemoveItem.VB_Description = "从一个 ListBox 或 ComboBox 控件或一个 Grid 控件中的一行中删除一项。"
    lstSource.RemoveItem Index
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=lstSource,lstSource,-1,RemoveItem
Public Sub ObjectRemoveItem(ByVal Index As Integer)
Attribute ObjectRemoveItem.VB_Description = "从一个 ListBox 或 ComboBox 控件或一个 Grid 控件中的一行中删除一项。"
    lstSource.RemoveItem Index
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=lstSource,lstSource,-1,Clear
Public Sub SourceClear()
Attribute SourceClear.VB_Description = "清除控件或系统剪贴板的内容。"
    lstSource.Clear
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=lstObject,lstObject,-1,Clear
Public Sub ObjectClear()
Attribute ObjectClear.VB_Description = "清除控件或系统剪贴板的内容。"
    lstObject.Clear
End Sub

Private Sub lstObject_Click()

  If lstObject.ListIndex = -1 Then '大于0时
     Toolbar.Buttons(4).Enabled = False
     Toolbar.Buttons(5).Enabled = False
    Else
     Toolbar.Buttons(4).Enabled = True
     Toolbar.Buttons(5).Enabled = True
  End If
  
End Sub

Private Sub lstObject_DblClick()

  Call cmdLeftOne_Click
  
End Sub

Private Sub lstSource_Click()

  If lstSource.ListIndex = -1 Then '大于0时
     Toolbar.Buttons(1).Enabled = False
     Toolbar.Buttons(2).Enabled = False
    Else
     Toolbar.Buttons(1).Enabled = True
     Toolbar.Buttons(2).Enabled = True
  End If
    
End Sub

Private Sub lstSource_DblClick()

   Call cmdRightOne_Click
   
End Sub

Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button)

  Select Case Button.Key
  
   Case "RightOne"
     Call cmdRightOne_Click
   Case "RightAll"
     Call cmdRightAll_Click
   Case "LeftAll"
     Call cmdLeftAll_Click
   Case "LeftOne"
     Call cmdLeftOne_Click
     
  End Select
   
End Sub

'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Dim Index As Integer

'    lstSource.BackColor = PropBag.ReadProperty("BackColor", &H80000005)
'    lstObject.ForeColor = PropBag.ReadProperty("ForeColor", &H80000008)
'    Set lstSource.Font = PropBag.ReadProperty("Font", Ambient.Font)
'TO DO: 你映射到的成员包含数据数组。
'   您必须提供代码来保持数组。
'   以下显示原型行:
    lstSource.List(Index) = PropBag.ReadProperty("SourceList" & Index, "0")
'TO DO: 你映射到的成员包含数据数组。
'   您必须提供代码来保持数组。
'   以下显示原型行:
    lstObject.List(Index) = PropBag.ReadProperty("ObjectList" & Index, "0")
    lstSource.ListIndex = PropBag.ReadProperty("SouceListIndex", 0)
    lstObject.ListIndex = PropBag.ReadProperty("ObjectListIndex", 0)
'    m_Sorted = PropBag.ReadProperty("Sorted", m_def_Sorted)
'    lstSource.BackColor = PropBag.ReadProperty("Source_BackColor", &H80000005)
'    lstSource.ForeColor = PropBag.ReadProperty("Source_ForeColor", &H80000008)
'    Set lstSource.Font = PropBag.ReadProperty("Source_Font", Ambient.Font)
'    Set lstObject.Font = PropBag.ReadProperty("Object_Font", Ambient.Font)
'    lstObject.BackColor = PropBag.ReadProperty("Object_BackColor", &H80000005)
'    lstObject.ForeColor = PropBag.ReadProperty("Object_ForeColor", &H80000008)
    UserControl.BackColor = PropBag.ReadProperty("BackColor", &HC0C0C0)
'    m_Source_BackColor = PropBag.ReadProperty("Source_BackColor", m_def_Source_BackColor)
'    m_Source_ForeColor = PropBag.ReadProperty("Source_ForeColor", m_def_Source_ForeColor)
'    Set m_Source_Font = PropBag.ReadProperty("Source_Font", Ambient.Font)
'    Set m_Object_Font = PropBag.ReadProperty("Object_Font", Ambient.Font)
'    m_Object_BackColor = PropBag.ReadProperty("Object_BackColor", m_def_Object_BackColor)
'    m_Object_ForeColor = PropBag.ReadProperty("Object_ForeColor", m_def_Object_ForeColor)
    lstSource.BackColor = PropBag.ReadProperty("Source_BackColor", &H80000005)
    lstSource.ForeColor = PropBag.ReadProperty("Source_ForeColor", &H80000008)
    Set lstSource.Font = PropBag.ReadProperty("Source_Font", Ambient.Font)
    Set lstObject.Font = PropBag.ReadProperty("Object_Font", Ambient.Font)
    lstObject.BackColor = PropBag.ReadProperty("Object_BackColor", &H80000005)
    lstObject.ForeColor = PropBag.ReadProperty("Object_ForeColor", &H80000008)
End Sub

Private Sub UserControl_Resize()

   UserControl.Width = 6840
   UserControl.Height = 4710
   
End Sub

Private Sub UserControl_Show()

  If lstSource.ListIndex = -1 Then '大于0时
     Toolbar.Buttons(1).Enabled = False
    ElseIf lstSource.ListCount > 0 Then
     Toolbar.Buttons(2).Enabled = True
     Else
     Toolbar.Buttons(2).Enabled = False
  End If
  
  If lstObject.ListIndex = -1 Then
     Toolbar.Buttons(4).Enabled = False
    ElseIf lstObject.ListCount > 0 Then
     Toolbar.Buttons(5).Enabled = True
    Else
     Toolbar.Buttons(5).Enabled = False
  End If
    
End Sub

'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Dim Index As Integer

'    Call PropBag.WriteProperty("BackColor", lstSource.BackColor, &H80000005)
'    Call PropBag.WriteProperty("ForeColor", lstObject.ForeColor, &H80000008)
'    Call PropBag.WriteProperty("Font", lstSource.Font, Ambient.Font)
'TO DO: 你映射到的成员包含数据数组。
'   您必须提供代码来保持数组。
'   以下显示原型行:
    Call PropBag.WriteProperty("SourceList" & Index, lstSource.List(Index), "0")
'TO DO: 你映射到的成员包含数据数组。
'   您必须提供代码来保持数组。
'   以下显示原型行:
    Call PropBag.WriteProperty("ObjectList" & Index, lstObject.List(Index), "0")
    Call PropBag.WriteProperty("SouceListIndex", lstSource.ListIndex, 0)
    Call PropBag.WriteProperty("ObjectListIndex", lstObject.ListIndex, 0)
'    Call PropBag.WriteProperty("Sorted", m_Sorted, m_def_Sorted)
    Call PropBag.WriteProperty("Source_BackColor", lstSource.BackColor, &H80000005)
    Call PropBag.WriteProperty("Source_ForeColor", lstSource.ForeColor, &H80000008)
    Call PropBag.WriteProperty("Source_Font", lstSource.Font, Ambient.Font)
    Call PropBag.WriteProperty("Object_Font", lstObject.Font, Ambient.Font)
    Call PropBag.WriteProperty("Object_BackColor", lstObject.BackColor, &H80000005)
    Call PropBag.WriteProperty("Object_ForeColor", lstObject.ForeColor, &H80000008)
End Sub


'为用户控件初始化属性
Private Sub UserControl_InitProperties()
'    m_Sorted = m_def_Sorted
'    m_Source_BackColor = m_def_Source_BackColor
'    m_Source_ForeColor = m_def_Source_ForeColor
'    Set m_Source_Font = Ambient.Font
'    Set m_Object_Font = Ambient.Font
'    m_Object_BackColor = m_def_Object_BackColor
'    m_Object_ForeColor = m_def_Object_ForeColor
End Sub
'
''注意！不要删除或修改下列被注释的行！
''MappingInfo=lstSource,lstSource,-1,BackColor
'Public Property Get Source_BackColor() As OLE_COLOR
'    Source_BackColor = lstSource.BackColor
'End Property
'
'Public Property Let Source_BackColor(ByVal New_Source_BackColor As OLE_COLOR)
'    lstSource.BackColor() = New_Source_BackColor
'    PropertyChanged "Source_BackColor"
'End Property
'
''注意！不要删除或修改下列被注释的行！
''MappingInfo=lstSource,lstSource,-1,ForeColor
'Public Property Get Source_ForeColor() As OLE_COLOR
'    Source_ForeColor = lstSource.ForeColor
'End Property
'
'Public Property Let Source_ForeColor(ByVal New_Source_ForeColor As OLE_COLOR)
'    lstSource.ForeColor() = New_Source_ForeColor
'    PropertyChanged "Source_ForeColor"
'End Property
'
''注意！不要删除或修改下列被注释的行！
''MappingInfo=lstSource,lstSource,-1,Font
'Public Property Get Source_Font() As Font
'    Set Source_Font = lstSource.Font
'End Property
'
'Public Property Set Source_Font(ByVal New_Source_Font As Font)
'    Set lstSource.Font = New_Source_Font
'    PropertyChanged "Source_Font"
'End Property
'
''注意！不要删除或修改下列被注释的行！
''MappingInfo=lstObject,lstObject,-1,Font
'Public Property Get Object_Font() As Font
'    Set Object_Font = lstObject.Font
'End Property
'
'Public Property Set Object_Font(ByVal New_Object_Font As Font)
'    Set lstObject.Font = New_Object_Font
'    PropertyChanged "Object_Font"
'End Property
'
''注意！不要删除或修改下列被注释的行！
''MappingInfo=lstObject,lstObject,-1,BackColor
'Public Property Get Object_BackColor() As OLE_COLOR
'    Object_BackColor = lstObject.BackColor
'End Property
'
'Public Property Let Object_BackColor(ByVal New_Object_BackColor As OLE_COLOR)
'    lstObject.BackColor() = New_Object_BackColor
'    PropertyChanged "Object_BackColor"
'End Property
'
''注意！不要删除或修改下列被注释的行！
''MappingInfo=lstObject,lstObject,-1,ForeColor
'Public Property Get Object_ForeColor() As OLE_COLOR
'    Object_ForeColor = lstObject.ForeColor
'End Property
'
'Public Property Let Object_ForeColor(ByVal New_Object_ForeColor As OLE_COLOR)
'    lstObject.ForeColor() = New_Object_ForeColor
'    PropertyChanged "Object_ForeColor"
'End Property
'
'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,BackColor
Public Property Get BackColor() As OLE_COLOR
Attribute BackColor.VB_Description = "返回/设置对象中文本和图形的背景色。"
    BackColor = UserControl.BackColor
End Property

Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
    UserControl.BackColor() = New_BackColor
    PropertyChanged "BackColor"
End Property
'
''注意！不要删除或修改下列被注释的行！
''MemberInfo=10,0,0,0
'Public Property Get Source_BackColor() As OLE_COLOR
'    Source_BackColor = m_Source_BackColor
'End Property
'
'Public Property Let Source_BackColor(ByVal New_Source_BackColor As OLE_COLOR)
'    m_Source_BackColor = New_Source_BackColor
'    PropertyChanged "Source_BackColor"
'End Property
'
''注意！不要删除或修改下列被注释的行！
''MemberInfo=10,0,0,0
'Public Property Get Source_ForeColor() As OLE_COLOR
'    Source_ForeColor = m_Source_ForeColor
'End Property
'
'Public Property Let Source_ForeColor(ByVal New_Source_ForeColor As OLE_COLOR)
'    m_Source_ForeColor = New_Source_ForeColor
'    PropertyChanged "Source_ForeColor"
'End Property
'
''注意！不要删除或修改下列被注释的行！
''MemberInfo=6,0,0,0
'Public Property Get Source_Font() As Font
'    Set Source_Font = m_Source_Font
'End Property
'
'Public Property Set Source_Font(ByVal New_Source_Font As Font)
'    Set m_Source_Font = New_Source_Font
'    PropertyChanged "Source_Font"
'End Property
'
''注意！不要删除或修改下列被注释的行！
''MemberInfo=6,0,0,0
'Public Property Get Object_Font() As Font
'    Set Object_Font = m_Object_Font
'End Property
'
'Public Property Set Object_Font(ByVal New_Object_Font As Font)
'    Set m_Object_Font = New_Object_Font
'    PropertyChanged "Object_Font"
'End Property
'
''注意！不要删除或修改下列被注释的行！
''MemberInfo=10,0,0,0
'Public Property Get Object_BackColor() As OLE_COLOR
'    Object_BackColor = m_Object_BackColor
'End Property
'
'Public Property Let Object_BackColor(ByVal New_Object_BackColor As OLE_COLOR)
'    m_Object_BackColor = New_Object_BackColor
'    PropertyChanged "Object_BackColor"
'End Property
'
''注意！不要删除或修改下列被注释的行！
''MemberInfo=10,0,0,0
'Public Property Get Object_ForeColor() As OLE_COLOR
'    Object_ForeColor = m_Object_ForeColor
'End Property
'
'Public Property Let Object_ForeColor(ByVal New_Object_ForeColor As OLE_COLOR)
'    m_Object_ForeColor = New_Object_ForeColor
'    PropertyChanged "Object_ForeColor"
'End Property
'
'注意！不要删除或修改下列被注释的行！
'MappingInfo=lstSource,lstSource,-1,BackColor
Public Property Get Source_BackColor() As OLE_COLOR
Attribute Source_BackColor.VB_Description = "返回/设置对象中文本和图形的背景色。"
    Source_BackColor = lstSource.BackColor
End Property

Public Property Let Source_BackColor(ByVal New_Source_BackColor As OLE_COLOR)
    lstSource.BackColor() = New_Source_BackColor
    PropertyChanged "Source_BackColor"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=lstSource,lstSource,-1,ForeColor
Public Property Get Source_ForeColor() As OLE_COLOR
Attribute Source_ForeColor.VB_Description = "返回/设置对象中文本和图形的前景色。"
    Source_ForeColor = lstSource.ForeColor
End Property

Public Property Let Source_ForeColor(ByVal New_Source_ForeColor As OLE_COLOR)
    lstSource.ForeColor() = New_Source_ForeColor
    PropertyChanged "Source_ForeColor"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=lstSource,lstSource,-1,Font
Public Property Get Source_Font() As Font
Attribute Source_Font.VB_Description = "返回一个 Font 对象。"
    Set Source_Font = lstSource.Font
End Property

Public Property Set Source_Font(ByVal New_Source_Font As Font)
    Set lstSource.Font = New_Source_Font
    PropertyChanged "Source_Font"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=lstObject,lstObject,-1,Font
Public Property Get Object_Font() As Font
Attribute Object_Font.VB_Description = "返回一个 Font 对象。"
    Set Object_Font = lstObject.Font
End Property

Public Property Set Object_Font(ByVal New_Object_Font As Font)
    Set lstObject.Font = New_Object_Font
    PropertyChanged "Object_Font"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=lstObject,lstObject,-1,BackColor
Public Property Get Object_BackColor() As OLE_COLOR
Attribute Object_BackColor.VB_Description = "返回/设置对象中文本和图形的背景色。"
    Object_BackColor = lstObject.BackColor
End Property

Public Property Let Object_BackColor(ByVal New_Object_BackColor As OLE_COLOR)
    lstObject.BackColor() = New_Object_BackColor
    PropertyChanged "Object_BackColor"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=lstObject,lstObject,-1,ForeColor
Public Property Get Object_ForeColor() As OLE_COLOR
Attribute Object_ForeColor.VB_Description = "返回/设置对象中文本和图形的前景色。"
    Object_ForeColor = lstObject.ForeColor
End Property

Public Property Let Object_ForeColor(ByVal New_Object_ForeColor As OLE_COLOR)
    lstObject.ForeColor() = New_Object_ForeColor
    PropertyChanged "Object_ForeColor"
End Property