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

タイトル ： 経過時間の算出部分と表示部分の処理はできました。
投稿日： 2008/03/04(Tue) 19:17
投稿者： tea
琴さん、回答をいただき本当にありがとうございます。
ご指摘いただいた経過時間の算出部分と表示部分の処理を分けてみました。

> 終わった部分は表示に関わらない、または表示箇所が移った時点での経過
> 時間をどこかに保持しておく等の方法が考えられます。

上記にある「値の保持」する方法がわかりません。

どうか教えてください。
よろしくお願いします。

Friend 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)
Dim Text As Integer
Dim Alignment As EAlignment33
Dim A As Integer

    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

'経過時間の計算
Private Sub AnElapsedTime()
Dim Text As Integer
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
        
    Text = mp.A
End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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