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