投稿日 | : 2004/03/12(Fri) 14:01 |
投稿者 | : トラッキー |
Eメール | : |
URL | : |
タイトル | : Re^4: Timerを使用したら「×」を表示させるには? |
> 事象を再現できるコードなりを投稿して下さい。
花ちゃんさん、回答ありがとうございます。
事象ですがGameStatsというフォームにピクチャボックスを2つ
(PicFrameとPicDraw)を重ねて配置してPicDrawにプレビューを
表示しようとしています。
ゲーム記録画面のfrmGameRrecordフォームにあるcmdTimeOutボタン
がクリックされたらタイマーtmrTimeOutが01:00から1秒づつ減らし
ていくようにしてあり00:00秒になったらcmdTimeOutボタンは
.Enabled = Falseとしています。
ゲーム時間用のタイマーtmrGameTimeが起動中にcmdTimeOutボタン
をクリックしてタイマーtmrTimeOutを使用した場合には所定の位置
に"×"を使用しなかった場合には"="と表示がしたいのです。
また、表示したい回数は計7箇所あり、
1番目は38,9,
2番目は41,9,
3番目は44,9,
4番目は47,9,
5番目は50,9,
6番目は53,9,
7番目は56,9,です。
自分でコードを記述してみてもタイマーtmrTimeOutが起動している
最中は"×"が表示されていますがタイマーtmrTimeOutが終了後にプレ
ビューで確認すると消えている状態です。
どうかよろしくお願いします。
'プレビュー用'
Private Sub PLocate(X As Long, Y As Long, myStr As String)
With Obj
.ScaleMode = vbCharacters 'キャラクターモードに設定
.CurrentX = X * PrtX '水平座標の設定
.CurrentY = Y * PrtY '垂直座標の設定
End With
Obj.Print myStr '指定位置に文字列を表示
End Sub
Private Sub aPreviewRecord()
'Aチームのゲーム記録サブルーチン'
'Aチームのチーム名を記録させます。'
Obj.Font.name = "MS 明朝"
Obj.Font.Size = 10
Call PLocate(34, 2, "チームA")
Obj.Font.Size = 14
Call PLocate(34, 4, frmGameMember.txtTeamName1(0).Text)
'Aチームの総得点を記録させます。'
Obj.Font.Size = 10
Call PLocate(34, 6, "得点")
Obj.Font.Size = 14
Call PLocate(38, 6, frmGameRecord.lblTokuten1(0).Caption)
'Aチームのチーム名を記録させます。'
Obj.Font.Size = 10
Call PLocate(1, 8, " チームA:")
Obj.Font.Size = 18
Call PLocate(10, 8, frmGameMember.txtTeamName1(0).Text)
'Aチームのチャージドタイムアウトを記録させます。'
Obj.Font.Size = 10
Call PLocate(37, 8, "チャージドタイムアウト")
↓ここで行き詰っています。
'Aチームの第1クォーター時にタイムアウトを取った場合にプレヴュー表示する'
If frmGameRecord.cmdTimeOut.Enabled = True Then
Call PLocate(38, 9, "×")
End If
'Aチームの第2クォーター時にタイムアウトを取った場合にプレヴュー表示する'
・
・
・
End Sub