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

タイトル ： Re^3: とりあえず、ここまでは出来たんですが・・・
投稿日： 2008/03/04(Tue) 17:41
投稿者： 琴
> 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 A, b, c, d As Integer
> Dim Alignment As EAlignment33
>    
>     b = Game.Setting.QuarterMinutes
>     c = Left(frmMain.vsGameTime.Value / 60, 1)
>  
>     d = b - c
>     mp.A = d
>     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

> １番目の表示は「2」のはずですが、なぜか１番目の場所と２番目の場所の表示が、
> ともに「3」になってしまいます。

呼び出された TimeOutMinutes の中で経過時間を計算しちゃってますから
１番目に出力する内容と２番目に出力する内容が同じになるのは必然ですかね。

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

あとは経過時間の算出部分と表示部分の処理を分けて
算出する必要があるときだけそっちを呼び出すようにするとか。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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