自ソフトのウィンドウが表示されない
Posted: 2010年6月08日(火) 17:23
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
しかし ソフトを起動すると 画面表示がありません
ループを使用して 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