Private Sub CopyToClipboard()
hmIDCard.SetFocus '到得焦点
hmIDCard.SelLength = 0 '设置选定的起始位置
hmIDCard.SelLength = Len(hmIDCard.Text) '设置选定的长度
Clipboard.Clear '清除剪贴板上的内容
Clipboard.SetText hmIDCard.Text '复制文本框内容到剪贴板上
End Sub
将文本框信息复制到剪切板
最新推荐文章于 2022-06-12 19:28:08 发布