vb中,如何把文本框里面的内容一点击左键就全部选择文本里面的内容?
界面上有很多文本框,我想做到所有的文本框,只要点击某一个文本框,然后这个文本框里面的内容全部被选择。如果一个一个文本框设置,那么实在是太麻烦了,如何一下子全部设置呢?...
界面上有很多文本框,我想做到所有的文本框,只要点击某一个文本框,然后这个文本框里面的内容全部被选择。如果一个一个文本框设置,那么实在是太麻烦了,如何一下子全部设置呢?
展开
展开全部
把文本框弄成数组形式的就好办了
Private Sub Text1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index).Text)
End If
End Sub
Private Sub Text1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index).Text)
End If
End Sub
更多追问追答
追问
如何弄成数组呢?如果弄成了数组,然后又如何实现这个功能呢?能给出实现控制数组的这个范例代码吗?
追答
创建控件数组
展开全部
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub
If Button = 1 Then
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub
追问
这个只能针对text1吧?如果我有30个文本框,岂不是要写30遍?我想得到些简单的办法
追答
我再想一下,有个方法可以直接全选
这个怕无法办到吧。因为只有具有焦点的才能全选,其它的就没法全选
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询