老师，我想动态增加多个painter，用来画田字格，但是我下面的代码，如果是换成panel，是正常添加，而且正常画出来的，但是改成painter怎么就画不出来了？Dim p As WinForm.Painter '定义添加的画板
Dim Total_num As Integer = Colors.Length * sizes.Length '定义总共画多少个框
Dim rt_Height As Integer = 70 '每个田字格的高度
Dim rt_Width As Integer = 35 '每个田字格的宽度
Dim py_x As Integer = 10 'X从哪里画起
Dim py_y As Integer = 10 'Y从哪里画起
Dim idx As Integer = 1
For i As Integer = 0 To Colors.Length - 1 '先循环几个颜色画边框
For j As Integer = 0 To Sizes.Length - 1 '循环几个尺码画边框
p = e.Form.CreateControl("p" & idx, ControlTypeEnum.Painter) '定义要增加控件，控件名p1,p2......
p.Width= rt_Width
p.Height = rt_Height
p.left = py_x + j * rt_Width
p.Top = py_y + i * rt_Height
'p.BorderStyle = BorderStyle.FixedSingle
e.Form.Controls("pnlPLU").AddControl(p) '在panel父容器中增加子原件
idx = idx + 1 '控件名往后增加1
Dim g As Graphics = p.Graphics
Dim n As New Pen(Color.Red,1) '以画笔为1的粗细画矩形
g.DrawRectangle(n,p.Left,p.Top,p.Width,p.Height)
p.Repaint()
Next
Next
加好友 
发短信
Post By：2020/2/24 17:00:00 [只看该作者]
此主题相关图片如下：无标题.png