Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove Dim TempP As Point Dim FMLine As Graphics = PictureBox1.CreateGraphics Dim WhitePen As New Pen(Color.White, 2) Dim RedPen As New Pen(Color.Red, 1) Label4.Text = e.X Label5.Text = e.Y
If e.Button = MouseButtons.Left Then TempP = New Point(e.X, e.Y) FMLine.DrawLine(WhitePen, StartP, C) RedPen.DashStyle = Drawing2D.DashStyle.Dot FMLine.DrawLine(RedPen, StartP, TempP) C = TempP End If
DOBON.NETプログラミング掲示板過去ログ
分類:[.NET]
VB.NetでVB6で言うところのDrawmode=6に対応するものってありますか
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
Dim TempP As Point
Dim FMLine As Graphics = PictureBox1.CreateGraphics
Dim WhitePen As New Pen(Color.White, 2)
Dim RedPen As New Pen(Color.Red, 1)
Label4.Text = e.X
Label5.Text = e.Y
If e.Button = MouseButtons.Left Then
TempP = New Point(e.X, e.Y)
FMLine.DrawLine(WhitePen, StartP, C)
RedPen.DashStyle = Drawing2D.DashStyle.Dot
FMLine.DrawLine(RedPen, StartP, TempP)
C = TempP
End If
End Sub
として マウスがダウンされた点からマウスがムーブしている点までを赤ペンで引き 次にマウスが動いたら 前線を白ペンで塗りつぶして パワーポイントの直線の描画みたいに見せるようにしたのですが。これだと複数本線を書くと前に書いた線マウスが動いている間、部分部分が白によって消されてしまうのでどうもカッコウがよろしくありません。
そこでVB6で言うところのDrawmode=6って.Netでありますか？