请教VB，谢谢。关于剪切版的

Question

一个Command，一个Text（Text为多行显示）
要求点击Command1的时候，粘贴剪切版的内容到Text1，但当剪切版没有数据的时候提示，剪切版为空。Private Sub Command1_Click()
Text1.Text = Clipboard.GetText
End SubPrivate Sub Text1_Click()End Sub

Answer 1

你的问题是？？？？我完全不明白？text的click事件。似乎用处不大

Answer 2

Command1 的 Click() 事件用这个代码：
Private Sub Command1_Click()
    Dim strTemp$
    strTemp = Clipboard.GetText()
    If (Len(strTemp) = 0) Then
        MsgBox "剪贴板没有文本！", 64, "获取文本"
        Exit Sub
    End If
    Text1.Text = strTemp
End Sub

Answer 3

用处大还是不大关键是看需要的人的要求而定，我本来就需要这个要求，text的click事件大不？

Answer 4

你的这个需求也用不着 Text1_Click() 呀！
我不是只需要 Command1_Click() 就解决你的要求了吗？

Answer 5

恩，我的Text1_Click() 事件是其他用的，比如，点击TEXT窗口的时候，不用输入已经就触发了某网页，取得验证码，并显示在Picture1里，这样的话验证码就能取道最后加载的网页的最新验证码，登陆才有效。

Answer 6

如：
Private Sub Text1_Click()
Set Picture1.Picture = LoadPicture("http://passport.csdn.net/ShowExPwd.aspx?temp=fgky5hfs")
End Sub
这样就直接在Picture1里显示最新验证码了。
关于某事件有没用处，主要还是看设计者的需求来定的，呵呵~~~
谢谢 Chen8013