请问如何让 textbox 中的 文字 默认为 全部被选中状态呢 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 private sub text1_gotfocus() text1.selstart=0 text1.sellength=len(text1.text)end sub以上的gotfocus也可以替换成你所需要的状态,如失去焦点时(lostfocus)等等。 text1.setfocussendkeys"{Home}+{End}" '在Text事件中调用此函数Sub SelTextBox(tb As TextBox) tb.SelStart = 0 ' Set selection start. tb.SelLength = Len(tb.Text) ' Set selection length.End Sub 关于数组 怎么样给数据库某字段写入空值? 如何将mshflexgrid中的数据转换为Recordset?急!!!高分求答案! 有谁详细一点为我解说一下,VB6的工程属性选项的部件页的版本兼容的三个选项的意义好吗? 用ADO连MYSQL 请教,怎么为picture动态加载控件? 做过餐饮酒店的兄弟请进来看看 ????????大虾们,请帮帮忙,谢谢!!!!!!! 好长时间都无法解决的一句SQL语句难题! 没有装VB的Windows系统是否已有了CommonDialog(公共对话框)这个控件? mschart控件如何在每根柱的顶端显示自定义的字符串? 怎样产生真正的随机数?
text1.selstart=0
text1.sellength=len(text1.text)
end sub
以上的gotfocus也可以替换成你所需要的状态,如失去焦点时(lostfocus)等等。
sendkeys"{Home}+{End}"
Sub SelTextBox(tb As TextBox)
tb.SelStart = 0 ' Set selection start.
tb.SelLength = Len(tb.Text) ' Set selection length.
End Sub