usrctrcombo.ctl

一个功能强大、程序条理分明的学生学籍管理系统

End Sub

Private Sub UsrCtrCombo_LostFocus()
    m_AutoSelect = False
End Sub

Private Sub UsrCtrCombo_Validate(Cancel As Boolean)
    RaiseEvent Validate(Cancel)
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,TopIndex
Public Property Get TopIndex() As Integer
Attribute TopIndex.VB_Description = "返回/设置在控件中显示在最顶端的项目。"
    TopIndex = UsrCtrCombo.TopIndex
End Property

Public Property Let TopIndex(ByVal New_TopIndex As Integer)
    UsrCtrCombo.TopIndex() = New_TopIndex
    PropertyChanged "TopIndex"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,ToolTipText
Public Property Get ToolTipText() As String
Attribute ToolTipText.VB_Description = "返回/设置当鼠标在控件上暂停时显示的文本。"
    ToolTipText = UsrCtrCombo.ToolTipText
End Property

Public Property Let ToolTipText(ByVal New_ToolTipText As String)
    UsrCtrCombo.ToolTipText() = New_ToolTipText
    PropertyChanged "ToolTipText"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,TextWidth
Public Function TextWidth(ByVal Str As String) As Single
Attribute TextWidth.VB_Description = "返回文本串的宽度作为当前打印字体的宽度。"
    TextWidth = UserControl.TextWidth(Str)
End Function

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,TextHeight
Public Function TextHeight(ByVal Str As String) As Single
Attribute TextHeight.VB_Description = "返回文本串的高度作为当前打印字体的高度。"
    TextHeight = UserControl.TextHeight(Str)
End Function

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,Text
Public Property Get Text() As String
Attribute Text.VB_Description = "返回/设置控件中包含的文本。"
    Text = UsrCtrCombo.Text
End Property

Public Property Let Text(ByVal New_Text As String)
    UsrCtrCombo.Text() = New_Text
    PropertyChanged "Text"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,Style
Public Property Get Style() As Integer
Attribute Style.VB_Description = "返回/设置一个值，决定控件类型及列表框部分的行为。"
    Style = UsrCtrCombo.Style
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,Sorted
Public Property Get Sorted() As Boolean
Attribute Sorted.VB_Description = "指出控件元素是否自动按字母顺序排序。"
    Sorted = UsrCtrCombo.Sorted
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,Size
Public Sub Size(ByVal Width As Single, ByVal Height As Single)
Attribute Size.VB_Description = "改变一个用户控件的宽度和高度。"
    UserControl.Size Width, Height
End Sub

Private Sub UserControl_Show()
    RaiseEvent Show
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,SelText
Public Property Get SelText() As String
Attribute SelText.VB_Description = "返回/设置包含当前选定文本的字符串。"
    SelText = UsrCtrCombo.SelText
End Property

Public Property Let SelText(ByVal New_SelText As String)
    UsrCtrCombo.SelText() = New_SelText
    PropertyChanged "SelText"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,SelStart
Public Property Get SelStart() As Long
Attribute SelStart.VB_Description = "返回/设置选定文本的起始点。"
    SelStart = UsrCtrCombo.SelStart
End Property

Public Property Let SelStart(ByVal New_SelStart As Long)
    UsrCtrCombo.SelStart() = New_SelStart
    PropertyChanged "SelStart"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,SelLength
Public Property Get SelLength() As Long
Attribute SelLength.VB_Description = "返回/设置选定的字符数。"
    SelLength = UsrCtrCombo.SelLength
End Property

Public Property Let SelLength(ByVal New_SelLength As Long)
    UsrCtrCombo.SelLength() = New_SelLength
    PropertyChanged "SelLength"
End Property

Private Sub UserControl_Scroll()
    RaiseEvent Scroll
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,ScaleY
Public Function ScaleY(ByVal Height As Single, Optional ByVal FromScale As Variant, Optional ByVal ToScale As Variant) As Single
Attribute ScaleY.VB_Description = "转换不同度量单位的窗体、图片框或打印机的高度值。"
    ScaleY = UserControl.ScaleY(Height, FromScale, ToScale)
End Function

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,ScaleX
Public Function ScaleX(ByVal Width As Single, Optional ByVal FromScale As Variant, Optional ByVal ToScale As Variant) As Single
Attribute ScaleX.VB_Description = "转换不同度量单位的窗体、图片框或打印机的宽度值。"
    ScaleX = UserControl.ScaleX(Width, FromScale, ToScale)
