[已解决]vba代码如何写,选中textbox1.text

ls

如何全选文本框.rar (13.54 KB, 下载次数: 26)

2015-3-26 09:10 上传

点击文件名下载附件
vba代码如何写,选中textbox1.text

最佳答案

月排行榜 / 总排行榜

grf1973

2015-3-26 13:13

1. Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.     With TextBox1
   
3.         If Button = 1 Then
   
4.             .SelStart = 0
   
5.             .SelLength = Len(.Text)
   
6.         End If
   
7.     End With
   
8. End Sub

复制代码

左键点击文本框，会选中文本框内容

跳转到最佳答案楼层

ghostjiao

选中.text是个什么意思？就像鼠标划过的效果一样，多了个阴影？

grf1973

1. Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.     With TextBox1
   
3.         If Button = 1 Then
   
4.             .SelStart = 0
   
5.             .SelLength = Len(.Text)
   
6.         End If
   
7.     End With
   
8. End Sub

复制代码

左键点击文本框，会选中文本框内容

ls

grf1973 发表于 2015-3-26 13:13
左键点击文本框，会选中文本框内容

不用事件,不知道可以吗