Question

vb将指定文字复制到剪贴板

我想做一个程序，弹出几个inputbox，让我输入一些东西，然后将我输入的内容连成一句话复制到剪贴板，让我可以在其他地方ctrl+v黏贴出来，谢谢VB大神！邮箱lb905049701@qq.com

Answer 1

窗体新建一个按钮Command1和文本框Text1

Private Sub Command1_Click()
Dim i As Integer, result As String           '定义整型变量i,字符串变量result
For i = 1 To Text1.Text Step 1              '循环过程开始将i的最小值和最大值限定为1和Text1的内容，步距为1
    result = result & InputBox("")              '弹出InputBox并且与之前的合并赋给result
Next                                                       '循环过程完毕
Clipboard.Clear                                     '清空剪贴板
Clipboard.SetText result                        '将剪贴板内容设置为result
End Sub

运行程序后在文本框里面输入要弹出的InputBox个数即可

Answer 2

 Cilpboard.SetText 要设置的字符串

就这么简单！

Answer 3

Private Sub Form_Load()
For i = 1 To 3
    s = InputBox("")
    o = o & s & vbCrLf
    
Next
Clipboard.Clear
Clipboard.SetText o
End Sub