7,789
社区成员
发帖
与我相关
我的任务
分享我想制作一个textbox(是叫控件，还是类模块)，能实现？
在他得到焦点时,可以得到
将他的内容先取起来
例如 TB为textbox
Public Sub Tb_GotFocus()
Tb.SelStart = 0
Tb.SelLength = Len(Tb.Text)
End sub
不知道该如何写该控件，请大家给个帮忙，因为里面我还要写
以便在程序中调用该控件，不必再每个textbox框里写了
Tb.SelStart = 0
Tb.SelLength = Len(Tb.Text)
该以上代码
将他的内容先取起来
例如 TB为textbox
Public Sub Tb_GotFocus()
Tb.SelStart = 0
Tb.SelLength = Len(Tb.Text)
End sub
不知道该如何写该控件，请大家给个帮忙，因为里面我还要写
以便在程序中调用该控件，不必再每个textbox框里写了
Tb.SelStart = 0
Tb.SelLength = Len(Tb.Text)
该以上代码
...全文
请发表友善的回复…
发表回复
华芸智森 2004-03-21
- 打赏
- 举报
就以TEXTBOX为成份控件..
将TEXTBOX的属性方法事件映射过来...
在成份控件TEXTBOX的GotFocus添加下面语句即可.
Tb.SelStart = 0
Tb.SelLength = Len(Tb.Text)
将TEXTBOX的属性方法事件映射过来...
在成份控件TEXTBOX的GotFocus添加下面语句即可.
Tb.SelStart = 0
Tb.SelLength = Len(Tb.Text)
