タイトル : Re^12: 経過時間の算出部分と表示部分の処理はできました。 投稿日 : 2008/03/06(Thu) 14:43 投稿者 : tea
琴さん、回答をいただき本当にありがとうございます。 解説していただいた内容を自分なりに解釈してコードを書き換えてみ ましたが、結果は同じでした・・・。 教えていただいた内容は解釈できるもののコードに出来ません。 また、ブレークポイントを置いてF8で追っていくと、1回目のコマン ドボタンをクリックすると.AnElapsedTime(i)の値は「1」なのですが 、ElseIf mp.Game.Team(ixTeam).AnElapsedTime(i) = -1 Then の方を選択して動作します。 どうか教えてください。 よろしくお願いします。 PrintEngneクラス Public Sub TimeOutMinutes(ByVal Col As Single, _ ByVal Row As Single, _ ByVal Cols As Single, _ ByVal Rows As Single, _ Optional ByVal Color As Variant = Empty, _ Optional ByVal Font As Object = Nothing, _ Optional ByVal index As bbTime) Dim Text As Integer Dim A As Integer Dim Alignment As EAlignment33 Call AnElapsedTime Text = mp.A With makeMatrixRect(Col, Row, Cols, Rows) drawText .Left + 0.2, .Top + 0.05, .Right, .Bottom, _ Text, Alignment, Color, Font End With End Sub 'チャージドタイムアウト取得時の経過時間計測------------------------- Public Sub AnElapsedTime() Dim A As Integer Dim b As Integer Dim c As Integer Dim d As Integer b = Game.Setting.QuarterMinutes c = Left(frmMain.vsGameTime.Value / 60, 1) d = b - c mp.A = d End Sub RScoreSheetCommanderクラス drawTeam ixRow = ixRow + 1 For i = bbTimeOutMin To bbTimeOutMax .DrawMatrixBox i, ixRow, 1, 1 If mp.Game.Team(ixTeam).TimeOutted(i) Then If mp.Game.Team(ixTeam).AnElapsedTime(i) <> -1 Then Call .AnElapsedTime ElseIf mp.Game.Team(ixTeam).AnElapsedTime(i) = -1 Then index = mp.Game.Team(ixTeam).AnElapsedTime(i) .TimeOutMinutes i, ixRow, 1, 1, _ colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i)), _ , index End If Else '「=」ダブルラインを表示する。 .DrawMatrixCenterDoubleLine i, ixRow, 1, 0.95, colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i)) End If Next |