Question

vb 剪贴板的问题。

我实现复制功能，但是执行下面语句后，我的剪贴板上没有数据。
Private Sub Command3_Click()
Dim zong As String
zxbh = Left(zxbh, Len(zxbh) - 1)
zykh = Left(zykh, Len(zykh) - 1)
dkh = Left(dkh, Len(dkh) - 1)
zong = "客户：" + zxbh + "。产品：" + zykh + "。数量：" + dkh + "。" + qxry
Clipboard.SetText zong
End Sub
麻烦那个师傅帮看一下。

Answer 1

Screen.ActiveForm.hwnd 是当前活动窗口的吧声明：Declare Function OpenClipboard Lib "user32" Alias "OpenClipboard" (ByVal hwnd As Long) As Long
希望能解决您的问题。

追问

看不懂，师傅能帮我看看我的小程序？ 你的qq号多少，我的是1302185570