主题：[求助] 绘图位置

老师，

  想要绘图，图片怎么还是重合在一起呢？

Dim spl As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
Dim splpnl1 As WinForm.SplitPanel
splpnl1=spl.Panel1
Dim x1 As Integer=splpnl1.width
Dim y1 As Integer=splpnl1.height

Dim i As Integer=0
For Each dr As DataRow In DataTables("表A").DataRows
    i=i+1
    Dim p As WinForm.Painter = e.Form.Controls("Painter1")
    'p.dock = 0
    'p.width = 10000
    Dim g As Graphics = p.Graphics
    Dim img1 As Image = GetImage(dr("图标"))
    g.DrawImage(img1,10*i,10*i,84*i,86*i)'84宽*86高
    p.width = cint(x1)
    p.height= cint(y1)
    Dim sf As new StringFormat
    sf.Alignment = StringAlignment.Center
    sf.LineAlignment = StringAlignment.Center
    Dim fnt As New Font("宋体",12,FontStyle.Bold)
    Dim msg As String = dr("简称")
    g.DrawString(msg,fnt,Brushes.black,  new Rectangle(94*i,94*i,10*i,10*i), sf)
    p.Repaint()
   
Next