VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2006/06/17(Sat) 11:54
投稿者： おじん
Ｅメール：
ＵＲＬ：
タイトル： Ｆｏｒｍを最小化したとき

いつもご指導ありがとうございます。
フォームを最小化したとき、その間にもフォーム内で実行されている
状況をタイトルに表示したいと思っています。
例えば下記のように、「経過時間」を例にしてテストしてみたのですが
タイトルの内容は変化しません。
ＡＰＩ間ではなく、
Timer1.Interval=1000とし、
Timer1内で
wTtime=wTime+1
Me.Caption=wTimeとしても同様に変化しません。
最小化した場合はプログラムは「停止」しているのでしょうか。
よろしくご指導ください。

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Dim wtime&

Private Sub Form1_Click()
'キャプチャー開示
    Timer1.Enabled = True 'タイマー開始
    wtime = timeGetTime()
    Me.WindowState = 1 'Window最小化
End Sub
    
Private Sub Timer1_Timer()
    Me.Caption = "経過:" & (timeGetTime - wtime) \ 1000
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -