[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^2: とりあえず、ここまでは出来たんですが・・・ 投稿日 ： 2008/03/04(Tue) 17:23 投稿者 ： tea
| 琴さん、回答をいただき本当にありがとうございます。 わかりずらい説明で大変申し訳ありません。 > ・表示は７箇所、１番目から順に表示していく。 > ・１回目のボタン押下で１番目の場所に経過時間を表示（他は変化なし？） > ・２回目のボタン押下で２番目の場所に経過時間を表示（その時１番目の内容は「＝」？） > ・現在は２回目の押下で１番目と２番目両方に同じ経過時間が表示される（１番目に「＝」が表示されない？） > ってことでいいんでしょうか？ 表示は７箇所で、１番目から順に７番目まで表示します。 ・１回目のボタンをクリックすることで経過時間（例えば「2」）を１番目の場所に 表示します（他は６箇所はダブルラインで埋めます）。 ・その後、数十秒後に２回目のボタンをクリックしたら経過時間（例えば「3」）を ２番目の場所に表示します。（他の５箇所はダブルラインです。） １番目の表示は「2」のはずですが、なぜか１番目の場所と２番目の場所の表示が、 ともに「3」になってしまいます。 ボタンは一定時間内に最大で７回クリックできます。 また、ダブルラインは一定の時間内にボタンをクリックしなかった場合にのみ「ダブ ルライン」として表示します。 ７つの場所の表示の例としては以下のような感じで、数字が入っているものがボタン をクリックして経過時間を表示したもので、ダブルラインはボタンをクリックしなか った場合です。 「6」「＝」「8」「10」「＝」「＝」「５」 ですから他に 「＝」「＝」「1」「＝」「2」「＝」「＝」 などのようになる場合もあり、全くボタンをクリックしなければ７箇所すべてが「＝」 もあります。 以下の事項は知りませんでした。 修正しておきます。 > > Dim A, b, c, d As Integer > > これだと d だけInteger型で A b c はVariant型になっちゃいますけど意識されてますか？ > 別にエラーになったりはしませんがちょっと気になりました。 > > ixRow = ixRow + 1 > > For i = bbTimeOutMin To bbTimeOutMax > > .DrawMatrixBox i, ixRow, 1, 1 > > > > If mp.Game.Team(ixTeam).TimeOutted(i) Then > > .TimeOutMinutes i, ixRow, 1, 1,_ > > colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i)) > > Else > > '「＝」ダブルラインを表示する。 > > .DrawMatrixCenterDoubleLine i, ixRow, 1, _ > > 0.95, colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i)) > > End If > > > > Next > 外にもう一つループがありそうな感じですね。 For ixTeam = 0 To 1というのがあります。 > mp.Game.Team(ixTeam).TimeOutted(i) が False なら > ダブルラインを表示するようですが、このループの過程で > mp.Game.Team(ixTeam).TimeOutted(i) = False は > 行われているんでしょうか？ 前述の「6」「＝」「8」「10」「＝」「＝」「５」のように なるはずですので行われています。 あと少しで出来そうなんです。 よろしくお願いします。 |
をクリックするとツリー全体を一括表示します） - 所定の位置に「×」ではなく数字に置き換えるには？ - tea 08/03/01-22:55No.11599