usrctrcombo.ctl

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

Public Property Get FontStrikethru() As Boolean
Attribute FontStrikethru.VB_Description = "返回/设置删除线字体样式。"
    FontStrikethru = UsrCtrCombo.FontStrikethru
End Property

Public Property Let FontStrikethru(ByVal New_FontStrikethru As Boolean)
    UsrCtrCombo.FontStrikethru() = New_FontStrikethru
    PropertyChanged "FontStrikethru"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,FontSize
Public Property Get FontSize() As Single
Attribute FontSize.VB_Description = "指定给定层的每一行出现的字体大小(以磅为单位)。"
    FontSize = UsrCtrCombo.FontSize
End Property

Public Property Let FontSize(ByVal New_FontSize As Single)
    UsrCtrCombo.FontSize() = New_FontSize
    PropertyChanged "FontSize"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,FontName
Public Property Get FontName() As String
Attribute FontName.VB_Description = "指定给定层的每一行出现的字体名。"
    FontName = UsrCtrCombo.FontName
End Property

Public Property Let FontName(ByVal New_FontName As String)
    UsrCtrCombo.FontName() = New_FontName
    PropertyChanged "FontName"
End Property

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

Public Property Let FontItalic(ByVal New_FontItalic As Boolean)
    UsrCtrCombo.FontItalic() = New_FontItalic
    PropertyChanged "FontItalic"
End Property

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

Public Property Let FontBold(ByVal New_FontBold As Boolean)
    UsrCtrCombo.FontBold() = New_FontBold
    PropertyChanged "FontBold"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,FillStyle
Public Property Get FillStyle() As Integer
Attribute FillStyle.VB_Description = "返回/设置一个 shape 控件的填充样式。"
    FillStyle = UserControl.FillStyle
End Property

Public Property Let FillStyle(ByVal New_FillStyle As Integer)
    UserControl.FillStyle() = New_FillStyle
    PropertyChanged "FillStyle"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,FillColor
Public Property Get FillColor() As OLE_COLOR
Attribute FillColor.VB_Description = "返回/设置填充形状、圆环和方框所使用的颜色。"
    FillColor = UserControl.FillColor
End Property

Public Property Let FillColor(ByVal New_FillColor As OLE_COLOR)
    UserControl.FillColor() = New_FillColor
    PropertyChanged "FillColor"
End Property

Private Sub UsrCtrCombo_DropDown()
    RaiseEvent DropDown
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,DrawWidth
Public Property Get DrawWidth() As Integer
Attribute DrawWidth.VB_Description = "返回/设置 graphics 方法输出时的线条宽度。"
    DrawWidth = UserControl.DrawWidth
End Property

Public Property Let DrawWidth(ByVal New_DrawWidth As Integer)
    UserControl.DrawWidth() = New_DrawWidth
    PropertyChanged "DrawWidth"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,DrawStyle
Public Property Get DrawStyle() As Integer
Attribute DrawStyle.VB_Description = "决定 graphics 方法输出时的线条样式。"
    DrawStyle = UserControl.DrawStyle
End Property

Public Property Let DrawStyle(ByVal New_DrawStyle As Integer)
    UserControl.DrawStyle() = New_DrawStyle
    PropertyChanged "DrawStyle"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,DrawMode
Public Property Get DrawMode() As Integer
Attribute DrawMode.VB_Description = "设置以 graphics 方法或 Shape 、 Line 控件输出时的外观。"
    DrawMode = UserControl.DrawMode
End Property

Public Property Let DrawMode(ByVal New_DrawMode As Integer)
    UserControl.DrawMode() = New_DrawMode
    PropertyChanged "DrawMode"
End Property


'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,CurrentY
Public Property Get CurrentY() As Single
Attribute CurrentY.VB_Description = "返回/设置下次 print 或 draw 方法的垂直坐标。"
    CurrentY = UserControl.CurrentY
End Property

Public Property Let CurrentY(ByVal New_CurrentY As Single)
    UserControl.CurrentY() = New_CurrentY
    PropertyChanged "CurrentY"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,CurrentX
Public Property Get CurrentX() As Single
Attribute CurrentX.VB_Description = "返回/设置下次 print 或 draw 方法的水平坐标。"
    CurrentX = UserControl.CurrentX
End Property

Public Property Let CurrentX(ByVal New_CurrentX As Single)
    UserControl.CurrentX() = New_CurrentX
    PropertyChanged "CurrentX"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,Controls
Public Property Get Controls() As Object
Attribute Controls.VB_Description = "表示一个窗体上每个控件元素的集合，也包括控件数组的元素。 "
    Set Controls = UserControl.Controls
