请教各位我想将一个文本文件里面的所有文字拷贝到剪贴板，然后复制出来……

[gooore]

用vb6.0实现

不胜感激

[goosen]

你是所有中文 还是所有内容

直接写出不行吗.. 一定要 拷贝到剪贴板，然后复制出来 吗?

[红叶哥]

复制:
Private Sub Command1_Click()
Clipboard.SetText Text1
End Sub

粘貼:
Private Sub Command2_Click()
Text1.Text = Clipboard.GetText
End Sub

[gooore]

这样做textbox有没有长度限制啊？如果内容很多，会不会溢出？

[舉杯邀明月]

TextBox是有长度限制的。
Clipboard仅受系统资源的限制。

[LichKingSZ]

dim a as Clipboard

'Text->Clipboard
a.SetText Text1.Text

'得到Clipboard里的文本
msgbox a.GetText()

[gooore]

通常各位用的时候都是这样返回给textbox吗?

请问怎么避免溢出呢？

[gooore]

请问下你说的直接写出是以什么方式？

不胜感激
[Quote=引用 2 楼 goosen 的回复:]
你是所有中文 还是所有内容

直接写出不行吗.. 一定要  拷贝到剪贴板，然后复制出来 吗?
[/Quote]

[舉杯邀明月]

论坛BUG真麻烦............

[helanshan]

直接打开文件：
Private Sub Form_Click()
Dim str1 As String, str2 As String
Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, str1
str2 = str2 + "" + str1 + Chr(13) + Chr(10)
Loop
Text1.Text = str2
Close #1
End Sub