以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]图片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92000)
--  作者：苏州老街
--  发布时间：2016/10/24 11:08:00
--  [求助]图片
老师好：很多图片控件获取同一张图片。

Dim pbx As WinForm.PictureBox
pbx = Forms("窗口").Controls("PictureBox1")
pbx.Image = GetImage("I:\\管理\\images\\Find.ico")
--  作者：有点蓝
--  发布时间：2016/10/24 11:40:00
--  
有什么问题呢
--  作者：苏州老街
--  发布时间：2016/10/24 11:55:00
--  
老师，红色标出的怎样写。

im pbx As WinForm.PictureBox
pbx = Forms("窗口").Controls("控件1，控件2，控件3，.......................")
pbx.Image = GetImage("I:\\管理\\images\\Find.ico"）
--  作者：有点蓝
--  发布时间：2016/10/24 12:06:00
--  
Dim name() As String = {"控件1","控件2","控件3",.......................}
Dim img As Image = GetImage("I:\\管理\\images\\Find.ico")
For Each n As String In name
    Forms("窗口").Controls(n).Image = img
Next
--  作者：苏州老街
--  发布时间：2016/10/24 17:00:00
--  
老师，很多不同的图片通过一组代码怎样赋值给对应的图片控件
--  作者：有点蓝
--  发布时间：2016/10/24 17:18:00
--  

Dim name() As String = {"控件1","控件2","控件3",.......................}
Dim picname() As String = {"图片1","图片2","图片3",.......................}
For i as integer = 0 to name.length - 1
    Forms("窗口").Controls(name(i)).Image = GetImage("I:\\管理\\images\\" & picname(i) & ".ico")
Next
--  作者：苏州老街
--  发布时间：2016/10/24 19:20:00
--  
老师谢谢你！