Source of OOoBasic/Generic/SplashScreen

* スプラッシュスクリーン [#j39707cb]
com.sun.star.office.SplashScreen を利用します。

//#contents

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

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