请问如何让文本框再鼠标点中时反蓝显示(这时可以直接输入)??? 比如 Text1 控件 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Sub 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 "双击时可以反蓝显示原来的内容" 这个文本框本来就有Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Sub [紧急求助]先预置一个单据号,之后再更新的问题..... 菜鸟提问关于 listview 和 treeview 的问题 如何把IE窗口调到坐标(800,1600)去? 新手求助:vb中有等待函数吗?(急,在线等待) 散分!接可没这么容易 用setup factory安装时的问题 大侠来看看,我打包的VB安装文件安装时为什么出现下面的错误??? 关于Activebar控件的菜单图片设置 欢迎VB高手分析程序 在crystal report 中如何用程序加入图象在运行时????? 打包问题,哪位大哥哥,可以帮我一下,我用VB打包后,安装的时候出错。小妹在此先谢谢了。 应该用哪个API?
Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)
End Sub