主题：为什么Line的右端锚定属性不起作用

 

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim points(3) As Point
points(0) = New Point(10, 10)
points(1) = New Point(10, 100)
points(2) = New Point(50, 10)
points(3) = New Point(10,10)
g.DrawLines(Pens.Green, points)
p.Repaint()

 

以上代码如何改呢

 

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim points(3) As Point
points(0) = New Point(10, 10)
points(1) = New Point(10, 100)
points(2) = New Point(50, 10)
points(3) = New Point(10,10)
g.DrawLines(Pens.Green, points)
p.Repaint()

 

按照您的说法，上述代码如何改呢

Dim g As Graphics = e.Form.Panel.CreateGraphics
Dim points(3) As Point
points(0) = New Point(10, 10)
points(1) = New Point(10, 100)
points(2) = New Point(50, 10)
points(3) = New Point(10,10)
g.DrawLines(Pens.Green, points)

Dim ctl As Object
    Dim ctla As Object
    Dim ctlb As Object
        ctl =e.Form.Panel.CreateGraphics
        ctla = e.Form.CreateControl("aLineH", ControlTypeEnum.panel)
        ctlb = e.Form.CreateControl("bLineH", ControlTypeEnum.panel)
       
        ctla.backColor = Color.SteelBlue
        ctla.width = 8
        ctla.Height = 8
       
        ctlb.backColor = Color.SteelBlue
        ctlb.width = 8
        ctlb.Height = 8
       
       
        ctla.left = 300
        ctla.Top = 100
        ctlb.left = 100
        ctlb.Top = 300
        e.Form.AddControl(ctla)
        e.Form.AddControl(ctlb)
        Dim g As Graphics = ctl.Graphics
        g.DrawLine(Pens.Red,ctlb.left,ctlb.Top,ctla.left,ctla.Top)
        ctl.Repaint()

此段代码报错“未找到类型“Graphics”的公共成员“Graphics”。”

请帮助

Dim ctl As Object
Dim ctla As Object
Dim ctlb As Object
ctla = e.Form.CreateControl("aLineH", ControlTypeEnum.panel)
ctlb = e.Form.CreateControl("bLineH", ControlTypeEnum.panel)
ctla.backColor = Color.SteelBlue
ctla.width = 8
ctla.Height = 8

ctlb.backColor = Color.SteelBlue
ctlb.width = 8
ctlb.Height = 8

Dim body As object = e.Form.controls("pnl_body")
ctla.left = 300
ctla.Top = 100
ctlb.left = 100
ctlb.Top = 300
body.AddControl(ctla)
body.AddControl(ctlb)
Dim pn As New Pen(Color.red, 5)
ctl =e.Form.Panel.CreateGraphics

ctl.DrawLine(pn,ctlb.left,ctlb.Top,ctla.left,ctla.Top)
上述代码输出效果线不在面板“pnl_body”中，而且坐标是窗口的坐标，怎么回事呢？请帮助

此主题相关图片如下：qq截图20141130235411.png

上面代码是写在pnl_body面板的click事件中，同样代码写在窗口afterload事件中时线都无法显示，怎么回事呢

e.Form.Panel.CreateGraphics  实际上就是窗口,你无需再额外放多一个  Panel控件.   狐表本身已经在窗口上铺了一个Panel   用e.form.Panel 来获取的.

Dim body As object = e.Form.controls("pnl_body").BaseControl

Dim g As Graphics = body.CreateGraphics

 

您好，现在有个问题，我移动一个panel，中间画出的线形成了一个面，pn.repaint()不管用，采用哪个函数呢？