End Property

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

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,Cls
Public Sub Cls()
Attribute Cls.VB_Description = "清除窗体、图像或图片框中在运行时生成的图形和文本。"
    UserControl.Cls
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,ClipControls
Public Property Get ClipControls() As Boolean
Attribute ClipControls.VB_Description = "决定 Paint 事件的 graphics 方法是重画整个对象，还是重画新显示的区域。"
    ClipControls = UserControl.ClipControls
End Property

Public Property Let ClipControls(ByVal New_ClipControls As Boolean)
    UserControl.ClipControls() = New_ClipControls
    PropertyChanged "ClipControls"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,ClipBehavior
Public Property Get ClipBehavior() As Integer
Attribute ClipBehavior.VB_Description = "指出无窗口 UserControl 的外观剪辑方式。"
    ClipBehavior = UserControl.ClipBehavior
End Property

Public Property Let ClipBehavior(ByVal New_ClipBehavior As Integer)
    UserControl.ClipBehavior() = New_ClipBehavior
    PropertyChanged "ClipBehavior"
End Property

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

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

Private Sub UsrCtrCombo_Change()
    RaiseEvent Change
    
    Dim strTemp As String
    Dim iStart As Long
    Dim sString As String
    Dim iLeftoff As Long
    
    If m_AutoSelect = True Then
    
        iStart = 1
        iStart = UsrCtrCombo.SelStart
        If iLeftoff <> 0 Then
            UsrCtrCombo.SelStart = iLeftoff
            iStart = iLeftoff
        End If
        
        sString = CStr(Left(UsrCtrCombo.Text, iStart))
        UsrCtrCombo.ListIndex = SendMessage(UsrCtrCombo.hWnd, CB_FINDSTRING, -1, ByVal _
            CStr(Left(UsrCtrCombo.Text, iStart)))
        
        If UsrCtrCombo.ListIndex = -1 Then
            iLeftoff = Len(sString)
            UsrCtrCombo.Text = sString
        End If
        
        UsrCtrCombo.SelStart = iStart
        UsrCtrCombo.SelLength = Len(UsrCtrCombo.Text) - iStart
        iLeftoff = 0
   End If
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,CausesValidation
Public Property Get CausesValidation() As Boolean
Attribute CausesValidation.VB_Description = "返回/设置是否有效性验证发生在失去焦点的控件。"
    CausesValidation = UsrCtrCombo.CausesValidation
End Property

Public Property Let CausesValidation(ByVal New_CausesValidation As Boolean)
    UsrCtrCombo.CausesValidation() = New_CausesValidation
    PropertyChanged "CausesValidation"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=0
Public Function CanPropertyChange(ByVal PropertyName As String) As Boolean
Attribute CanPropertyChange.VB_Description = "查询用户控件的容器是否能够改变绑定到数据源的属性。如果在 PropertyName 中指定的属性被绑定到数据源， CanPropertyChange 方法是最有用的。"

End Function

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,CancelAsyncRead
Public Sub CancelAsyncRead(Optional ByVal Property As Variant)
Attribute CancelAsyncRead.VB_Description = "取消异步数据请求。"
    UserControl.CancelAsyncRead Property
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,AutoRedraw
Public Property Get AutoRedraw() As Boolean
Attribute AutoRedraw.VB_Description = "返回/设置从 graphics 方法到一个持久性位图的输出。"
    AutoRedraw = UserControl.AutoRedraw
End Property

Public Property Let AutoRedraw(ByVal New_AutoRedraw As Boolean)
    UserControl.AutoRedraw() = New_AutoRedraw
    PropertyChanged "AutoRedraw"
End Property

Private Sub UserControl_AsyncReadProgress(AsyncProp As AsyncProperty)
    RaiseEvent AsyncReadProgress(AsyncProp)
End Sub

Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)
    RaiseEvent AsyncReadComplete(AsyncProp)
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,AsyncRead
Public Sub AsyncRead(ByVal Target As String, ByVal AsyncType As Long, Optional ByVal PropertyName As Variant, Optional ByVal AsyncReadOptions As Variant)
Attribute AsyncRead.VB_Description = "从一个路径或 URL 异步读入数据并接收 AsyncReadComplete 事件。"
    UserControl.AsyncRead Target, AsyncType, PropertyName, AsyncReadOptions
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,Appearance
Public Property Get Appearance() As Integer
Attribute Appearance.VB_Description = "返回/设置一个对象在运行时是否以 3D 效果显示。"
    Appearance = UsrCtrCombo.Appearance
End Property

Public Property Let Appearance(ByVal New_Appearance As Integer)
    UsrCtrCombo.Appearance() = New_Appearance
    PropertyChanged "Appearance"
End Property

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

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UserControl,UserControl,-1,ActiveControl
Public Property Get ActiveControl() As Object
Attribute ActiveControl.VB_Description = "返回拥有焦点的控件。"
    Set ActiveControl = UserControl.ActiveControl
End Property