ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2018年8月15日(水) 13:50

All times are UTC+09:00




新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 
作成者 メッセージ
投稿記事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


通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 2010年6月08日(火) 17:46 
ウインドウが表示されないということですが、まず作成したウインドウ、
これのウインドウプロパティの可視にチェックが入っていることを確認します。

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

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

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

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

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


通報する
ページトップ
   
投稿記事Posted: 2010年6月09日(水) 17:18 
引越しをしていて お礼が遅くなりました。すみません。


SetTimer(hMainWnd,ID_TIMER,5000,0) と

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

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

お世話になりました


通報する
ページトップ
   
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[2人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by KONISHI Yohsuke