2011年4月27日水曜日

フォームを開く

「フォームの新規作成」の項で作成したフォームを開くサンプルコードを下記
に記す :
  
Sub ExampleOpenDialog1()
       Dim objDialog1 As Object
       '
       'フォームをメモリに読み込む
       DialogLibraries.LoadLibrary("Standard")
       objDialog1 = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
       '
       'フォーム「Dialog1」を表示する
       objDialog1.execute()
End Sub
  
フォームを開く処理は、
  
1. フォームをメモリに読み込んでから、
2. メモリに読み込んだフォームを表示する
  
の二段階の手順を踏む。
上記コードの詳細は不明だが、オマジナイと思ってこの通りやると、ちゃんと
フォームが表示される。

0 件のコメント:

コメントを投稿