ステータスバーに文字列を表示するマクロの実験 LIbreOfficeCalc Basic

ステータスバーに文字列を表示するマクロの実験

• マクロを実行するとステータスバーに表示した文字列は表示されたまま
•  

 

 

Sub statusbar
'ステータスバーにメッセージ表示
    Dim msgTxt As String    'ステータスバーに表示する文字列
   
    msgTxt="あいうえお"
    'ステータスバーにメッセージを表示
        ThisComponent.getCurrentController.getFrame.createStatusIndicator.start( msgTxt,10 )
     
    'ステータスバー表示終了    ? メッセージは表示されたまま   
            ThisComponent.getCurrentController.getFrame.createStatusIndicator.end()
       '表示を消す
           wait 500        '待ち時間
           ThisComponent.getCurrentController.getFrame.createStatusIndicator.start( "",10 )
End Sub

 

タグ：ステータスバー

コメント 1

http://www.cheapmedpills11.com/ , http://www.cheapharm11.com/ ,
by cialis (2015-11-13 17:32)