ab.com コミュニティ

ご報告ありがとうございます。
こちらでも現象が確認でき、原因を突き止めることもできました。
次回のバージョンアップで修正しますので、今しばらくお待ちください。

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)

	DialogBox(hMainWnd,"Setting")
	DialogBox(hMainWnd,"Setting")

End Sub

Sub Setting_CommandButton1_Click()
	EndDialog(hSetting,0)
End Sub

件名のままなのですが、再現方は以下の様に。

新規プロジェクトを作り、メインウインドウには以下を追加。
[code]
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)

DialogBox(hMainWnd,"Setting")
DialogBox(hMainWnd,"Setting")

End Sub[/code]
次に、新しいウインドウを挿入して名前はSettingにします。
タイプは、モーダルダイアログです。
そして、適当なメニューをつけ、さらにボタンを作って、中身は以下とします。
[code]
Sub Setting_CommandButton1_Click()
EndDialog(hSetting,0)
End Sub
[/code]
唯、ダイアログが2回呼ばれるだけのプログラムで、
実行すると、まずダイアログが現れます。メニューも表示されてます。
ダイアログのボタン、（×ボタンでも同じ）を押すと、またダイアログが表示されます。
ですが、二回目はメニューが消えてしまっています。これも消すとメインウインドウが表示されます。

メインウインドウ作成時に2回呼んでますが、ほかの所で呼んでもダメでした。
RADを使わずに、以下等を参考にして、自力でメニューを作成した場合はちゃんと表示されます。
http://www.geocities.jp/bfrqf368/activebasic/tips/menu/about.html
バグじゃなくて私のやり方が間違ってたらすいません。

OS　WINXP　Home　SP2　ActiveBasic　Ver4.22.00　(4.13.00でも確認)