メニューのついたダイアログを二回呼ぶと、メニューが消える

[西野孝雄]

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

新規プロジェクトを作り、メインウインドウには以下を追加。

コード: 全て選択

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)

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

End Sub

次に、新しいウインドウを挿入して名前はSettingにします。
タイプは、モーダルダイアログです。
そして、適当なメニューをつけ、さらにボタンを作って、中身は以下とします。

コード: 全て選択

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

唯、ダイアログが2回呼ばれるだけのプログラムで、
実行すると、まずダイアログが現れます。メニューも表示されてます。
ダイアログのボタン、（×ボタンでも同じ）を押すと、またダイアログが表示されます。
ですが、二回目はメニューが消えてしまっています。これも消すとメインウインドウが表示されます。

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

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

[山本]

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