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

投稿日: 2004/03/12(Fri) 19:58
投稿者花ちゃん
Eメール
URL
タイトルRe^7: Timerを使用したら「×」を表示

最初の状況は下記ではなかったのですか?

> ーフォームのプレビュー画面の37,9,に「×」を表示させたい
> のですが、以下のコードだとTimerが起動中にのみ「×」が表
> 示され、Timerが終了すると「×」が消えてしまいます。
> Timer終了後も「×」が表示されるようにするにはどのように
> 改善したらよいのでしょうか?



> そして7箇所の「×」の表示を考えてコードを記述してみましたが、最
> 初の1つは良いのですが2つ目以降は表示されない状況です。

これって、結局前回の事が解決されていないだけでは

>     'Aチームがチャージドタイムアウトを取った場合にプレヴュー表示する'
>     For cnt = 0 To 7
>     If frmGameRecord.cmdTimeOut.Enabled = True And cnt = 0 Then
>         Call PLocate(38, 9, "×")
>     ElseIf frmGameRecord.cmdTimeOut.Enabled = True And cnt = 1 Then
>         Call PLocate(41, 9, "×")
>     ElseIf frmGameRecord.cmdTimeOut.Enabled = True And cnt = 2 Then
>         Call PLocate(44, 9, "×")
>     ElseIf frmGameRecord.cmdTimeOut.Enabled = True And cnt = 3 Then
>         Call PLocate(47, 9, "×")
>     ElseIf frmGameRecord.cmdTimeOut.Enabled = True And cnt = 4 Then
>         Call PLocate(50, 9, "×")
>     ElseIf frmGameRecord.cmdTimeOut.Enabled = True And cnt = 5 Then
>         Call PLocate(53, 9, "×")
>     ElseIf frmGameRecord.cmdTimeOut.Enabled = True And cnt = 6 Then
>         Call PLocate(56, 9, "×")
>     End If

今回も投稿して貰ったコードでは状況を確認できませんし、コードが投稿できないなら
自分で、それぞれの IF 文にブレークポイントを設定して見て確認してみて下さい。

私には貴方の説明が理解できませんし、コードを試して見る事もできませんので
これ以上はわかりません、これでパスさせて頂きます。


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -