Private Sub Command1_Click()
    Call OLE1_DblClick      ''''这里调用OLE1_DblClick 事件就行了     
End SubPrivate Sub OLE1_DblClick()
''...
End Sub

解决方案 »

  1.   

    add a sub ole_double click() to your sub button_click
      

  2.   

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

    Private Sub OLE1_DblClick()
    MsgBox "kkk"
    End Sub
    却不能运行
      

  3.   

    有个什么什么verb的属性还是方法,,,你找找吧,我以前实现过,,,
      

  4.   

    “打开ole  所连接的文件”  并不触发 OLE1_DblClick 事件!!