usrctrcombo.ctl

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

    Point = UserControl.Point(X, Y)
End Function

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,Picture
Public Property Get Picture() As Picture
Attribute Picture.VB_Description = "返回/设置控件中显示的图形。"
    Set Picture = UserControl.Picture
End Property

Public Property Set Picture(ByVal New_Picture As Picture)
    Set UserControl.Picture = New_Picture
    PropertyChanged "Picture"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,PaletteMode
Public Property Get PaletteMode() As Integer
Attribute PaletteMode.VB_Description = "返回/设置一个值，决定对于对象的控件使用哪个调色板。"
    PaletteMode = UserControl.PaletteMode
End Property

Public Property Let PaletteMode(ByVal New_PaletteMode As Integer)
    UserControl.PaletteMode() = New_PaletteMode
    PropertyChanged "PaletteMode"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,Palette
Public Property Get Palette() As Picture
Attribute Palette.VB_Description = "返回/设置一个图象，包含了当 PaletteMode 被设置为 Custom 时用于调色板的对象。"
    Set Palette = UserControl.Palette
End Property

Public Property Set Palette(ByVal New_Palette As Picture)
    Set UserControl.Palette = New_Palette
    PropertyChanged "Palette"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,PaintPicture
Public Sub PaintPicture(ByVal Picture As Picture, ByVal X1 As Single, ByVal Y1 As Single, Optional ByVal Width1 As Variant, Optional ByVal Height1 As Variant, Optional ByVal X2 As Variant, Optional ByVal Y2 As Variant, Optional ByVal Width2 As Variant, Optional ByVal Height2 As Variant, Optional ByVal Opcode As Variant)
Attribute PaintPicture.VB_Description = "画 Form、PictureBox、或 Printer 对象上的图形文件的内容。"
    UserControl.PaintPicture Picture, X1, Y1, Width1, Height1, X2, Y2, Width2, Height2, Opcode
End Sub

Private Sub UserControl_Paint()
    RaiseEvent Paint
End Sub

Private Sub UsrCtrCombo_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    RaiseEvent OLEStartDrag(Data, AllowedEffects)
End Sub

Private Sub UsrCtrCombo_OLESetData(Data As DataObject, DataFormat As Integer)
    RaiseEvent OLESetData(Data, DataFormat)
End Sub

Private Sub UsrCtrCombo_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
    RaiseEvent OLEGiveFeedback(Effect, DefaultCursors)
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,OLEDropMode
Public Property Get OLEDropMode() As Integer
Attribute OLEDropMode.VB_Description = "返回/设置该对象是否能作为一个 OLE 放下目标。"
    OLEDropMode = UsrCtrCombo.OLEDropMode
End Property

Public Property Let OLEDropMode(ByVal New_OLEDropMode As Integer)
    UsrCtrCombo.OLEDropMode() = New_OLEDropMode
    PropertyChanged "OLEDropMode"
End Property

Private Sub UsrCtrCombo_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
    RaiseEvent OLEDragOver(Data, Effect, Button, Shift, X, Y, State)
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,OLEDragMode
Public Property Get OLEDragMode() As Integer
Attribute OLEDragMode.VB_Description = "返回/设置该对象是否能作为 OLE 拖/放源，以及该进程是自动启动，还是在程序控制下启动。"
    OLEDragMode = UsrCtrCombo.OLEDragMode
End Property

Public Property Let OLEDragMode(ByVal New_OLEDragMode As Integer)
    UsrCtrCombo.OLEDragMode() = New_OLEDragMode
    PropertyChanged "OLEDragMode"
End Property

Private Sub UsrCtrCombo_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent OLEDragDrop(Data, Effect, Button, Shift, X, Y)
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,OLEDrag
Public Sub OLEDrag()
Attribute OLEDrag.VB_Description = "以给定控件作为源，启动一个 OLE 拖/放事件。"
    UsrCtrCombo.OLEDrag
End Sub

Private Sub UsrCtrCombo_OLECompleteDrag(Effect As Long)
    RaiseEvent OLECompleteDrag(Effect)
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,NewIndex
Public Property Get NewIndex() As Integer
Attribute NewIndex.VB_Description = "返回添加到控件中的最近一个项目的索引。"
    NewIndex = UsrCtrCombo.NewIndex
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,MousePointer
Public Property Get MousePointer() As Integer
Attribute MousePointer.VB_Description = "返回/设置当鼠标经过对象某一部分时鼠标的指针类型。"
    MousePointer = UsrCtrCombo.MousePointer
End Property

Public Property Let MousePointer(ByVal New_MousePointer As Integer)
    UsrCtrCombo.MousePointer() = New_MousePointer
    PropertyChanged "MousePointer"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,MouseIcon
Public Property Get MouseIcon() As Picture
Attribute MouseIcon.VB_Description = "设置一个自定义鼠标图标。"
    Set MouseIcon = UsrCtrCombo.MouseIcon
End Property

Public Property Set MouseIcon(ByVal New_MouseIcon As Picture)
    Set UsrCtrCombo.MouseIcon = New_MouseIcon
    PropertyChanged "MouseIcon"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,MaskPicture
Public Property Get MaskPicture() As Picture
Attribute MaskPicture.VB_Description = "返回/设置指定当 BackStyle 为 0 (transparent) 时，可用鼠标电中或可画区域中的图片。"
    Set MaskPicture = UserControl.MaskPicture
End Property

