usrctrtext.ctl

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

    PropertyChanged "ScaleHeight"
End Property

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

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,RightToLeft
Public Property Get RightToLeft() As Boolean
    RightToLeft = UsrCtrText.RightToLeft
End Property

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

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

'注意！不要删除或修改下列被注释的行！
'MemberInfo=5
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)
     
End Sub

' "Point" 后面的下划线是必须的，
'因为它是 VBA 中的保留字。
'注意！不要删除或修改下列被注释的行！
'MemberInfo=8
Public Function Point(X As Single, Y As Single) As Long
    
End Function

'注意！不要删除或修改下列被注释的行！
'MemberInfo=11,0,0,0
Public Property Get Picture() As Picture
    Set Picture = m_Picture
End Property

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

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,PasswordChar
Public Property Get PasswordChar() As String
    PasswordChar = UsrCtrText.PasswordChar
End Property

Public Property Let PasswordChar(ByVal New_PasswordChar As String)
    UsrCtrText.PasswordChar() = New_PasswordChar
    PropertyChanged "PasswordChar"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=7,0,0,0
Public Property Get PaletteMode() As Integer
    PaletteMode = m_PaletteMode
End Property

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

'注意！不要删除或修改下列被注释的行！
'MemberInfo=11,0,0,0
Public Property Get Palette() As Picture
    Set Palette = m_Palette
End Property

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

'注意！不要删除或修改下列被注释的行！
'MemberInfo=5
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)
     
End Sub

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

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

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

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,OLEDropMode
Public Property Get OLEDropMode() As Integer
    OLEDropMode = UsrCtrText.OLEDropMode
End Property

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

Private Sub UsrCtrText_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=UsrCtrText,UsrCtrText,-1,OLEDragMode
Public Property Get OLEDragMode() As Integer
    OLEDragMode = UsrCtrText.OLEDragMode
End Property

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

Private Sub UsrCtrText_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=UsrCtrText,UsrCtrText,-1,OLEDrag
Public Sub OLEDrag()
    UsrCtrText.OLEDrag
End Sub

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

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,MultiLine
Public Property Get MultiLine() As Boolean
    MultiLine = UsrCtrText.MultiLine
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,MousePointer
Public Property Get MousePointer() As Integer
    MousePointer = UsrCtrText.MousePointer
End Property

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

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,MouseIcon
Public Property Get MouseIcon() As Picture
    Set MouseIcon = UsrCtrText.MouseIcon
End Property

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

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,MaxLength
Public Property Get MaxLength() As Long
    MaxLength = UsrCtrText.MaxLength
End Property

Public Property Let MaxLength(ByVal New_MaxLength As Long)
    UsrCtrText.MaxLength() = New_MaxLength
    PropertyChanged "MaxLength"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=11,0,0,0
Public Property Get MaskPicture() As Picture
    Set MaskPicture = m_MaskPicture
End Property

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

'注意！不要删除或修改下列被注释的行！
'MemberInfo=8,0,0,0
Public Property Get MaskColor() As Long
    MaskColor = m_MaskColor
End Property

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

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,Locked
Public Property Get Locked() As Boolean
    Locked = UsrCtrText.Locked
End Property

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

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,LinkTopic
Public Property Get LinkTopic() As String
    LinkTopic = UsrCtrText.LinkTopic
End Property

Public Property Let LinkTopic(ByVal New_LinkTopic As String)
    UsrCtrText.LinkTopic() = New_LinkTopic
    PropertyChanged "LinkTopic"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,LinkTimeout
Public Property Get LinkTimeout() As Integer
    LinkTimeout = UsrCtrText.LinkTimeout
End Property

Public Property Let LinkTimeout(ByVal New_LinkTimeout As Integer)
    UsrCtrText.LinkTimeout() = New_LinkTimeout
    PropertyChanged "LinkTimeout"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,LinkSend
Public Sub LinkSend()
    UsrCtrText.LinkSend
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,LinkRequest
Public Sub LinkRequest()
    UsrCtrText.LinkRequest
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,LinkPoke
Public Sub LinkPoke()
    UsrCtrText.LinkPoke
End Sub

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,LinkMode
Public Property Get LinkMode() As Integer
    LinkMode = UsrCtrText.LinkMode
End Property

Public Property Let LinkMode(ByVal New_LinkMode As Integer)
    UsrCtrText.LinkMode() = New_LinkMode
    PropertyChanged "LinkMode"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,LinkItem
Public Property Get LinkItem() As String
    LinkItem = UsrCtrText.LinkItem
End Property

Public Property Let LinkItem(ByVal New_LinkItem As String)
    UsrCtrText.LinkItem() = New_LinkItem
    PropertyChanged "LinkItem"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,LinkExecute
Public Sub LinkExecute(ByVal Command As String)
    UsrCtrText.LinkExecute Command
End Sub

'注意！不要删除或修改下列被注释的行！
'MemberInfo=5
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)
     
End Sub

'注意！不要删除或修改下列被注释的行！
'MemberInfo=11,0,0,0
Public Property Get Image() As Picture
    Set Image = m_Image
End Property

Public Property Set Image(ByVal New_Image As Picture)
    Set m_Image = New_Image
    PropertyChanged "Image"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=20,0,0,0
Public Property Get HyperLink() As HyperLink
    Set HyperLink = m_HyperLink
End Property

Public Property Set HyperLink(ByVal New_HyperLink As HyperLink)
    Set m_HyperLink = New_HyperLink
    PropertyChanged "HyperLink"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,hWnd
Public Property Get hWnd() As Long
    hWnd = UsrCtrText.hWnd
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=7,0,0,0
Public Property Get HitBehavior() As Integer
    HitBehavior = m_HitBehavior
End Property

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

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,HideSelection
Public Property Get HideSelection() As Boolean
    HideSelection = UsrCtrText.HideSelection
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=8,0,0,0
Public Property Get hDC() As Long
    hDC = m_hDC
End Property

Public Property Let hDC(ByVal New_hDC As Long)
    m_hDC = New_hDC
    PropertyChanged "hDC"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=0,0,0,0
Public Property Get HasDC() As Boolean
    HasDC = m_HasDC
End Property

Public Property Let HasDC(ByVal New_HasDC As Boolean)
    m_HasDC = New_HasDC
    PropertyChanged "HasDC"
End Property

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,FontUnderline
Public Property Get FontUnderline() As Boolean
    FontUnderline = UsrCtrText.FontUnderline
End Property

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

'注意！不要删除或修改下列被注释的行！
'MemberInfo=0,0,0,0
Public Property Get FontTransparent() As Boolean
    FontTransparent = m_FontTransparent
End Property

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

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,FontStrikethru
Public Property Get FontStrikethru() As Boolean
    FontStrikethru = UsrCtrText.FontStrikethru
End Property

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

'注意！不要删除或修改下列被注释的行！
'MappingInfo=UsrCtrText,UsrCtrText,-1,FontSize
Public Property Get FontSize() As Single
    FontSize = UsrCtrText.FontSize
End Property

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