End Function

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,ScaleWidth
Public Property Get ScaleWidth() As Single
Attribute ScaleWidth.VB_Description = "返回/设置对象内部的水平度量单位数。"
    ScaleWidth = UserControl.ScaleWidth
End Property

Public Property Let ScaleWidth(ByVal New_ScaleWidth As Single)
    UserControl.ScaleWidth() = New_ScaleWidth
    PropertyChanged "ScaleWidth"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,ScaleTop
Public Property Get ScaleTop() As Single
Attribute ScaleTop.VB_Description = "返回/设置对象上边界的垂直坐标。"
    ScaleTop = UserControl.ScaleTop
End Property

Public Property Let ScaleTop(ByVal New_ScaleTop As Single)
    UserControl.ScaleTop() = New_ScaleTop
    PropertyChanged "ScaleTop"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,ScaleMode
Public Property Get ScaleMode() As Integer
Attribute ScaleMode.VB_Description = "返回/设置一个值，指示当使用 graphics 方法或可定位的控件时，对象坐标的度量单位。"
    ScaleMode = UserControl.ScaleMode
End Property

Public Property Let ScaleMode(ByVal New_ScaleMode As Integer)
    UserControl.ScaleMode() = New_ScaleMode
    PropertyChanged "ScaleMode"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,ScaleLeft
Public Property Get ScaleLeft() As Single
Attribute ScaleLeft.VB_Description = "返回/设置对象左边界的水平坐标。"
    ScaleLeft = UserControl.ScaleLeft
End Property

Public Property Let ScaleLeft(ByVal New_ScaleLeft As Single)
    UserControl.ScaleLeft() = New_ScaleLeft
    PropertyChanged "ScaleLeft"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,ScaleHeight
Public Property Get ScaleHeight() As Single
Attribute ScaleHeight.VB_Description = "返回/设置对象内部的垂直度量的单位数。"
    ScaleHeight = UserControl.ScaleHeight
End Property

Public Property Let ScaleHeight(ByVal New_ScaleHeight As Single)
    UserControl.ScaleHeight() = New_ScaleHeight
    PropertyChanged "ScaleHeight"
End Property

' "Scale" 后面的下划线是必须的，
'因为它是 VBA 中的保留字。
'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,Scale
Public Sub Scale_(Optional X1 As Variant, Optional Y1 As Variant, Optional X2 As Variant, Optional Y2 As Variant)
    UserControl.Scale (X1, Y1)-(X2, Y2)
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,RightToLeft
Public Property Get RightToLeft() As Boolean
Attribute RightToLeft.VB_Description = "决定文本显示方向并控制在双向系统中的所显示的外观。"
    RightToLeft = UsrCtrCombo.RightToLeft
End Property

Public Property Let RightToLeft(ByVal New_RightToLeft As Boolean)
    UsrCtrCombo.RightToLeft() = New_RightToLeft
    PropertyChanged "RightToLeft"
End Property

Private Sub UserControl_Resize()
    RaiseEvent Resize
    With UserControl
        'UsrCtrCombo.Height = .ScaleHeight
        If .ScaleWidth - UsrCtrCombo.Left > 0 Then
            UsrCtrCombo.Width = .ScaleWidth - UsrCtrCombo.Left
        End If
    End With
