标题:VB求助——如何设置输入焦点的形状
取消只看楼主
匹夫艺人
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2008-5-21
 问题点数:0 回复次数:3 
VB求助——如何设置输入焦点的形状
VB程序界面上,有几个文本框,每个文本框都有预设值,如:第一个文本框为15,第二个为20,运行时按Tab键,输入焦点由第一个文本框跳到第二个,鼠标为“I”型,并没有把当前文本框的值选中,如何设置才能将“I”变为块型,并选中当前文本框的20呢?

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

谢谢
搜索更多相关主题的帖子: 鼠标 形状 文本 焦点 
2008-06-27 20:58
匹夫艺人
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2008-5-21
得分:0 
谢谢了哥们,我初学,还是不会设置,
能给写详细些不?

谢谢。。
2008-06-27 23:09
匹夫艺人
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2008-5-21
得分:0 
谢谢哥们,刚才写了如下程序,好了
不过每个文本框都要一个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-06-28 00:10
匹夫艺人
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2008-5-21
得分:0 
谢谢哥们了,
2008-06-28 21:50



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-221647-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.582751 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved