vb 将文本文件的内容复制到剪贴板

新建一窗体，添加Command1,Label1

Private Sub Command1_Click()
Dim frfile As Integer
Dim Lstr As String
frfile = FreeFile

Open "C:\1.txt" For Input As #frfile

While Not EOF(frfile)

Line Input #frfile, Lstr
Label1.Caption = Label1.Caption & Lstr & vbCrLf

Wend

Close #frfile

Clipboard.SetText Label1.Caption

End Sub

新建一窗体，添加Command1,text1

Private Sub Command1_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
'上面两条语句是选中text1.text里的所有内容
Clipboard.SetText Form1.Text1.SelText, 1
'这条语句是将tex1.text里的内容全部复制到剪贴板
End Sub

如果你不想将text1.text里面的内容全部复制，就可以编写以下语句...
再添加一个Command2

Private Sub Command2_Click()
Clipboard.SetText Form1.Text1.SelText, 1
End Sub

这个按扭的作用是将选中的内容复制到剪贴板。

我好象理解错了问题，不好意思。