Foxtable(狐表)用户栏目专家坐堂 → [求助] 显示图片


  共有2365人关注过本帖树形打印复制链接

主题:[求助] 显示图片

帅哥哟,离线,有人找我吗?
sanny
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:798 积分:5911 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2021/3/6 22:04:00 [只看该作者]

老师,如下出错了,请帮忙看一下,谢谢。


bmp.save( ProjectPath & "生产任务单照片\" & e.Form.Controls("TextBox1").Text &  ".jpg")

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107304 积分:545781 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/7 20:31:00 [只看该作者]

msgbox(ProjectPath & "生产任务单照片\" & e.Form.Controls("TextBox1").Text &  ".jpg")

 回到顶部
帅哥哟,离线,有人找我吗?
sanny
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:798 积分:5911 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2021/3/12 21:43:00 [只看该作者]

老师,以下怎么实现存在Excel 中? 谢谢,


图片只能是打开后使用系统的看图软件打印。或者放到execl版本,专业报表等打印

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107304 积分:545781 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/13 9:43:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
sanny
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:798 积分:5911 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2021/3/13 11:16:00 [只看该作者]

谢谢老师, 以下黄色可以再帮忙修改一下吗 ?

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
For i As Integer = 0 To 9 '向工作表的单元格中设置值
    Sheet(i, 0).Value = (i + 1) * 10
    Sheet(i, 1).Value = (i + 1) * 100
    Sheet(i, 2).Value = (i + 1) * 1000
Next
Sheet(10,2).Value = New XLS.Picture(GetImage(e.Form.Controls("PictureBox1"))
Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107304 积分:545781 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/13 12:11:00 [只看该作者]

Sheet(10,2).Value = New XLS.Picture(e.Form.Controls("PictureBox1").image)

 回到顶部
总数 16 上一页 1 2