| 投稿日 | ： 2004/03/11(Thu) 14:59 |
| 投稿者 | ： トラッキー |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Timerが起動したら「×」を表示させるには？ |
フォームfrmGameRecordでcmdTimeOutボタンをクリックすると
Timerが起動するようにしてあるんですが、その際にプレビュ
ーフォームのプレビュー画面の37,9,に「×」を表示させたい
のですが、以下のコードだとTimerが起動中にのみ「×」が表
示され、Timerが終了すると「×」が消えてしまいます。
Timer終了後も「×」が表示されるようにするにはどのように
改善したらよいのでしょうか？
よろしくお願いします。
Private Sub aPreviewRecord()
'タイムアウトを取った場合にプレヴュー表示'
If frmGameRecord.cmdTimeOut.Enabled = True Then
Call PLocate(37, 9, "×")
End If
End Sub