Question

VB中如何将剪贴板的文字自动导入到text1.text文本里面？

VB中如何将剪贴板的文字自动导入到text1.text文本里面？
就是我复制了123在text控件里面也显示123
求教各位大虾
如果代码好追加20分
请直接贴出代码 什么先给分后解答的骗子死远点！

Answer 1

在窗体上放上一个TextBox ，一个Timer：
Private Sub Timer1_Timer()
Text1.Text = ""
Text1.Text = Clipboard.GetText '把剪贴板的文本写入Text1
End Sub
Private Sub Form_Load ()
Text1.text=""
Timer1.Interval = 1000
End Sub

Answer 2

Private Sub Command1_Click()
Text1.Text = Clipboard.GetText '把剪贴板的文本写入Text1
End Sub

'Clipboard.SetText (Text1.Text) '复制Text1中的文本
'Clipboard.Clear '清空剪贴板

Answer 3

'复制
Clipboard.Clear
Clipboard.SetText (Text1.SelText)

'剪切
Clipboard.Clear
Clipboard.SetText (Text1.SelText)
tmp = Text1.SelText
Text1.Text = Replace(Text1.Text, tmp, "")

'粘贴
tmp = Text2.SelText
tmp1 = Left(Text2.Text, Text2.SelStart)
tmp2 = Replace(Right(Text2.Text, Len(Text2.Text) - Text2.SelStart), tmp, "")
Text2.Text = tmp1

Answer 4

Clipboard.SetText (Text1.SelText)

'剪切
Clipboard.Clear
Clipboard.SetText (Text1.SelText)
tmp = Text1.SelText
Text1.Text = Replace(Text1.Text, tmp, "")

'粘贴
tmp = Text2.SelText
tmp1 = Left(Text2.Text, Text2.SelStart)
tmp2 = Replace(Right(Text2.Text, Len(Text2.Text) - Text2.SelStart), tmp, "")
Text2.Text = tmp1 & Clipboard.GetText & tmp2

Answer 5

加我为好友,我来帮你解答..很容易的...满意的再给分...我现在在办公室,没办法帮你试验代码...回家了才能给你代码...现场帮你调试....