So-net無料ブログ作成

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

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

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

 

calcStatusBar.png
 

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

 


nice!(0)  コメント(1)  トラックバック(0) 
共通テーマ:パソコン・インターネット

nice! 0

コメント 1

コメントを書く

お名前:[必須]
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0


Linuxランキング