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

タイトル ： 何とか解決できたと思います。
投稿日： 2008/10/20(Mon) 15:26
投稿者： くりーむぱん
花ちゃん様、魔界の仮面弁士様
どうもありがとうございました。
途中で右手が痛くて止めようかとも思いましたが、
何とか踏ん張れました。
ありがとうございました。

Public Class Form1
    Dim startX As Integer
    Dim startY As Integer
        Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
            If e.Button = Windows.Forms.MouseButtons.Left Then
                startX = e.X
                startY = e.Y
            End If
        End Sub
        Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        Dim g As Graphics = Me.CreateGraphics
        g.DrawLine(Pens.Red, startX, startY, e.X, e.Y)
    End Sub
End Class
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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