809
社区成员
发帖
与我相关
我的任务
分享如何生成图片报表?
请问各位vb高手,我想在做报表的时侯直接生成图片用email发出去,请问该如何做,有没有这方面的例子,万分感谢!!!!!!!!!!
...全文
请发表友善的回复…
发表回复
WizardBear 2002-01-30
- 打赏
- 举报
放一个picturebox控件：
With Picbox1
.ForeColor = &H0&
.FontSize = 48
.CurrentX = 1 * Picbox1.Width / 15
.CurrentY = 4 * Picbox1.Height / 50
Picbox1.Print strTitle '给相片加字
.FontSize = 36
.CurrentX = 1 * Picbox1.Width / 15
.CurrentY = 40 * Picbox1.Height / 50
Picbox1.Print "姓名:" & strName '给相片加字
.CurrentX = 1 * Picbox1.Width / 15
.CurrentY = 45 * Picbox1.Height / 50
Picbox1.Print "性别:" & strSex '给相片加字
'加图案
.CurrentX = 12 * Picbox1.Width / 15
.CurrentY = 3 * Picbox1.Height / 50
Picbox1.PaintPicture LoadPicture(App.Path + "\photo-8.jpg"), .CurrentX, .CurrentY
End With
With Picbox1
.ForeColor = &H0&
.FontSize = 48
.CurrentX = 1 * Picbox1.Width / 15
.CurrentY = 4 * Picbox1.Height / 50
Picbox1.Print strTitle '给相片加字
.FontSize = 36
.CurrentX = 1 * Picbox1.Width / 15
.CurrentY = 40 * Picbox1.Height / 50
Picbox1.Print "姓名:" & strName '给相片加字
.CurrentX = 1 * Picbox1.Width / 15
.CurrentY = 45 * Picbox1.Height / 50
Picbox1.Print "性别:" & strSex '给相片加字
'加图案
.CurrentX = 12 * Picbox1.Width / 15
.CurrentY = 3 * Picbox1.Height / 50
Picbox1.PaintPicture LoadPicture(App.Path + "\photo-8.jpg"), .CurrentX, .CurrentY
End With
mkiss 2002-01-08
- 打赏
- 举报
WizardBear(WizardBear):具体一点好不好!给点例子ok
WizardBear 2002-01-08
- 打赏
- 举报
mkiss(小kiss)：
就是相当于编辑一个图片，往图片上写字，可以实现吧？
把你的报表当成文字写到图片上！！！！
就是相当于编辑一个图片，往图片上写字，可以实现吧？
把你的报表当成文字写到图片上！！！！
mkiss 2001-12-31
- 打赏
- 举报
再up一下，看来今年解决不了了。
mkiss 2001-12-29
- 打赏
- 举报
ttt
mkiss 2001-12-27
- 打赏
- 举报
ttt
wufang 2001-12-26
- 打赏
- 举报
g..z
mkiss 2001-12-26
- 打赏
- 举报
楼上的说详细一点好吗？
WizardBear 2001-12-26
- 打赏
- 举报
用柯达控件，在一张空白图片上写报表内容，然后另存成图片就行啦。。。
mkiss 2001-12-26
- 打赏
- 举报
没有人会！
mkiss 2001-12-21
- 打赏
- 举报
没有高手吗！加分了
itxjh 2001-10-26
- 打赏
- 举报
这是个乖问题，让我想想先！
