西安礼品:这是关于vb的一个问题,还望解答,谢谢.就是有点长.

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 12:44:44
Private Sub Form_Load()
Text1.Text = ""
Text1.FontSize = 16
End Sub
Private Sub copy_Click()
If Text1.SelStart <> "" Then
Clipboard.SetText (Text1.SelText)
Else
MsgBox "请选择文本内容"
End If
End Sub
Private Sub pst_Click()
a = Text1.SelStart
b = Len(Text1.Text)
Text1.Text = Left(Text1.Text, a) & Clipboard.GetText(vbCFText) & Right(Text1.Text, b - a)
End Sub
Private Sub del_Click()
Text1.Text = ""
End Sub
其中的Clipboard.SetText (Text1.SelText)是什么意思,还有
Text1.Text = Left(Text1.Text, a) & Clipboard.GetText(vbCFText) & Right(Text1.Text, b - a)呢???希望各位大虾给予指点.谢谢

Clipboard 剪贴板

看了你的代码,觉得是一个文件复制、删除操作用的。