以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  图片动态显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88183)
--  作者：yifan3429
--  发布时间：2016/7/28 14:28:00
--  图片动态显示
窗口内有
表A   图片   
表B   依据

共用一个PictureBox  

我想鼠标焦点在表B  PictureBox    就显示    表B   依据
我想鼠标焦点在表A  PictureBox    就显示    表A   图片

求动态代码
图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20160728142538.png
图片点击可在新窗口打开查看
--  作者：Hyphen
--  发布时间：2016/7/28 15:27:00
--  
表A CurrentChanged事件
If Forms("窗口1").Opened AndAlso e.Table.Current IsNot Nothing  Then
    Forms("窗口1").Controls("PictureBox1").image = getimage(e.Table.Current("图片"))
End If

表B CurrentChanged事件
If Forms("窗口1").Opened AndAlso e.Table.Current IsNot Nothing  Then
    Forms("窗口1").Controls("PictureBox1").image = getimage(e.Table.Current("依据"))
End If