以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]图片问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34381)
--  作者：fjt4444
--  发布时间：2013/6/6 16:35:00
--  [求助]图片问题

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:图片问题.zip

希望做到，单击按钮后，表中图片显示在控件“picturebox”上
--  作者：XYT
--  发布时间：2013/6/6 16:40:00
--  

http://www.foxtable.com/help/topics/0814.htm

 
--  作者：fjt4444
--  发布时间：2013/6/6 17:08:00
--  不是这样的……

pbx.Image = GetImage("C:\\Sample.bmp")不行。

我用的是

pbx.Image=GetImage(DataTables("表C").DataRows(e.Sender.Value)("图片")) 但是不行，我就是不知道这句话怎么写

 
--  作者：狐狸爸爸
--  发布时间：2013/6/6 17:25:00
--  
Dim bh As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dr As DataRow = bh.SelectedItem
If dr IsNot Nothing Then
    e.Form.Controls("TextBox1").Value = dr("编号")
    e.Form.Controls("PictureBox1").image  = getimage(dr("图片"))
End If
--  作者：Bin
--  发布时间：2013/6/6 17:28:00
--  
.
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:图片问题.foxdb
--  作者：XYT
--  发布时间：2013/6/6 17:38:00
--  

Dim pbx As WinForm.PictureBox
pbx = Forms("窗口1").Controls("PictureBox1")
pbx.Image = GetImage(ProjectPath &"Attachments\\"& Tables("表C").current("图片"))

MessageBox.Show(ProjectPath &" Attachments\\ "& Tables("表C").current("图片"))

写了还是贴下给没有开发版的
--  作者：fjt4444
--  发布时间：2013/6/7 9:17:00
--  
谢谢，解决了。确实是

    e.Form.Controls("PictureBox1").image  = getimage(dr("照片"))

。