主题：[求助] 绘图位置

要转为整数

看看 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=106155&skin=0

 居中，设置 stringFormat即可，参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108161&skin=0

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+94*i,10, 84,86)'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(10+94*i,100, 84,30), sf)
    p.Repaint()
   
Next

1、间距你可以加入空格来控制

2、你可以调整字体的大小，把字体弄小一点，就不会换行