vb Text1控件 说明

Text1控件

==========================================================================
'在Text1中选中字符串
  Text1.SelStart = ii - 1       '鼠标指针
  Text1.SelLength = Len(Text1)  '在控件被选中的字符的长度
  Text1.SetFocus                '在控件中选中字符串

==========================================================================

用VB怎样把输入的密码变成星号（*）显示出来？


Text2.PasswordChar = "*"  '把输入的密码变成星号（*）显示出来？
Text2.PasswordChar = ""   '还原
==========================================================================

只能输入数字--或什么按键

'控件text1 只能输入数字1234567890和 取消Chr(8)

Private Sub text1_KeyPress(KeyAscii As Integer)
        Dim strNumbers     As String
        strNumbers = "1234567890 " + Chr(8)
        
        If InStr(strNumbers, Chr(KeyAscii)) = 0 Then
                KeyAscii = 0
        End If
End Sub


==========================================================================


Text1.MaxLength = 2 '控件对多输入2个字符


Text1.locked = False  '控件可以输入
Text1.locked = true   '控件只能复制不能输入




Text1换行方法

必须在属性窗口中设置：
Text1.MultiLine = ture
之后，text才能换行显示。


否则，不管你用多少vbCrLf都不管用，即使在程序里写上：
Text1.MultiLine = ture
仍然在一行里显示

Text1.ScrollBars=2 '竖直滚动条,


竖直滚动条,实现方法：

将TextBox的MulTiline属性设置为True，将ScrollBars属性设置为2既可。

回复
文本框本身有这个功能,你再去实现这个功能,不就是重复了吗?


这个叫重复的发明轮子,有轮子了还不用,自己发明的还不如自带的.何而此举?

Text1.MulTiline =True '开启多行

Text1.ScrollBars=2 '竖直滚动条,其它值:0 无滚动条,1 水平滚动条,3 水平竖直滚动条都有


希望能帮到你
==========================================================================

'取text行数 空行也算为一行?
Private Sub Command1_Click()
arr = Split(Text1.Text, vbCrLf)
MsgBox (UBound(arr) + 1)
End Sub

'取text行数 空行不算行?
Private Sub Command1_Click()
arr = Split(Text1.Text, vbCrLf)
MsgBox (UBound(arr))
End Sub

'取text第n行内容
Private Sub Command1_Click()
Dim A() As String
A() = Split(Text1.Text, vbCrLf)
For Each S In A()
    Debug.Print S
Next

'A(0)=text1 第一行内容
End Sub



_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/