usrctrtext.ctl

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

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

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

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

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

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

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

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

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

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

Public Property Let FillColor(ByVal New_FillColor As Long)
    m_FillColor = New_FillColor
    PropertyChanged "FillColor"
End Property

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

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

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

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

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

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

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

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

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

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

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

Public Property Set Controls(ByVal New_Controls As Object)
    Set m_Controls = New_Controls
    PropertyChanged "Controls"
End Property

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

Public Property Let ContainerHwnd(ByVal New_ContainerHwnd As Long)
    m_ContainerHwnd = New_ContainerHwnd
    PropertyChanged "ContainerHwnd"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=5
Public Sub Cls()
     
End Sub

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

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

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

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

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

Private Sub UsrCtrText_Change()
    RaiseEvent Change
End Sub

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

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

'注意！不要删除或修改下列被注释的行！
'MemberInfo=0
Public Function CanPropertyChange(ByVal PropertyName As String) As Boolean

End Function

'注意！不要删除或修改下列被注释的行！
'MemberInfo=5
Public Sub CancelAsyncRead(Optional ByVal Property As Variant)
     
End Sub

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

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

'注意！不要删除或修改下列被注释的行！
'MemberInfo=5
Public Sub AsyncRead(ByVal Target As String, ByVal AsyncType As Long, Optional ByVal PropertyName As Variant, Optional ByVal AsyncReadOptions As Variant)
     
End Sub

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

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

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

Public Property Let Alignment(ByVal New_Alignment As Integer)
    UsrCtrText.Alignment() = New_Alignment
    PropertyChanged "Alignment"
End Property

'为用户控件初始化属性
Private Sub UserControl_InitProperties()
    m_BackStyle = m_def_BackStyle
    m_ScaleWidth = m_def_ScaleWidth
    m_ScaleTop = m_def_ScaleTop
    m_ScaleMode = m_def_ScaleMode
    m_ScaleLeft = m_def_ScaleLeft
    m_ScaleHeight = m_def_ScaleHeight
    Set m_Picture = LoadPicture("")
    m_PaletteMode = m_def_PaletteMode
    Set m_Palette = LoadPicture("")
    Set m_MaskPicture = LoadPicture("")
    m_MaskColor = m_def_MaskColor
    Set m_Image = LoadPicture("")
    m_HitBehavior = m_def_HitBehavior
    m_hDC = m_def_hDC
    m_HasDC = m_def_HasDC
    m_FontTransparent = m_def_FontTransparent
    m_FillStyle = m_def_FillStyle
    m_FillColor = m_def_FillColor
    m_DrawWidth = m_def_DrawWidth
    m_DrawStyle = m_def_DrawStyle
    m_DrawMode = m_def_DrawMode
    m_CurrentY = m_def_CurrentY
    m_CurrentX = m_def_CurrentX
    m_ContainerHwnd = m_def_ContainerHwnd
    m_ClipControls = m_def_ClipControls
    m_ClipBehavior = m_def_ClipBehavior
    m_AutoRedraw = m_def_AutoRedraw
    m_m_DataField = m_def_m_DataField
