usrctrtext.ctl

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

VERSION 5.00
Begin VB.UserControl UsrCtrText 
   AutoRedraw      =   -1  'True
   ClientHeight    =   615
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3135
   ControlContainer=   -1  'True
   ScaleHeight     =   615
   ScaleWidth      =   3135
   ToolboxBitmap   =   "UsrCtrText.ctx":0000
   Begin VB.TextBox UsrCtrText 
      Height          =   615
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3135
   End
End
Attribute VB_Name = "UsrCtrText"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'缺省属性值:
Const m_def_BackStyle = 0
Const m_def_ScaleWidth = 0
Const m_def_ScaleTop = 0
Const m_def_ScaleMode = 0
Const m_def_ScaleLeft = 0
Const m_def_ScaleHeight = 0
Const m_def_PaletteMode = 0
Const m_def_MaskColor = 0
Const m_def_HitBehavior = 0
Const m_def_hDC = 0
Const m_def_HasDC = 0
Const m_def_FontTransparent = 0
Const m_def_FillStyle = 0
Const m_def_FillColor = 0
Const m_def_DrawWidth = 0
Const m_def_DrawStyle = 0
Const m_def_DrawMode = 0
Const m_def_CurrentY = 0
Const m_def_CurrentX = 0
Const m_def_ContainerHwnd = 0
Const m_def_ClipControls = 0
Const m_def_ClipBehavior = 0
Const m_def_AutoRedraw = 0
'属性变量:
Dim m_BackStyle As Integer
Dim m_ScaleWidth As Single
Dim m_ScaleTop As Single
Dim m_ScaleMode As Integer
Dim m_ScaleLeft As Single
Dim m_ScaleHeight As Single
Dim m_Picture As Picture
Dim m_PaletteMode As Integer
Dim m_Palette As Picture
Dim m_MaskPicture As Picture
Dim m_MaskColor As Long
Dim m_Image As Picture
Dim m_HyperLink As HyperLink
Dim m_HitBehavior As Integer
Dim m_hDC As Long
Dim m_HasDC As Boolean
Dim m_FontTransparent As Boolean
Dim m_FillStyle As Integer
Dim m_FillColor As Long
Dim m_DrawWidth As Integer
Dim m_DrawStyle As Integer
Dim m_DrawMode As Integer
Dim m_CurrentY As Single
Dim m_CurrentX As Single
Dim m_Controls As Object
Dim m_ContainerHwnd As Long
Dim m_ClipControls As Boolean
Dim m_ClipBehavior As Integer
Dim m_AutoRedraw As Boolean
'事件声明:
Event Click() 'MappingInfo=UsrCtrText,UsrCtrText,-1,Click
Event DblClick() 'MappingInfo=UsrCtrText,UsrCtrText,-1,DblClick
Event KeyDown(KeyCode As Integer, Shift As Integer) 'MappingInfo=UsrCtrText,UsrCtrText,-1,KeyDown
Event KeyPress(KeyAscii As Integer) 'MappingInfo=UsrCtrText,UsrCtrText,-1,KeyPress
Event KeyUp(KeyCode As Integer, Shift As Integer) 'MappingInfo=UsrCtrText,UsrCtrText,-1,KeyUp
Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=UsrCtrText,UsrCtrText,-1,MouseDown
Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=UsrCtrText,UsrCtrText,-1,MouseMove
Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=UsrCtrText,UsrCtrText,-1,MouseUp
Event WriteProperties(PropBag As PropertyBag)
Event Validate(Cancel As Boolean) 'MappingInfo=UsrCtrText,UsrCtrText,-1,Validate
Event Show()
Event Resize()
Event ReadProperties(PropBag As PropertyBag)
Event Paint()
Event OLEStartDrag(Data As DataObject, AllowedEffects As Long) 'MappingInfo=UsrCtrText,UsrCtrText,-1,OLEStartDrag
Event OLESetData(Data As DataObject, DataFormat As Integer) 'MappingInfo=UsrCtrText,UsrCtrText,-1,OLESetData
Event OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean) 'MappingInfo=UsrCtrText,UsrCtrText,-1,OLEGiveFeedback
Event OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) 'MappingInfo=UsrCtrText,UsrCtrText,-1,OLEDragOver
Event OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=UsrCtrText,UsrCtrText,-1,OLEDragDrop
Event OLECompleteDrag(Effect As Long) 'MappingInfo=UsrCtrText,UsrCtrText,-1,OLECompleteDrag
Event InitProperties()
Event HitTest(X As Single, Y As Single, HitResult As Integer)
Event Hide()
Event GetDataMember(DataMember As String, Data As Object)
Event Change() 'MappingInfo=UsrCtrText,UsrCtrText,-1,Change
Event AsyncReadProgress(AsyncProp As AsyncProperty)
Event AsyncReadComplete(AsyncProp As AsyncProperty)
'Default Property Values:
Const m_def_m_DataField = 0
'Property Variables:
Dim m_m_DataField As Variant






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

Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
    UsrCtrText.BackColor() = New_BackColor
    PropertyChanged "BackColor"
