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