掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
MouseMoveイベントで描画した直線を更新につには (ID:139377)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Visual Basic 2008 Express Editionを使ってます。 PictureBox1にマウスをクリックしたときの座標(BStartX, BStartY)からマウスのカーソル位置まで直線を描画するのに、以下のようなコードで直線を描画してみました。マウスを動かすたびに直線を更新したいので、SaveBitmapなる元の画像を呼び出しているのですが、マウスの動きを止めると直線が表示されません。マウスを止めた時にも直線を表示するためにはどうしたらいいでしょうか？ Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove If Mode = 4 Then Dim RPen As New Pen(Color.Red) Dim ImageGraphics As Graphics = PictureBox1.CreateGraphics PictureBox1.Image = SaveBitmap ImageGraphics.DrawLine(RPen, BStartX, BStartY, e.X, e.Y) ImageGraphics.Dispose() RPen.Dispose() End If End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.