本文介绍如何使用SubMain和FunctionProgressBar在状态栏中显示文本信息，包括状态文本的设置和进度条的启动。通过示例代码演示了如何在应用程序中灵活地更新状态栏显示内容。
Sub Main
StatusText("hello world")
End Sub
Function ProgressBar
ProgressBar = ThisComponent.CurrentController.StatusIndicator
End Function
REM display text in status bar
Sub StatusText(sInformation as String)
Dim iLen As Integer
Dim iRest as Integer
iLen = Len(sInformation)
iRest = 270-iLen
ProgressBar.start(sInformation+SPACE(iRest),0)
End Sub
StatusText("hello world")
End Sub
Function ProgressBar
ProgressBar = ThisComponent.CurrentController.StatusIndicator
End Function
REM display text in status bar
Sub StatusText(sInformation as String)
Dim iLen As Integer
Dim iRest as Integer
iLen = Len(sInformation)
iRest = 270-iLen
ProgressBar.start(sInformation+SPACE(iRest),0)
End Sub
扫一扫
1857
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
