用友U8Menu.ocx的使用

mojianhong

请看用友U8Menu.ocx的使用,代码如下:
Private Sub Form_Load()
    Dim tf As Boolean
    Dim gd_domMenu As New MSXML2.DOMDocument  ''MSXML2.DOMDocument
   
    gd_domMenu.async = False
    tf = gd_domMenu.Load(App.Path & "\" + "cMenu.XML")
   
    With CMenu1
        If Not gd_domMenu Is Nothing Then
            .SetMenu (gd_domMenu)                              '执行到此句,出现错误"对象不支持该属性或方法"
        End If
    End With
End Sub
出现错误"对象不支持该属性或方法",请问原因,谢谢您的帮助!

naojin

没有用过。