关于复制~~ Private Sub Command1_Click() Clipboard.Clear ' 清除剪贴板。 Clipboard.SetText Text1.Text ' 将正文放置在剪贴板上。End Sub 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Dim T As StringPrivate Sub Form_Load() T = Text1.TextEnd SubPrivate Sub Command1_Click() 'Clipboard.Clear ' 清除剪贴板。 Clipboard.SetText T ' 将正文放置在剪贴板上。End Sub 分享:vs2010简体中文版下载链接(含中文msdn) 一个获取本机公网IP的函数,请大家帮忙试用! 有关掩码控件MaskEdBox的问题 MSCOMM怎么用事件驱动获得收到的数据? 请教各路VB高手:请进 帮小弟个忙了 如何禁止excel的自定义工具条功能? Excel中的字体如何编程让它居中 用代码刷新注册表? >>>>>请问在世vb中如何报表>>>>急急 请教:如何在窗体失去焦点时关闭窗体? 怎样注册用vb编的dll 关于NASM和它编译的二进代码在VB中的应用问题?
Dim T As StringPrivate Sub Form_Load()
T = Text1.Text
End SubPrivate Sub Command1_Click()
'Clipboard.Clear ' 清除剪贴板。
Clipboard.SetText T ' 将正文放置在剪贴板上。
End Sub