vb.net - Vb.net 2 点間に線を引く

Question

2点間に線を引きたい：

http://i.stack.imgur.com/Yuhsd.gif

2 つのパネルがあり、 から まで線を引きたいとしましょPanel1うPanel2。

説明：

dim p1 as new panel
dim p2 as new panel

p1.left = 100
p1.top = 10
me.controls.add(p1)

p2.left = 300
p2.top = 20
me.controls.add(p2)

DrawLineBetween(p1,p2)

Answer 1

以下のようなものを試してみてください。これはc＃にありますが、vb.netに簡単に変換でき、パネルの位置に従ってx、y座標を調整する必要があります。

   private void Form1_Load(object sender, EventArgs e)
    {
        this.Controls.Add(new Panel{Left = 10, Top = 10,Width = 50,Height = 50, BackColor = Color.Blue});
        this.Controls.Add(new Panel {Left = 100, Top = 100,Width = 50,Height = 50, BackColor = Color.Blue});


    }
    protected override void OnPaint(PaintEventArgs e)
    {
        base.OnPaint(e);
        Graphics g;

        g = e.Graphics;

        Pen myPen = new Pen(Color.Red);
        myPen.Width = 1;

        g.DrawLine(myPen, 12, 12, 45, 65);

        g.DrawLine(myPen, 100, 100, 45, 65);


    }

Answer 2

フォームのイベントでGraphics.DrawLineメソッドを使用します。Paint