End Sub

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

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Dim Index As Integer
    RaiseEvent ReadProperties(PropBag)
    '自己定义的属性
    m_AutoSelect = PropBag.ReadProperty("AuotoSelect", True)
    
    UsrCtrCombo.BackColor = PropBag.ReadProperty("BackColor", &H80000005)
    UsrCtrCombo.ForeColor = PropBag.ReadProperty("ForeColor", &H80000008)
    UsrCtrCombo.Enabled = PropBag.ReadProperty("Enabled", True)
    Set UsrCtrCombo.Font = PropBag.ReadProperty("Font", Ambient.Font)
    UserControl.BackStyle = PropBag.ReadProperty("BackStyle", 1)
    UserControl.BorderStyle = PropBag.ReadProperty("BorderStyle", 0)
    UsrCtrCombo.WhatsThisHelpID = PropBag.ReadProperty("WhatsThisHelpID", 0)
    UsrCtrCombo.ToolTipText = PropBag.ReadProperty("ToolTipText", "")
    UsrCtrCombo.Text = PropBag.ReadProperty("Text", "")
    UsrCtrCombo.SelText = PropBag.ReadProperty("SelText", "")
    UsrCtrCombo.SelStart = PropBag.ReadProperty("SelStart", 0)
    UsrCtrCombo.SelLength = PropBag.ReadProperty("SelLength", 0)
    UserControl.ScaleWidth = PropBag.ReadProperty("ScaleWidth", 4800)
    UserControl.ScaleTop = PropBag.ReadProperty("ScaleTop", 0)
    UserControl.ScaleMode = PropBag.ReadProperty("ScaleMode", 1)
    UserControl.ScaleLeft = PropBag.ReadProperty("ScaleLeft", 0)
    UserControl.ScaleHeight = PropBag.ReadProperty("ScaleHeight", 3600)
    UsrCtrCombo.RightToLeft = PropBag.ReadProperty("RightToLeft", False)
    Set Picture = PropBag.ReadProperty("Picture", Nothing)
    UserControl.PaletteMode = PropBag.ReadProperty("PaletteMode", 3)
    Set Palette = PropBag.ReadProperty("Palette", Nothing)
    UsrCtrCombo.OLEDropMode = PropBag.ReadProperty("OLEDropMode", 0)
    UsrCtrCombo.OLEDragMode = PropBag.ReadProperty("OLEDragMode", 0)
    UsrCtrCombo.MousePointer = PropBag.ReadProperty("MousePointer", 0)
    Set MouseIcon = PropBag.ReadProperty("MouseIcon", Nothing)
    Set MaskPicture = PropBag.ReadProperty("MaskPicture", Nothing)
    UserControl.MaskColor = PropBag.ReadProperty("MaskColor", -2147483633)
    UsrCtrCombo.Locked = PropBag.ReadProperty("Locked", False)
'TO DO: 你映射到的成员包含数据数组。
'   您必须提供代码来保持数组。
'   以下显示原型行:
    UsrCtrCombo.List(Index) = PropBag.ReadProperty("List" & Index, "")
'TO DO: 你映射到的成员包含数据数组。
'   您必须提供代码来保持数组。
'   以下显示原型行:
    UsrCtrCombo.ItemData(Index) = PropBag.ReadProperty("ItemData" & Index, 0)
    UserControl.HitBehavior = PropBag.ReadProperty("HitBehavior", 1)
    UsrCtrCombo.FontUnderline = PropBag.ReadProperty("FontUnderline", 0)
    UserControl.FontTransparent = PropBag.ReadProperty("FontTransparent", True)
    UsrCtrCombo.FontStrikethru = PropBag.ReadProperty("FontStrikethru", 0)
    UsrCtrCombo.FontItalic = PropBag.ReadProperty("FontItalic", 0)
    UsrCtrCombo.FontBold = PropBag.ReadProperty("FontBold", 0)
    UserControl.FillStyle = PropBag.ReadProperty("FillStyle", 1)
    UserControl.FillColor = PropBag.ReadProperty("FillColor", &H0&)
    UserControl.DrawWidth = PropBag.ReadProperty("DrawWidth", 1)
    UserControl.DrawStyle = PropBag.ReadProperty("DrawStyle", 0)
    UserControl.DrawMode = PropBag.ReadProperty("DrawMode", 13)
    UserControl.CurrentY = PropBag.ReadProperty("CurrentY", 0)
    UserControl.CurrentX = PropBag.ReadProperty("CurrentX", 0)
    UserControl.ClipControls = PropBag.ReadProperty("ClipControls", True)
    UserControl.ClipBehavior = PropBag.ReadProperty("ClipBehavior", 1)
    UsrCtrCombo.CausesValidation = PropBag.ReadProperty("CausesValidation", True)
    UserControl.AutoRedraw = PropBag.ReadProperty("AutoRedraw", False)
    UsrCtrCombo.Appearance = PropBag.ReadProperty("Appearance", 1)
End Sub

' "PSet" 后面的下划线是必须的，
'因为它是 VBA 中的保留字。
'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,PSet
Public Sub PSet_(X As Single, Y As Single, Color As Long)
    UserControl.PSet Step(X, Y), Color
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,PopupMenu
Public Sub PopupMenu(ByVal Menu As Object, Optional ByVal Flags As Variant, Optional ByVal X As Variant, Optional ByVal Y As Variant, Optional ByVal DefaultMenu As Variant)
Attribute PopupMenu.VB_Description = "显示一个 MDIForm 或 Form 对象上的弹出菜单。"
    UserControl.PopupMenu Menu, Flags, X, Y, DefaultMenu
End Sub

' "Point" 后面的下划线是必须的，
'因为它是 VBA 中的保留字。
'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,Point
Public Function Point(X As Single, Y As Single) As Long
Attribute Point.VB_Description = "返回一个长整型值，作为 Form 或 PictureBox 对象上指定点的 RGB 颜色值。"