vb中菜鸟问题

问题是你想在什么事件中对选择的文本进行操作，或者得到选择的文本的信息。
比如你可以另外建一个Command控件，加上代码：

If Text1.Text="" Then
MsgBox "你没有选择任何文本！"
else
msgbox "你在文本框中选择的文本是：" & text1.seltext
End if
上面的代码也可以加到
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
等事件中。

另外， 用的较多的是，在复制，剪切功能中，
比如你加一个Command，他的Caption设置为 剪切
加上代码：
st=Text1.seltext '将选择的文本存到一个（全局）变量中，可以在声明中定义变量st，Dim st as String
text1.seltext="" '将选择的文本清空，以达到剪切的目的。如果不清空就可以达到复制的目的。

另外加一个按钮 Caption设置为 粘贴
它的Click事件中加上代码：

text1.seltext=st '你先在TEXT1中文本中点击，光标落在，比如 8，9之间再单击这个按钮，就可以实现文本的粘贴功能

上面的代码的意思是从第4个字符开始往后选中3个长度的字符

你可以画个command1和一个text1双击窗体上的command1输入代码:
Private Sub Command1_Click()
Text1.Text = "1234567890"
Text1.SelStart = 3
Text1.SelLength = 3
Text1.SetFocus
End Sub

再句一个最简单的例子，点击进去全选所有文本
你画一个Text1,在窗体上双击它，然后在代码窗口右上脚有一个下拉框，找到一个“GotFocus”，点一下，然后在里面输入代码

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

祝新手学习有成！！！

'建立两个文本框,把下列代码粘贴到代码窗口就好了
Private Sub Text1_Click() '是文本框击事件(鼠标点击文本框时)
Text1.Text = "1234567890"
Text1.SelStart = 3 '起始字符位置
Text1.SelLength = 3 '选择字符长度
Text2.Text = Text1.SelText
End Sub

然后运行,单击text1,就会执行以上代码

在设计时,你双击窗体上的任何控件都可以进入,代码窗口.
并且定位在该控件的默认事件里.
比如:你双击一下文本框就会进入:
Private Sub Text1_Change()
写代码
End Sub
然后你就在private sub ...与 end sub 之间写代码.

如果你想改变事件,那么你要...
先给你说说.代码窗口.空白的是你写代码的地方,在空白顶处有两个下接框
左边的是对象框,列出你窗体内所有控件及对象.
右边的是事件框,列出对象的相应事件.
不同对象有不同事件列表.
你在左边改变对象时,右边的事件列表也改变了.
你要在某个事件里写代码,那你只要在事件框里点击相应的事件.