Private Sub Command1_Click()
Call OLE1_DblClick ''''这里调用OLE1_DblClick 事件就行了
End SubPrivate Sub OLE1_DblClick()
''...
End Sub
Call OLE1_DblClick ''''这里调用OLE1_DblClick 事件就行了
End SubPrivate Sub OLE1_DblClick()
''...
End Sub
在一般情况下如果一个ole 已经连接到一个文件上, 当运行这个工程时, 只要双击这个ole 就会打开ole 所连接的文件 , 而上面几位所说的方法虽然按道理上是激活了 ole1的dblclick 事件,但是当运行工程时, 却不能达到点击按钮达到双击 ole 的效果 .
还有下面的代码可以运行
Private Sub OLE1_Click()
MsgBox "aaa"
End Sub
而
Private Sub OLE1_DblClick()
MsgBox "kkk"
End Sub
却不能运行