以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  GDI+ 设置图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42502)

--  作者:blackzhu
--  发布时间:2013/11/13 17:13:00
--  GDI+ 设置图片

例如:

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim
g As Graphics = p.Graphics
g.DrawImage(getImage("c:\\logo.jpg"),10,10)
p.Repaint()

绘制结果:

图片点击可在新窗口打开查看

Clear(Color)

清除所有内容,并将背景色设为参数Color指定的颜色。

例如:

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim
g As Graphics = p.Graphics
g.Clear(Color.White)
\'清除所有内容,并将背景颜色设为白色

p.Repaint()


  为啥这样设置 会出来N多个一样的图片 要加什么代码搞定这个!


--  作者:Bin
--  发布时间:2013/11/13 17:15:00
--  
没有你所说的问题啊
--  作者:blackzhu
--  发布时间:2013/11/13 17:23:00
--  
连文字的写入也是这样的

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim
g As Graphics = p.Graphics
Dim
fnt As New Font("宋体",16)
Dim
msg As String = "I Like Foxtable"
g.DrawString(msg,fnt,Brushes.Red,10,10)
p.Repaint()



 怎么避免多个写入?


--  作者:Bin
--  发布时间:2013/11/13 17:23:00
--  
一样没有问题,你做个例子上来看看.
--  作者:jianjingmaoyi
--  发布时间:2013/11/13 18:20:00
--  
来了

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:jianjingmaoyi
--  发布时间:2013/11/13 19:47:00
--  
bin  有无测试好
--  作者:有点甜
--  发布时间:2013/11/13 19:48:00
--  
 估计是bug,可能Painter本身就不支持fill布局
--  作者:jianjingmaoyi
--  发布时间:2013/11/13 19:53:00
--  
这个以前我就发现了 但是 我控制了绘图板的大小来搞定的.
--  作者:jianjingmaoyi
--  发布时间:2013/11/13 19:55:00
--  
问题现在找不到可以同时显示图片和文字的控件呀,只有按钮.
--  作者:有点甜
--  发布时间:2013/11/13 19:56:00
--  
 或者你自己写任意一个控件paint事件,在里面是可以给控件/窗体绘图的。

[此贴子已经被作者于2013-11-13 19:56:42编辑过]