tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

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

古いスレッドにレスはつけられません。