这是一个与GUI没有直接关系的块，而是在登录过程中用于检索登录面板中的系统列表的。

每个循环都有一些。

功能SAPUILandscape（系统）

     Dim fpath作为字符串
     昏暗的sapfiles作为字符串
     SAPUILandscapefile昏暗为字符串
     Dim ConnString作为字符串
     变体变暗
     Dim isValid为布尔型
     昏暗测试为布尔
     Dim AttribName作为字符串
     Dim AttribServer作为字符串
     昏暗的CurrentXpath作为字符串
     昏暗的xmlDoc为MSXML2.DOMDocument60
     昏暗的xmlSelection为MSXML2.IXMLDOMSelection
     昏暗的xmlAttributes为MSXML2.IXMLDOMNamedNodeMap
     昏暗的xmlItems作为MSXML2.IXMLDOMAttribute

     设置xmlDoc = New MSXML2.DOMDocument60
     测试=错误
    
     'xml结构
     AttribName ="名称"
     AttribServer ="服务器"
     'alt AttribTag =" systemid"
     CurrentXpath ="//Landscape/Services/Service [@"＆AttribName＆" ='"＆system＆"']"
    
     '找到SAPUILandscape.xml
     fpath = Environ $（" AppData"）
     sapfiles =" SAP \ Common \"
     SAPUILandscapefile =" SAPUILandscape.xml"

     如果Right（fpath，1）<>" \"然后
         fpath = fpath＆" \"
     万一
     fpath = fpath和sapfiles和SAPUILandscapefile

     xmlDoc.async = False
    
     如果xmlDoc.Load（fpath）然后
         '成功加载了xml
         设置xmlSelection = xmlDoc.SelectNodes（CurrentXpath）
         如果xmlSelection.Length = 0，则
             '找不到路径
             isValid = False
         其他：
             设置xmlAttributes = xmlSelection.Item（0）.Attributes
             对于xmlAttributes中的每个xmlItem
                 如果xmlItems.BaseName = AttribServer然后
                     ConnString = xmlItems.NodeValue
                     isValid = True
                     退出
                 万一
             下一个xmlItems

         万一
    
     其他：
         如果测试= True，则
             '文档加载失败。
             昏暗的strErrText作为字符串
             昏暗的xPE作为IXMLDOMParseError
             '获取ParseError对象
             设置xPE = xmlDoc.parseError
             使用xPE
                 strErrText ="您的XML文档无法加载"＆_
                   "由于以下错误。"  ＆vbCrLf＆_
                   "错误#："＆.ErrorCode＆"："＆xPE.reason＆_
                   "行号："和.Line和vbCrLf和_
                   "行位置："＆.linepos＆vbCrLf＆_
                   "文件中的位置："＆.filepos＆vbCrLf＆_
                   "源文本："＆.srcText＆vbCrLf＆_
                   "文档URL："和.Url
             结束于
            
             MsgBox strErrText，vbExclamation
             isValid = False
         其他：
             isValid = False
        
         万一
        
     万一

     如果isValid = True，则
         在景观中找到联系
         SAPUILandscape = formatConnString（ConnString）
        
     其他：
         '在景观中找不到连接
         SAPUILandscape =""
        
     万一

 结束功能

 

对于SAP gui，我没有一个快速提供帮助的示例，但是您可以将变量声明为特定类型，然后可以为每个子对象循环

 Dim tobj作为SAPFEWSELib.GuiTableControl
     昏暗的tObjChild为SAPFEWSELib.GuiComponentCollection 
 

然后为每个循环

对于tObj中的每个tObjChild
 '逻辑在这里
 下一个tObjChild