タイトル : 再度、質問させていただきます。 投稿日 : 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 |