Sub HandleClick(menuName As String, itemNum As Integer, strItemText As String)  If strItemText = "打开xml文件" Then
  open.show
  End If
End Sub
为什么会出现少as,请问我如何写才能实现。 

解决方案 »

  1.   

    你的问题问的不细,为什么要在类中操作窗口呢?这种办法本身就不好。
    你非要这么做,那就如下声明,试一试:
    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做变量名!!!