ab.com コミュニティ

RADツールで　フォームを作成し　勉強してます
しかし　ソフトを起動すると　画面表示がありません

ループを使用して　30分になったら　処理をしたいのですが
Window表示が　出なくて困ってます
よろしく　お願いします

sub getTime()
Dim st As SYSTEMTIME
dim minute as Integer

Beep(600,1000)
ShowWindow(hMainWnd,SW_SHOW)

Do
Sleep(2000)
GetLocalTime(st)
minute=st.wMinute
if minute = 30 then exit Do
Loop

--処理----
End Sub

ウインドウが表示されないということですが、まず作成したウインドウ、
これのウインドウプロパティの可視にチェックが入っていることを確認します。

チェックが入っているのに表示されなければウインドウスタイルがチャイルドになっていませんか？
これをオーバーラップにします。

これでも表示されなければウインドウのタイプがモードレスまたはモーダルになっていると思いますので通常ウインドウにチェックをいれます。

これでも表示されないなら、あなたのコードに何か原因があると思われます。

getTime()がどこから呼ばれているのかわかりかねますが、
これがサブスレッドでなければそのプログラムは処理をメッセージループに返しませんので、フリーズします。。。

よってタイマーイベントに切り替えるか、サブスレッドで処理しなければいけません…

引越しをしていて　お礼が遅くなりました。すみません。


SetTimer(hMainWnd,ID_TIMER,5000,0) と

Sub MainWnd_Timer(TimerID As Long)
　　　getTime()
End Sub

を　組み合わせて　OKになりました

お世話になりました