Vb.net绘制线两点

Question

我要画两个点之间中：

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

在Paint事件的形式使用Graphics.DrawLine方法。