VB中这段话什么意思啊？具体点操作？

来源：百度知道 编辑：UC知道 时间：2024/06/24 12:08:37
对文本的选择，可以理解为这样的过程：先在欲选择的文本前点击鼠标，按下左键不放，拖动鼠标直到选择文本的结束处，最后松开鼠标。这说明，松开鼠标代表着文本选择的结束，从而应该在文本框的鼠标弹起事件（MouseUp）中书写代码，以改变两个标签的标题。 具体代码如下： 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

lblstart的名称为“起始位置：你鼠标选择的第一个字的序号”
lbllength的名称为“文本长度：你鼠标选中的字数”

Dim uStart As Long
Dim ulength As Long
Private Sub CmdCopy_Click()
If (uStart = ulength) Then Exit Sub

Clipboard.SetText Mid(TxtContent.Text, uStart, ulength)
End Sub
Private Sub CmdPaste_Click()
TxtContent.Text = Clipboard.GetText
End Sub
Private Sub TxtContent_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
uStart = TxtContent.SelStart
ulength = TxtContent.SelLength
End Sub

LblStart.Caption = "起始位置：" & TxtContent.SelStart
就是TxtContent文本的开始选择位置

LblLength.Caption = "文本长度：" & TxtContent.SelLength
就是TxtContent文本的文字长度（以字节为单位）

TxtContent好象是总共选择了多少文字