OOoBasic/Generic/SplashScreen

スプラッシュスクリーン

com.sun.star.office.SplashScreen を利用します。

非同期にスプラッシュスクリーンを表示しないとその間他のコードは停止してしまいます。

Sub ShowSplash
 oASync = CreateUnoService( _
   "com.sun.star.awt.AsyncCallback")
 oCallback = CreateUnoListener("SplashCallback_", _
    "com.sun.star.awt.XCallback" )
 oASync.addCallback(oCallback,"")
End Sub

Sub SplashCallback_notify( aData )
 oSS = CreateUnoService("com.sun.star.office.SplashScreen")
 
 With oSS
   .initialize(Array(True, "OpenOffice.org"))
   
   wait 100
   .setValue(1)
   
   for i = 1 to 10 step 1
     wait 100
     .setValue(i * 10)
   next
   '.start("", 100)
 End With
End Sub

OnLoadFinished イベントに登録すると・・・。なんだかいまいち、読み込み後に開くのが早くてよく分からない。さらに、ドキュメントを開く進行具合が分からないためバーの調整ができない。