主题：[求助] 绘图位置

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

 

 

g.DrawImage(getImage(dr("图标")),x1*0.1,x1*0.1,y1*0.8,y1*0.9)

 

老师 这句应该怎么写？

帮助文档是这么写的。

 

DrawImage(Image,x,y,width,height)

 

老师

问题依旧

 

 

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

 

 

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

老师

不是清除所有了，一个Pinter为何出现好多重复的

Dim i As Integer= 0
For Each dr As DataRow In DataTables("表A").DataRows
    Dim p As WinForm.Painter = e.Form.Controls(dr("控件名"))
    Dim g As Graphics = p.Graphics
    g.Clear(Color.GreenYellow)
    Dim img1 As Image = GetImage(dr("图标"))
    g.DrawImage(img1,cint(x1*0.1),cint(y1*0.1),cint(x1*0.6),cint(y1*0.9))
    Dim fnt As New Font("宋体",16)
    Dim msg As String = dr("简称")
    g.DrawString(msg,fnt,Brushes.Red,10,10)
    p.Repaint()
Next

 

 

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

 

 

老师，

  没弄明白怎么根据SplitPane的大小，能使图片在 居中，文字在图片的下面居中与图片有点距离，文字长的压缩字符间距居中，应该怎么写？

 

Dim spl As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
Dim spl2 As WinForm.SplitContainer = e.Form.Controls("SplitContainer2")
Dim splpnl1 As WinForm.SplitPanel
Dim splpnl2 As WinForm.SplitPanel
Dim splpnl3 As WinForm.SplitPanel
splpnl1=spl.Panel1
splpnl2=spl.Panel2
splpnl3=spl2.Panel1
Dim x1 As Integer=splpnl1.width
Dim y1 As Integer=splpnl1.height
Dim x2 As Integer=splpnl2.width
Dim y2 As Integer=splpnl2.height
Dim x3 As Integer=splpnl3.width
Dim y3 As Integer=splpnl3.height
For Each dr As DataRow In DataTables("表A").DataRows
    Dim p As WinForm.Painter = e.Form.Controls(dr("控件名"))
    p.dock = 0
    p.width = 10000
    Dim g As Graphics = p.Graphics
    g.Clear(Color.GreenYellow)
    Dim img1 As Image = GetImage(dr("图标"))
    g.DrawImage(img1,cint(x1*0.1),cint(y1*0.1),cint(x1*0.5),cint(y1*0.8))
    Dim fnt As New Font("宋体",16)
    Dim msg As String = dr("简称")
    g.DrawString(msg,fnt,Brushes.Red,cint((dr("简称").length-x1))/2,cint(y1*0.8))
    p.Repaint()
Next

 

老师，

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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

 

希望 达到效果是

这样的

 

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

有一张png 图片，如何能设为绘图的背景？