:获取当前激活画面中「指定名称」的画面窗口标题 前提:画面窗口控件已命名(如ScreenWindow_1,在控件属性→「常规」→「对象名称」中确认)。 vbs Sub GetScreenWindowCaption() On Error Resume Next Dim objCurrentScreen, objScreenWindow, strCaption
' 1. 获取当前激活的主画面(画面窗口所在的画面) Set objCurrentScreen = HMIRuntime.ActiveScreen If objCurrentScreen Is Nothing Then MsgBox "无激活的主画面!", vbExclamation Exit Sub End If
' 2. 获取指定名称的画面窗口控件(替换为你的控件名,如ScreenWindow_1) Set objScreenWindow = objCurrentScreen.ScreenItems("ScreenWindow_1")
' 3. 验证控件是否存在并读取标题 If Not objScreenWindow Is Nothing Then strCaption = objScreenWindow.Caption ' 核心:读取画面窗口的标题属性 MsgBox "画面窗口【ScreenWindow_1】的标题:" & strCaption, vbInformation Else MsgBox "未找到画面窗口控件【ScreenWindow_1】,请检查控件名称!", vbExclamation End If
' 释放对象 Set objScreenWindow = Nothing Set objCurrentScreen = Nothing End Sub