End Sub

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

    UsrCtrText.BackColor = PropBag.ReadProperty("BackColor", &H80000005)
    UsrCtrText.ForeColor = PropBag.ReadProperty("ForeColor", &H80000008)
    UsrCtrText.Enabled = PropBag.ReadProperty("Enabled", True)
    Set UsrCtrText.Font = PropBag.ReadProperty("Font", Ambient.Font)
    m_BackStyle = PropBag.ReadProperty("BackStyle", m_def_BackStyle)
    UsrCtrText.BorderStyle = PropBag.ReadProperty("BorderStyle", 1)
    UsrCtrText.WhatsThisHelpID = PropBag.ReadProperty("WhatsThisHelpID", 0)
    UsrCtrText.ToolTipText = PropBag.ReadProperty("ToolTipText", "")
    UsrCtrText.Text = PropBag.ReadProperty("Text", "")
    UsrCtrText.SelText = PropBag.ReadProperty("SelText", "")
    UsrCtrText.SelStart = PropBag.ReadProperty("SelStart", 0)
    UsrCtrText.SelLength = PropBag.ReadProperty("SelLength", 0)
    m_ScaleWidth = PropBag.ReadProperty("ScaleWidth", m_def_ScaleWidth)
    m_ScaleTop = PropBag.ReadProperty("ScaleTop", m_def_ScaleTop)
    m_ScaleMode = PropBag.ReadProperty("ScaleMode", m_def_ScaleMode)
    m_ScaleLeft = PropBag.ReadProperty("ScaleLeft", m_def_ScaleLeft)
    m_ScaleHeight = PropBag.ReadProperty("ScaleHeight", m_def_ScaleHeight)
    UsrCtrText.RightToLeft = PropBag.ReadProperty("RightToLeft", False)
    Set m_Picture = PropBag.ReadProperty("Picture", Nothing)
    UsrCtrText.PasswordChar = PropBag.ReadProperty("PasswordChar", "")
    m_PaletteMode = PropBag.ReadProperty("PaletteMode", m_def_PaletteMode)
    Set m_Palette = PropBag.ReadProperty("Palette", Nothing)
    UsrCtrText.OLEDropMode = PropBag.ReadProperty("OLEDropMode", 0)
    UsrCtrText.OLEDragMode = PropBag.ReadProperty("OLEDragMode", 0)
    UsrCtrText.MousePointer = PropBag.ReadProperty("MousePointer", 0)
    Set MouseIcon = PropBag.ReadProperty("MouseIcon", Nothing)
    UsrCtrText.MaxLength = PropBag.ReadProperty("MaxLength", 0)
    Set m_MaskPicture = PropBag.ReadProperty("MaskPicture", Nothing)
    m_MaskColor = PropBag.ReadProperty("MaskColor", m_def_MaskColor)
    UsrCtrText.Locked = PropBag.ReadProperty("Locked", False)
    UsrCtrText.LinkTopic = PropBag.ReadProperty("LinkTopic", "")
    UsrCtrText.LinkTimeout = PropBag.ReadProperty("LinkTimeout", 50)
    UsrCtrText.LinkMode = PropBag.ReadProperty("LinkMode", 0)
    UsrCtrText.LinkItem = PropBag.ReadProperty("LinkItem", "")
    Set m_Image = PropBag.ReadProperty("Image", Nothing)
    Set m_HyperLink = PropBag.ReadProperty("HyperLink", Nothing)
    m_HitBehavior = PropBag.ReadProperty("HitBehavior", m_def_HitBehavior)
    m_hDC = PropBag.ReadProperty("hDC", m_def_hDC)
    m_HasDC = PropBag.ReadProperty("HasDC", m_def_HasDC)
    UsrCtrText.FontUnderline = PropBag.ReadProperty("FontUnderline", 0)
    m_FontTransparent = PropBag.ReadProperty("FontTransparent", m_def_FontTransparent)
    UsrCtrText.FontStrikethru = PropBag.ReadProperty("FontStrikethru", 0)
    'UsrCtrText.FontSize = PropBag.ReadProperty("FontSize", 0)
    'UsrCtrText.FontName = PropBag.ReadProperty("FontName", "")
    UsrCtrText.FontItalic = PropBag.ReadProperty("FontItalic", 0)
    UsrCtrText.FontBold = PropBag.ReadProperty("FontBold", 0)
    m_FillStyle = PropBag.ReadProperty("FillStyle", m_def_FillStyle)
    m_FillColor = PropBag.ReadProperty("FillColor", m_def_FillColor)
    m_DrawWidth = PropBag.ReadProperty("DrawWidth", m_def_DrawWidth)
    m_DrawStyle = PropBag.ReadProperty("DrawStyle", m_def_DrawStyle)
    m_DrawMode = PropBag.ReadProperty("DrawMode", m_def_DrawMode)
    m_CurrentY = PropBag.ReadProperty("CurrentY", m_def_CurrentY)
    m_CurrentX = PropBag.ReadProperty("CurrentX", m_def_CurrentX)
    Set m_Controls = PropBag.ReadProperty("Controls", Nothing)
    m_ContainerHwnd = PropBag.ReadProperty("ContainerHwnd", m_def_ContainerHwnd)
    m_ClipControls = PropBag.ReadProperty("ClipControls", m_def_ClipControls)
    m_ClipBehavior = PropBag.ReadProperty("ClipBehavior", m_def_ClipBehavior)
    UsrCtrText.CausesValidation = PropBag.ReadProperty("CausesValidation", True)
    m_AutoRedraw = PropBag.ReadProperty("AutoRedraw", m_def_AutoRedraw)
    UsrCtrText.Appearance = PropBag.ReadProperty("Appearance", 1)
    UsrCtrText.Alignment = PropBag.ReadProperty("Alignment", 0)
