编程论坛 » VB6论坛 » VB求助——如何设置输入焦点的形状

匹夫艺人 发表于 2008-6-27 20:58

VB求助——如何设置输入焦点的形状

VB程序界面上，有几个文本框，每个文本框都有预设值，如：第一个文本框为15，第二个为20，运行时按Tab键，输入焦点由第一个文本框跳到第二个，鼠标为“I”型，并没有把当前文本框的值选中，如何设置才能将“I”变为块型，并选中当前文本框的20呢？

我一直找不到如何设置，  请高人帮忙。。

谢谢

三断笛 发表于 2008-6-27 21:21

没得设置,自己写代码
在文本框的Got_focus事件中写入
text1.selstart=1
text1.sellength=len(text1.text)

匹夫艺人 发表于 2008-6-27 23:09

谢谢了哥们，我初学，还是不会设置，
能给写详细些不？

谢谢。。

匹夫艺人 发表于 2008-6-28 00:10

谢谢哥们，刚才写了如下程序，好了
不过每个文本框都要一个sub不好看呀，我的界面至少10个框，能不能用一个sub把他们都写进去呢？
Private Sub Txtxs_GotFocus()
        Dim bIsErr As Boolean
        
        bIsErr = TxtXS
        If bIsErr = True Then
        
        TxtXS.SelStart = 0
        TxtXS.SelLength = Len(TxtXS.Text)
        End If
End Sub
Private Sub Txtfen_GotFocus()
        Dim bIsErr As Boolean
        
        bIsErr = TxtFen
        If bIsErr = True Then
        
        TxtFen.SelStart = 0
        TxtFen.SelLength = Len(TxtFen.Text)
        End If
End Sub
Private Sub TxtNian_GotFocus()
        Dim bIsErr As Boolean
        
        bIsErr = TxtNian
        If bIsErr = True Then
        
        TxtNian.SelStart = 0
        TxtNian.SelLength = Len(TxtNian.Text)
        End If
End Sub

三断笛 发表于 2008-6-28 02:11

用控件数组

匹夫艺人 发表于 2008-6-28 21:50

谢谢哥们了，

查看完整版本: VB求助——如何设置输入焦点的形状