Office中国论坛/Access中国论坛

标题: [已解决]如何让图片随着点选的组合框同步显示？ [打印本页]

作者: sunny-xie 时间: 2008-1-10 14:37
标题: [已解决]如何让图片随着点选的组合框同步显示？
[attach]27790[/attach]

图片[attach]27791[/attach]

如库，如何在点选了库中ProductCOde后，ProductPhoto,ProductLineDrawing,LampHolder,Lamp等自动显示对应的图片？

最终效果样式请看下一楼的表，

请达人举个例子，谢谢了！

[ 本帖最后由 sunny-xie 于 2008-1-12 14:05 编辑 ]

作者: sunny-xie 时间: 2008-1-10 14:38
[attach]27792[/attach]

接上楼，最终样式表，

作者: sgrshh29 时间: 2008-1-10 15:27
不知是不是这个意思？[attach]27796[/attach]

作者: sunny-xie 时间: 2008-1-10 15:40
标题: 回复 3# 的帖子
如果是不同ProductCode呢？
例子是固定一个ProductCode的图片？

作者: sunny-xie 时间: 2008-1-10 15:54
是这样的效果，
不过这个规格书是变动的，有许多图片，具体是N多，
不同系列、型号、产品编号的图片也不同，不知道以后这个库的速度会变成怎样

作者: sgrshh29 时间: 2008-1-10 16:04
每个型号就五张图片，这个是不变的吧？不然你设计的界面不会只有五个图片框。如果yes，那就不会影响速度。

作者: sunny-xie 时间: 2008-1-10 16:12
下面还有2个图框，不过这2个框是该型号产品变更参数后，用户把变化后的图片自己上传的

这些图片库里是不是需要个表装起来？

老问题，如何让这些图片和不同的ProductCode相应的同步显示？

请指教，THKS！

作者: sunny-xie 时间: 2008-1-11 09:02
标题: 回复 8# 的帖子
1.现库已有几个ProductCode和5张图片，比如我点zuhe1这个组合框，选择CX02这个编号，下面显示的是该编号的相应参数（这个已经实现），几个图片的控件里也要显示附件里的5张图片，效果请看2楼的那个样式表。
2.因为ProductCode有很多，想要实现的就是选择不同ProductCode后，参数、图片都自动刷新出来（附件的图片我只上传了CX02这个编号的5张图片，斑竹用另外一个编号举例子时可+多点图片）
3.我说明白了吗？

作者: tmtony 时间: 2008-1-11 11:03
在zuhe1 更新后事件中
设置 Photo 等图片的picture 属性为图片的路径就可以了

但需要在current事件调用这个更新事件,以保证记录移动时,图片对应相应的内容
而且还需判断图片是否存在,不存在,使用一个空白的图片替换之

作者: sunny-xie 时间: 2008-1-11 12:10
标题: 回复 10# 的帖子
1.程序是如何判断不同的ProductCode显示其对应的图片的？

2.如果把这个库拆分为前后台做成多人访问的方式，是否把图片和后台放在一起就可？

作者: 64382575 时间: 2008-1-11 13:04
好东西，顶一下。郁闷ing，没有积分想看一下效果也不行

作者: sunny-xie 时间: 2008-1-11 17:42
感谢sgrshh29 和 tmtony 下面的代码弄明白了，不同编号的图片已可以对应显示。
关于tmtony说的图片不存在时那个问题，如何用代码判断？如果图片和库不是放在同一个路径，（比如把库拆分为前后台，难道要把前台和图片一起发给用户？）
如何修改路径？
p0 = CurrentProject.Path & "\" & Me.zuhe1 & ".bmp"
p1 = CurrentProject.Path & "\" & Me.zuhe1 & "-1.bmp"
p2 = CurrentProject.Path & "\" & Me.zuhe1 & "-2.bmp"
p3 = CurrentProject.Path & "\" & Me.zuhe1 & "-3.bmp"
p4 = CurrentProject.Path & "\" & Me.zuhe1 & "-4.bmp"
Me.Image218.Picture = p0
Me.Image219.Picture = p1
Me.Image220.Picture = p2
Me.Image221.Picture = p3
Me.Image222.Picture = p4

[ 本帖最后由 sunny-xie 于 2008-1-11 17:48 编辑 ]

