哪位高手帮帮忙啊

chen57313457 2008-05-03 04:54:00
我刚学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
...全文
58 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
chen57313457 2008-05-04
  • 打赏
  • 举报
回复
各位大哥大姐 详细点 不是很能了解 才刚学!!!
FIRENDLESS 2008-05-03
  • 打赏
  • 举报
回复
以下的 TxtContent.SelStart 和TxtContent.SelLength 这两个代码是怎么出来


答:Vb中控件的属性
FIRENDLESS 2008-05-03
  • 打赏
  • 举报
回复
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
smoked 2008-05-03
  • 打赏
  • 举报
回复
selstart 选择文本的起始位置或是插入位置
sellength 选择文本的长度
MSDN不会用么?
chen57313457 2008-05-03
  • 打赏
  • 举报
回复
高手帮帮忙 别不理人啊!!痛苦!!不知道那两个代码哪来的!!!我是照人家的说明做的 可说明那里没2个代码的解释

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