请问怎样用VB把选中的内容复制到剪切板
展开全部
窗体新建一个按钮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个数即可。
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个数即可。
百事牛
2024-10-22 广告
2024-10-22 广告
百事牛是共享提供商,我们提供可靠有效的服务,适当合理的授权费有利于的继续更新优化。同样的事情,同样的方法,百事牛团队十年磨一剑,始终至聚焦在密码恢复领域,深耕于此,我们已研制出有别于其他公司的算法和运算模式, 百事牛的暴力模式加入了分布式点...
点击进入详情页
本回答由百事牛提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询