OOoBasic/Dialog/Throbber

Throbber

実行中を示すアニメーションを表示するためのコントロール。決まったアニメーションのみ可能です。画像を指定したいときには SimpleAnimation を利用します。

この throbber コントロールはダイアログエディタで作成できません。

3.3 でサービス名が修正されました。が、今のところ com.sun.star.awt.UnoThrobberControl com.sun.star.awtUnoThrobberControlModel も利用できます。

3.3 以降のみを対象とするのであれば com.sun.star.awt.UnoControlThrobber および com.sun.star.awt.UnoControlThrobberModel を利用してください。

3.4 で削除されます。

プロパティ

例

Dim oThrobber As Object

Sub Main
  DialogLibraries.LoadLibrary( "Standard" )
  oDialog = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
  oDialogModel = oDialog.getModel()
  
  oThrobberModel = CreateUnoService( "com.sun.star.awt.UnoControlThrobberModel" )
  oThrobber = CreateUnoService( "com.sun.star.awt.UnoControlThrobber" )
  
  oThrobber.setModel( oThrobberModel )
  oThrobber.setPosSize( 10, 10, 30, 30, com.sun.star.awt.PosSize.POSSIZE )
  oDialog.addControl( "throbber", oThrobber )

  oDialog.execute()
  oDialog.dispose()
End Sub

Sub startThrobber
  oThrobber.start()
End Sub

Sub stopThrobber
  oThrobber.stop()
End Sub