以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助 动态添加列的图片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100345)
--  作者：jackyfashion
--  发布时间：2017/5/9 22:27:00
--  求助 动态添加列的图片
老师:你好!
搞了好几夜,都没搞成功,
想把Tables("qrymyf").rows("ltsu") 图片列动态添加在PictureViewer
For  i As Integer=0 To Tables("qrymyf").rows.count-1
    Dim txt As WinForm.PictureViewer
    txt = e.Form.CreateControl("PictureViewer" & i, ControlTypeEnum.PictureViewer)
    txt.Image = Tables("qrymyf").rows(i)("ltsu")   
    txt.Width = 200
    txt.Height = 250
    txt.Left = 220*i + 500
    txt.Top = 35
    e.Form.Controls("Panel1").AddControl(txt)
    \'e.Form.AddControl(txt)
Next
提示:image不是WinForm.PictureViewer的成员
请老师指点!!!谢谢
--  作者：wyz20130512
--  发布时间：2017/5/9 22:38:00
--  
PictureViewer不能单独使用，必须绑定字段。

[此贴子已经被作者于2017/5/9 22:38:58编辑过]
--  作者：jackyfashion
--  发布时间：2017/5/9 23:19:00
--  
老师:您好!
代码改为下面的,看不到图片,我是一个行外人,请您指教!谢谢!
在AfterLoad写有下面的代码
For  i As Integer=0 To Tables("qrymyf").rows.count-1
    Dim txt As WinForm.PictureViewer
    txt = e.Form.CreateControl("PictureViewer" & i, ControlTypeEnum.PictureViewer)  
DataTables("qrymyf").DataCols("ltsu").DefaultFolder = D:\\设计图样\\  
    txt.BackColor = Color.Black
    txt.AutoSize = True
    txt.CommandVisible = False
    txt.Width = 200
    txt.Height = 250
    txt.Left = 220*i + 50
    txt.Top = 35
    e.Form.Controls("Panel1").AddControl(txt)   
txt.BindingField = Tables("qrymyf").rows(i)("ltsu")
Next
[此贴子已经被作者于2017/5/9 23:50:37编辑过]
--  作者：jackyfashion
--  发布时间：2017/5/9 23:23:00
--  
老师:您好!
已在AfterLoad写有下面的代码
DataTables("qrymyf").DataCols("ltsu").DefaultFolder = D:\\设计图样\\
谢谢!
[此贴子已经被作者于2017/5/9 23:49:37编辑过]
--  作者：有点蓝
--  发布时间：2017/5/10 8:38:00
--  
PictureViewer用一个就够了，只能绑定一行。

需要显示每一行的图片的使用PictureBox:http://www.foxtable.com/webhelp/scr/0812.htm
--  作者：有点色
--  发布时间：2017/5/10 9:12:00
--  

参考代码

 

For  i As Integer=0 To Tables("表A").rows.count-1
    Dim txt As WinForm.PictureBox
    txt = e.Form.CreateControl("pic_" & i, ControlTypeEnum.PictureBox)
    txt.BackColor = Color.Black
    txt.Width = 200
    txt.Height = 250
    txt.Left = 220*i + 50
    txt.Top = 35
    e.Form.Controls("Panel1").AddControl(txt)
Next

 
--  作者：jackyfashion
--  发布时间：2017/5/10 22:20:00
--  
谢谢老师!!!
--  作者：jackyfashion
--  发布时间：2017/5/10 22:20:00
--  
谢谢老师!!!
--  作者：jackyfashion
--  发布时间：2017/5/10 22:21:00
--  
谢谢老师!!!
[此贴子已经被作者于2017/5/10 22:20:48编辑过]
--  作者：jackyfashion
--  发布时间：2017/5/10 22:44:00
--  
老师:您好!
请问:
编译错误:"ImageFile"不是"WinFofm.pictureViewer"的成员
请问什么代码是"WinFofm.pictureViewer"的成员?
谢谢!