作者: sunny-xie 时间: 2008-1-12 09:32
标题: 回复 14# 的帖子
用了这个模块后，
zuhe1那里如何写？现zuhe1的代码如下：
Private Sub zuhe1_AfterUpdate()
Me.[zuhe2] = Me.zuhe1.Column(1)
Me.Text17 = Me.zuhe1.Column(2)
Me.Text19 = Me.zuhe1.Column(3)
Me.Text21 = Me.zuhe1.Column(4)
Me.Text23 = Me.zuhe1.Column(5)
Me.Text33 = Me.zuhe1.Column(6)
Me.Text35 = Me.zuhe1.Column(7)
Me.Text37 = Me.zuhe1.Column(8)
Me.Text39 = Me.zuhe1.Column(9)
Me.Text57 = Me.zuhe1.Column(10)
Me.Text71 = Me.zuhe1.Column(11)
Me.Text73 = Me.zuhe1.Column(12)
Me.Text75 = Me.zuhe1.Column(13)
Me.Text79 = Me.zuhe1.Column(14)
Me.Text81 = Me.zuhe1.Column(15)
Me.Text83 = Me.zuhe1.Column(16)
Me.Text99 = Me.zuhe1.Column(17)
Me.Text101 = Me.zuhe1.Column(18)
Me.Text104 = Me.zuhe1.Column(19)
Me.Text106 = Me.zuhe1.Column(20)
Me.Text108 = Me.zuhe1.Column(21)
Me.Text110 = Me.zuhe1.Column(22)
Me.Text112 = Me.zuhe1.Column(23)
Me.Text122 = Me.zuhe1.Column(24)
Me.Text124 = Me.zuhe1.Column(25)
Me.Text126 = Me.zuhe1.Column(26)
Me.zuhe3 = Me.zuhe1.Column(27)
Me.Text144 = Me.zuhe1.Column(28)
Me.Text147 = Me.zuhe1.Column(29)
Me.Text149 = Me.zuhe1.Column(30)
Me.Text151 = Me.zuhe1.Column(31)
Me.Text161 = Me.zuhe1.Column(33)
Me.Text163 = Me.zuhe1.Column(34)
p0 = CurrentProject.Path & "\" & Me.zuhe1 & ".bmp"
p1 = CurrentProject.Path & "\" & Me.zuhe1 & "-1.bmp"
p2 = CurrentProject.Path & "\" & Me.zuhe1 & "-2.bmp"
p3 = CurrentProject.Path & "\" & Me.zuhe1 & "-3.bmp"
p4 = CurrentProject.Path & "\" & Me.zuhe1 & "-4.bmp"
Me.Image218.Picture = p0
Me.Image219.Picture = p1
Me.Image220.Picture = p2
Me.Image221.Picture = p3
Me.Image222.Picture = p4

End Sub

作者: sunny-xie 时间: 2008-1-12 09:44
[attach]27832[/attach]
库，图片在下一楼，

作者: sunny-xie 时间: 2008-1-12 09:45
[attach]27833[/attach]
接上一楼的图片

作者: tmtony 时间: 2008-1-12 09:56
有关图片跟随,可参改 http://www.office-cn.net/vvb/thread-19259-1-1.html

作者: sunny-xie 时间: 2008-1-12 10:10
[attach]27835[/attach]
站长，没权限进这个页面

作者: sunny-xie 时间: 2008-1-12 12:05
标题: 回复 20# 的帖子
有进度条。。
记得斑竹有一帖里说到用me.EmpPhoto.Picture = LoadPicture("路径")这个方法可把进度条去掉，不知如何改？

作者: sunny-xie 时间: 2008-1-12 14:04
标题: 回复 22# 的帖子
没了进度条舒服多了，代码现还不熟悉也在学习，
p0= LoadPicture（"TempPath"） & "\" & Me.zuhe1.Column(0) & "-1.bmp"
我试着这样去改，没成功过。。。乱撞
这个问题解决了，THKS！

作者: asun 时间: 2009-7-17 12:01
正好要用到这个功能，近来学习一下。

作者: 方舟 时间: 2009-9-8 08:43
学习，也遇到这类问题

作者: xiaomin_007 时间: 2010-10-8 17:36
是啊，好好学习，天天向上

作者: 13555609005 时间: 2010-10-14 13:51

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)