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

タイトル ： Re: pictureBoxの重なり
投稿日： 2008/01/07(Mon) 14:00
投稿者： y4yama
> VB.net 2005 WindowsXPで、開発をしています。
> ○どおしが近づくと、○同士の重なりが描画されません。

こんちは。　違うやり方として、こちらのTipsにある
「マウスのドラッグで範囲を選択し画像を取得してPictureBox2 に表示 」
を見られたら、再描画を繰り返して線を移動したように見せる方法がわかりますよね
それを応用したらDragは出来ます。今までの描いた円は下のようにListに保存しておいて

    Private pts As New List(Of Point)
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        pts.Add(New Point(e.X, e.Y))
        PictureBox1.Refresh()
        draw_cir()
    End Sub
    Private Sub draw_cir()
        Dim gra As Graphics = PictureBox1.CreateGraphics
        For Each pt1 As Point In pts
            gra.DrawEllipse(Pens.Blue, pt1.X - 6, pt1.Y - 6, 12, 12)
        Next
    End Sub
というようにすれば、できそうですが、いかがでしょう・・・参考になれば幸いです
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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