ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月28日(木) 19:15

全ての表示時間は UTC+09:00 です




返信する
ユーザー名:
件名:
メッセージ本文:
メッセージを入力してください。60000 字まで入力できます。 

フォントサイズ:
フォントカラー
オプション:
BBCode: ON
[img]: ON
[flash]: OFF
[url]: ON
スマイリー: OFF
BBCode を無効にする
URL を自動的にパースしない
クイズ
お手数ですがカタカナで「エービー」と4文字を入力してください。:
答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
   

トピックのレビュー - 自ソフトのウィンドウが表示されない
作成者 メッセージ
  記事の件名:  ありがとう ございます  引用付きで返信する
引越しをしていて お礼が遅くなりました。すみません。


SetTimer(hMainWnd,ID_TIMER,5000,0) と

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

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

お世話になりました
投稿記事 Posted: 2010年6月09日(水) 17:18
  記事の件名:   引用付きで返信する
ウインドウが表示されないということですが、まず作成したウインドウ、
これのウインドウプロパティの可視にチェックが入っていることを確認します。

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

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

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

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

よってタイマーイベントに切り替えるか、サブスレッドで処理しなければいけません…
投稿記事 Posted: 2010年6月08日(火) 17:46
  記事の件名:  自ソフトのウィンドウが表示されない  引用付きで返信する
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:23

全ての表示時間は UTC+09:00 です


ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean