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

タイトル ： 再度、質問させていただきます。
投稿日： 2008/03/03(Mon) 14:41
投稿者： tea
PictureBoxの所定の位置に「×」というかクロスの線を引くようにするため
のコードで、コマンドボタンをクリックするとこで「クロス線」を表示する
のですが、これをTimerの経過時間に置き換えたいと思っています。

経過時間は以下のコードで求めることが出来るのですが、
Left(vsGameTime.Value / 60, 1) - Game.Setting.QuarterMinutes
これをどのようにして.DrawMatrixCrossと置き換えたらよいのかが
わかりません。
初歩的な事柄で申し訳ありませんが、どうか教えてください。
よろしくお願いします。

Public Sub DrawMatrixCross(ByVal Col As Single, _
                           ByVal Row As Single, _
                           ByVal Cols As Single, _
                           ByVal Rows As Single, _
                           Optional ByVal Color As Variant = Empty)
    With makeMatrixRect(Col, Row, Cols, Rows)
        drawLine .Left, .Top, .Right, .Bottom, False, Color
        drawLine .Left, .Top, .Right, .Bottom, True, Color
    End With
  
End Sub

Private Sub drawLine(ByVal Left As Single, _
                     ByVal Top As Single, _
                     ByVal Right As Single, _
                     ByVal Bottom As Single, _
                     Optional ByVal Flip As Boolean = False, _
                     Optional ByVal Color As Variant = Empty, _
                     Optional ByVal DrawWidth As Variant = Empty)
    
    With mp
        pushForeColor Color
        pushDrawWidth DrawWidth

        If Not Flip Then
            .Canvas.Line (.XOffset + Left, .YOffset + Top)- _
        (.XOffset + Right, .YOffset + Bottom), .Canvas.ForeColor

        Else
            .Canvas.Line (.XOffset + Right, .YOffset + Top)- _
        (.XOffset + Left, .YOffset + Bottom), .Canvas.ForeColor
        End If
        popForeColor Color
        popDrawWidth DrawWidth
    End With
End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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