我刚学VB 正在学做一个文本框控件(TxtContent)
请问一下 以下的 TxtContent.SelStart 和TxtContent.SelLength 这两个代码是怎么出来
Private Sub TxtContent_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
LblStart.Caption = "起始位置:" & TxtContent.SelStart
LblLength.Caption = "文本长度:" & TxtContent.SelLength
End Sub Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub Private Sub CmdPaste_Click()
TxtContent.SelText = Clipboard.GetText
End Sub Private Sub CmdClear_Click()
TxtContent.Text = ""
End Sub Private Sub CmdQuit_Click()
End
End Sub
请问一下 以下的 TxtContent.SelStart 和TxtContent.SelLength 这两个代码是怎么出来
Private Sub TxtContent_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
LblStart.Caption = "起始位置:" & TxtContent.SelStart
LblLength.Caption = "文本长度:" & TxtContent.SelLength
End Sub Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub Private Sub CmdPaste_Click()
TxtContent.SelText = Clipboard.GetText
End Sub Private Sub CmdClear_Click()
TxtContent.Text = ""
End Sub Private Sub CmdQuit_Click()
End
End Sub
解决方案 »
- 谁有这个vbAccelerator Explorer Bar Control控件
- 一个超级郁闷的问题,可能遇到的人不多
- 谁用过SQL-SERVER6.5数据库,有一些小问题,问题解决就给份,在线等。
- ADO高手请帮忙!2天都没人能回答,在线等候!分不够再加!很急很急!
- 50分询问!!VB6.0利WMI编程问题,访问windows XP操作系统出错(利用xp操作系统开发的)!
- 北京的朋友,有谁知道这东西那里有卖的??
- 谁帮助编一个把指定扩展名的文件拖到list窗口上!
- &&&&&&&&&&&&&&&&&&&&&&如何得到计算机中已经存在的拨号连接entryname及相关信息,如何关闭用API做成的拨号程序时打开的端口,100分!!!
- 有个技术问题求解决
- 数据库链接不上啊 求大神帮忙检查一下 链接字符串
- 关于串口,急,大侠帮帮忙
- 这个问题实在解决不了了,求助!!!!!!!!!
sellength 选择文本的长度
MSDN不会用么?
LblStart.Caption = "起始位置:" & TxtContent.SelStart '标签上显示光标位置
LblLength.Caption = "文本长度:" & TxtContent.SelLength '标签上显示选择文本长度
End Sub Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText '复制选择文本到剪贴板
End Sub Private Sub CmdPaste_Click()
TxtContent.SelText = Clipboard.GetText '文本框内文本替换为剪贴板内的
End Sub Private Sub CmdClear_Click()
TxtContent.Text = "" '将文本框内的清空
End Sub Private Sub CmdQuit_Click()
End '关闭程序
End Sub
答:Vb中控件的属性