clstext.cls

来自「采用vb程序语言编写」· CLS 代码 · 共 43 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsText"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Dim WithEvents MyText As TextBox
Attribute MyText.VB_VarHelpID = -1
Dim bSetted As Boolean
Public Sub BindText(t As TextBox)
    Set MyText = t
End Sub

Private Sub Class_Initialize()
    Set MyText = Nothing
    bSetted = False
End Sub

Private Sub MyText_GotFocus()
     bSetted = True
End Sub

Private Sub MyText_LostFocus()
    bSetted = False
End Sub

Private Sub MyText_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Not bSetted) Then
    MyText.SetFocus
    MyText.SelStart = 0
    MyText.SelLength = 9999
  End If

End Sub