vb6.0如何实现利用剪切板向其他程序的文本框中粘贴文本，要求双击鼠标实现粘贴。
1个回答
展开全部
private Sub Command1_Click()
Dim StrT As String
For i = 1 To Len(Clipboard.GetText)
tmp = Mid(Clipboard.GetText, i, 1)
If IsNumeric(tmp) = True Then
StrT = StrT & tmp
end If
Next
Text1.Text = StrT
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