Public Property Set MaskPicture(ByVal New_MaskPicture As Picture)
    Set UserControl.MaskPicture = New_MaskPicture
    PropertyChanged "MaskPicture"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,MaskColor
Public Property Get MaskColor() As Long
Attribute MaskColor.VB_Description = "返回/设置指定在 MaskPicture 的透明区域的颜色。"
    MaskColor = UserControl.MaskColor
End Property

Public Property Let MaskColor(ByVal New_MaskColor As Long)
    UserControl.MaskColor() = New_MaskColor
    PropertyChanged "MaskColor"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,Locked
Public Property Get Locked() As Boolean
Attribute Locked.VB_Description = "决定控件是否可编辑。"
    Locked = UsrCtrCombo.Locked
End Property

Public Property Let Locked(ByVal New_Locked As Boolean)
    UsrCtrCombo.Locked() = New_Locked
    PropertyChanged "Locked"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,ListIndex
Public Property Get ListIndex() As Integer
Attribute ListIndex.VB_Description = "返回/设置该控件中当前选定项目的索引。"
    ListIndex = UsrCtrCombo.ListIndex
End Property

Public Property Let ListIndex(ByVal New_ListIndex As Integer)
    UsrCtrCombo.ListIndex() = New_ListIndex
    PropertyChanged "ListIndex"
End Property

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

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

Public Property Let List(ByVal Index As Integer, ByVal New_List As String)
    UsrCtrCombo.List(Index) = New_List
    PropertyChanged "List"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,Line
Public Sub Line(ByVal Flags As Integer, ByVal X1 As Single, ByVal Y1 As Single, ByVal X2 As Single, ByVal Y2 As Single, ByVal Color As Long)
Attribute Line.VB_Description = "在对象上画直线或矩形。"
    'UserControl.Line Flags,X1,Y1,X2,Y2,Color
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,ItemData
Public Property Get ItemData(ByVal Index As Integer) As Long
Attribute ItemData.VB_Description = "返回/设置 ComboBox 或 ListBox 控件中每一个项的指定号。"
    ItemData = UsrCtrCombo.ItemData(Index)
End Property

Public Property Let ItemData(ByVal Index As Integer, ByVal New_ItemData As Long)
    UsrCtrCombo.ItemData(Index) = New_ItemData
    PropertyChanged "ItemData"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,IntegralHeight
Public Property Get IntegralHeight() As Boolean
Attribute IntegralHeight.VB_Description = "返回/设置一个值，指出控件是否显示部分项目。"
    IntegralHeight = UsrCtrCombo.IntegralHeight
End Property

Private Sub UserControl_InitProperties()
    RaiseEvent InitProperties
    m_AutoSelect = m_def_AutoSelect
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,Image
Public Property Get Image() As Picture
Attribute Image.VB_Description = "返回一个 Microsoft Windows 提供的句柄到一个持久性位图。"
    Set Image = UserControl.Image
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,HyperLink
Public Property Get HyperLink() As HyperLink
Attribute HyperLink.VB_Description = "返回一个用于浏览器样式定位的 Hyperlink 对象。"
    Set HyperLink = UserControl.HyperLink
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,hWnd
Public Property Get hWnd() As Long
Attribute hWnd.VB_Description = "返回一个句柄到(from Microsoft Windows)一个对象的窗口。"
    hWnd = UsrCtrCombo.hWnd
End Property

Private Sub UserControl_HitTest(X As Single, Y As Single, HitResult As Integer)
    RaiseEvent HitTest(X, Y, HitResult)
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,HitBehavior
Public Property Get HitBehavior() As Integer
Attribute HitBehavior.VB_Description = "指出无窗口 UserControl 使用哪种自动击点检测。"
    HitBehavior = UserControl.HitBehavior
End Property

Public Property Let HitBehavior(ByVal New_HitBehavior As Integer)
    UserControl.HitBehavior() = New_HitBehavior
    PropertyChanged "HitBehavior"
End Property

Private Sub UserControl_Hide()
    RaiseEvent Hide
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,hDC
Public Property Get hDC() As Long
Attribute hDC.VB_Description = "返回一个句柄(从 Microsoft Windows)到对象的设备上下文。"
    hDC = UserControl.hDC
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,HasDC
Public Property Get HasDC() As Boolean
Attribute HasDC.VB_Description = "决定是否为该控件分配了唯一的显示上下文。"
    HasDC = UserControl.HasDC
End Property

Private Sub UserControl_GetDataMember(DataMember As String, Data As Object)
    RaiseEvent GetDataMember(DataMember, Data)
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,FontUnderline
Public Property Get FontUnderline() As Boolean
Attribute FontUnderline.VB_Description = "返回/设置下划线字体样式。"
    FontUnderline = UsrCtrCombo.FontUnderline
End Property

Public Property Let FontUnderline(ByVal New_FontUnderline As Boolean)
    UsrCtrCombo.FontUnderline() = New_FontUnderline
    PropertyChanged "FontUnderline"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,FontTransparent
Public Property Get FontTransparent() As Boolean
Attribute FontTransparent.VB_Description = "返回/设置一个值，决定是否显示窗体、打印机或 PictureBox 上的背景文本/图形。"
    FontTransparent = UserControl.FontTransparent
End Property

Public Property Let FontTransparent(ByVal New_FontTransparent As Boolean)
    UserControl.FontTransparent() = New_FontTransparent
    PropertyChanged "FontTransparent"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,FontStrikethru