| 投稿日 | ： 2004/03/12(Fri) 14:01 |
| 投稿者 | ： トラッキー |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: Timerを使用したら「×」を表示させるには？ |
> 事象を再現できるコードなりを投稿して下さい。
花ちゃんさん、回答ありがとうございます。
事象ですがGameStatsというフォームにピクチャボックスを2つ
（PicFrameとPicDraw）を重ねて配置してPicDrawにプレビューを
表示しようとしています。
ゲーム記録画面のfrmGameRrecordフォームにあるcmdTimeOutボタン
がクリックされたらタイマーtmrTimeOutが01:00から１秒づつ減らし
ていくようにしてあり00：00秒になったらcmdTimeOutボタンは
.Enabled = Falseとしています。
ゲーム時間用のタイマーtmrGameTimeが起動中にcmdTimeOutボタン
をクリックしてタイマーtmrTimeOutを使用した場合には所定の位置
に"×"を使用しなかった場合には"＝"と表示がしたいのです。
また、表示したい回数は計７箇所あり、
１番目は38,9,
２番目は41,9,
３番目は44,9,
４番目は47,9,
５番目は50,9,
６番目は53,9,
７番目は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 = "ＭＳ 明朝"
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