Sub HandleClick(menuName As String, itemNum As Integer, strItemText As String) If strItemText = "打开xml文件" Then open.show End If End Sub 为什么会出现少as,请问我如何写才能实现。
你的问题问的不细,为什么要在类中操作窗口呢?这种办法本身就不好。 你非要这么做,那就如下声明,试一试: Sub HandleClick(ByRef frmOpen As Form, ByRef menuName As String, ByRef itemNum As Integer, ByRef strItemText As String) If strItemText = "打开xml文件" Then frmOpen.Show End If End Sub 千万注意不要把open做变量名!!!
你非要这么做,那就如下声明,试一试:
Sub HandleClick(ByRef frmOpen As Form, ByRef menuName As String, ByRef itemNum As Integer, ByRef strItemText As String)
If strItemText = "打开xml文件" Then
frmOpen.Show
End If
End Sub
千万注意不要把open做变量名!!!