请问怎样用VB把选中的内容复制到剪切板

Question

如题所述

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个数即可。