End Property

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

Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR)
    UsrCtrText.ForeColor() = New_ForeColor
    PropertyChanged "ForeColor"
End Property

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

Public Property Let Enabled(ByVal New_Enabled As Boolean)
    UsrCtrText.Enabled() = New_Enabled
    PropertyChanged "Enabled"
End Property

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

Public Property Set Font(ByVal New_Font As Font)
    Set UsrCtrText.Font = New_Font
    PropertyChanged "Font"
End Property

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

Public Property Let BackStyle(ByVal New_BackStyle As Integer)
    m_BackStyle = New_BackStyle
    PropertyChanged "BackStyle"
End Property

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

Public Property Let BorderStyle(ByVal New_BorderStyle As Integer)
    UsrCtrText.BorderStyle() = New_BorderStyle
    PropertyChanged "BorderStyle"
End Property

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

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

Private Sub UsrCtrText_Click()
    RaiseEvent Click
End Sub

Private Sub UsrCtrText_DblClick()
    RaiseEvent DblClick
End Sub

Private Sub UsrCtrText_GotFocus()
    UsrCtrText.SelStart = 0
    UsrCtrText.SelLength = Len(UsrCtrText.Text)
End Sub

Private Sub UsrCtrText_KeyDown(KeyCode As Integer, Shift As Integer)
    RaiseEvent KeyDown(KeyCode, Shift)
End Sub

Private Sub UsrCtrText_KeyPress(KeyAscii As Integer)
    RaiseEvent KeyPress(KeyAscii)
    If KeyAscii = 13 Then
        KeyAscii = 0
        SendKeys "{tab}"
    End If
End Sub

Private Sub UsrCtrText_KeyUp(KeyCode As Integer, Shift As Integer)
    RaiseEvent KeyUp(KeyCode, Shift)
End Sub

Private Sub UsrCtrText_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent MouseDown(Button, Shift, X, Y)
End Sub

Private Sub UsrCtrText_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent MouseMove(Button, Shift, X, Y)
End Sub

Private Sub UsrCtrText_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent MouseUp(Button, Shift, X, Y)
End Sub

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

Public Property Let WhatsThisHelpID(ByVal New_WhatsThisHelpID As Long)
    UsrCtrText.WhatsThisHelpID() = New_WhatsThisHelpID
    PropertyChanged "WhatsThisHelpID"
End Property

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

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

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

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

'注意！不要删除或修改下列被注释的行！
'MemberInfo=12
Public Function TextWidth(ByVal Str As String) As Single

End Function

'注意！不要删除或修改下列被注释的行！
'MemberInfo=12
Public Function TextHeight(ByVal Str As String) As Single

End Function

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

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

'注意！不要删除或修改下列被注释的行！
'MemberInfo=5
Public Sub Size(ByVal Width As Single, ByVal Height As Single)
     
End Sub

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

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

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

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

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

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

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

'注意！不要删除或修改下列被注释的行！
'MemberInfo=12
Public Function ScaleY(ByVal Height As Single, Optional ByVal FromScale As Variant, Optional ByVal ToScale As Variant) As Single

End Function

'注意！不要删除或修改下列被注释的行！
'MemberInfo=12
Public Function ScaleX(ByVal Width As Single, Optional ByVal FromScale As Variant, Optional ByVal ToScale As Variant) As Single

End Function

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

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

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

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

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

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

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

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

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

Public Property Let ScaleHeight(ByVal New_ScaleHeight As Single)
    m_ScaleHeight = New_ScaleHeight