End Sub

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

    Call PropBag.WriteProperty("BackColor", UsrCtrText.BackColor, &H80000005)
    Call PropBag.WriteProperty("ForeColor", UsrCtrText.ForeColor, &H80000008)
    Call PropBag.WriteProperty("Enabled", UsrCtrText.Enabled, True)
    Call PropBag.WriteProperty("Font", UsrCtrText.Font, Ambient.Font)
    Call PropBag.WriteProperty("BackStyle", m_BackStyle, m_def_BackStyle)
    Call PropBag.WriteProperty("BorderStyle", UsrCtrText.BorderStyle, 1)
    Call PropBag.WriteProperty("WhatsThisHelpID", UsrCtrText.WhatsThisHelpID, 0)
    Call PropBag.WriteProperty("ToolTipText", UsrCtrText.ToolTipText, "")
    Call PropBag.WriteProperty("Text", UsrCtrText.Text, "")
    Call PropBag.WriteProperty("SelText", UsrCtrText.SelText, "")
    Call PropBag.WriteProperty("SelStart", UsrCtrText.SelStart, 0)
    Call PropBag.WriteProperty("SelLength", UsrCtrText.SelLength, 0)
    Call PropBag.WriteProperty("ScaleWidth", m_ScaleWidth, m_def_ScaleWidth)
    Call PropBag.WriteProperty("ScaleTop", m_ScaleTop, m_def_ScaleTop)
    Call PropBag.WriteProperty("ScaleMode", m_ScaleMode, m_def_ScaleMode)
    Call PropBag.WriteProperty("ScaleLeft", m_ScaleLeft, m_def_ScaleLeft)
    Call PropBag.WriteProperty("ScaleHeight", m_ScaleHeight, m_def_ScaleHeight)
    Call PropBag.WriteProperty("RightToLeft", UsrCtrText.RightToLeft, False)
    Call PropBag.WriteProperty("Picture", m_Picture, Nothing)
    Call PropBag.WriteProperty("PasswordChar", UsrCtrText.PasswordChar, "")
    Call PropBag.WriteProperty("PaletteMode", m_PaletteMode, m_def_PaletteMode)
    Call PropBag.WriteProperty("Palette", m_Palette, Nothing)
    Call PropBag.WriteProperty("OLEDropMode", UsrCtrText.OLEDropMode, 0)
    Call PropBag.WriteProperty("OLEDragMode", UsrCtrText.OLEDragMode, 0)
    Call PropBag.WriteProperty("MousePointer", UsrCtrText.MousePointer, 0)
    Call PropBag.WriteProperty("MouseIcon", MouseIcon, Nothing)
    Call PropBag.WriteProperty("MaxLength", UsrCtrText.MaxLength, 0)
    Call PropBag.WriteProperty("MaskPicture", m_MaskPicture, Nothing)
    Call PropBag.WriteProperty("MaskColor", m_MaskColor, m_def_MaskColor)
    Call PropBag.WriteProperty("Locked", UsrCtrText.Locked, False)
    Call PropBag.WriteProperty("LinkTopic", UsrCtrText.LinkTopic, "")
    Call PropBag.WriteProperty("LinkTimeout", UsrCtrText.LinkTimeout, 50)
    Call PropBag.WriteProperty("LinkMode", UsrCtrText.LinkMode, 0)
    Call PropBag.WriteProperty("LinkItem", UsrCtrText.LinkItem, "")
    Call PropBag.WriteProperty("Image", m_Image, Nothing)
    Call PropBag.WriteProperty("HyperLink", m_HyperLink, Nothing)
    Call PropBag.WriteProperty("HitBehavior", m_HitBehavior, m_def_HitBehavior)
    Call PropBag.WriteProperty("hDC", m_hDC, m_def_hDC)
    Call PropBag.WriteProperty("HasDC", m_HasDC, m_def_HasDC)
    Call PropBag.WriteProperty("FontUnderline", UsrCtrText.FontUnderline, 0)
    Call PropBag.WriteProperty("FontTransparent", m_FontTransparent, m_def_FontTransparent)
    Call PropBag.WriteProperty("FontStrikethru", UsrCtrText.FontStrikethru, 0)
    Call PropBag.WriteProperty("FontSize", UsrCtrText.FontSize, 0)
    Call PropBag.WriteProperty("FontName", UsrCtrText.FontName, "")
    Call PropBag.WriteProperty("FontItalic", UsrCtrText.FontItalic, 0)
    Call PropBag.WriteProperty("FontBold", UsrCtrText.FontBold, 0)
    Call PropBag.WriteProperty("FillStyle", m_FillStyle, m_def_FillStyle)
    Call PropBag.WriteProperty("FillColor", m_FillColor, m_def_FillColor)
    Call PropBag.WriteProperty("DrawWidth", m_DrawWidth, m_def_DrawWidth)
    Call PropBag.WriteProperty("DrawStyle", m_DrawStyle, m_def_DrawStyle)
    Call PropBag.WriteProperty("DrawMode", m_DrawMode, m_def_DrawMode)
    Call PropBag.WriteProperty("CurrentY", m_CurrentY, m_def_CurrentY)
    Call PropBag.WriteProperty("CurrentX", m_CurrentX, m_def_CurrentX)
    Call PropBag.WriteProperty("Controls", m_Controls, Nothing)
    Call PropBag.WriteProperty("ContainerHwnd", m_ContainerHwnd, m_def_ContainerHwnd)
    Call PropBag.WriteProperty("ClipControls", m_ClipControls, m_def_ClipControls)
    Call PropBag.WriteProperty("ClipBehavior", m_ClipBehavior, m_def_ClipBehavior)
    Call PropBag.WriteProperty("CausesValidation", UsrCtrText.CausesValidation, True)
    Call PropBag.WriteProperty("AutoRedraw", m_AutoRedraw, m_def_AutoRedraw)
    Call PropBag.WriteProperty("Appearance", UsrCtrText.Appearance, 1)
    Call PropBag.WriteProperty("Alignment", UsrCtrText.Alignment, 0)
End Sub