Foxtable(狐表)用户栏目专家坐堂 → 有关PictureBox的刷新


  共有2335人关注过本帖树形打印复制链接

主题:有关PictureBox的刷新

帅哥哟,离线,有人找我吗?
魔鬼之神
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:166 积分:1527 威望:0 精华:0 注册:2013/1/26 14:43:00
有关PictureBox的刷新  发帖心情 Post By:2014/12/4 11:31:00 [只看该作者]

请教个小问题,我在单据界面加了一个PictureBox,当界面上的数据变化时,图片随即变更,目前是要重新打开单据才会看到图片变化,如何做到不用重新打开单据就能即时更新呢?
[此贴子已经被作者于2014-12-4 16:19:47编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/4 11:42:00 [只看该作者]

 应该是会随着变更的,具体问题做个小例子上来


 回到顶部
帅哥哟,离线,有人找我吗?
魔鬼之神
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:166 积分:1527 威望:0 精华:0 注册:2013/1/26 14:43:00
回复:(有点甜) 应该是会随着变更的,具体问题...  发帖心情 Post By:2014/12/4 16:18:00 [只看该作者]

已做例子,看一下是不是我的代码有问题

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/4 16:25:00 [只看该作者]

 上传上来

 回到顶部
帅哥哟,离线,有人找我吗?
魔鬼之神
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:166 积分:1527 威望:0 精华:0 注册:2013/1/26 14:43:00
回复:(有点甜) 上传上来  发帖心情 Post By:2014/12/4 16:29:00 [只看该作者]

我上传了为什么看不到的?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:图片框例子.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/4 16:42:00 [只看该作者]

 TextChanged 代码

 

Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")
Dim KHBM As WinForm.TextBox = e.Form.Controls("TextBox1")
If KHBM.text = "1" Then
    pbx.Image = getImage(ProjectPath & "images/应收对账.ico")
Else
    pbx.Image = getImage(projectPath & "images/出货单.ico")
End If


 回到顶部
帅哥哟,离线,有人找我吗?
魔鬼之神
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:166 积分:1527 威望:0 精华:0 注册:2013/1/26 14:43:00
回复:(有点甜) TextChanged 代码 Di...  发帖心情 Post By:2014/12/4 16:55:00 [只看该作者]

谢谢

 回到顶部