以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有关PictureBox的刷新  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60945)

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

--  作者:有点甜
--  发布时间:2014/12/4 11:42:00
--  

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


--  作者:魔鬼之神
--  发布时间:2014/12/4 16:18:00
--  回复:(有点甜) 应该是会随着变更的,具体问题...
已做例子,看一下是不是我的代码有问题
--  作者:有点甜
--  发布时间:2014/12/4 16:25:00
--  
 上传上来
--  作者:魔鬼之神
--  发布时间:2014/12/4 16:29:00
--  回复:(有点甜) 上传上来
我上传了为什么看不到的?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:图片框例子.rar


--  作者:有点甜
--  发布时间: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


--  作者:魔鬼之神
--  发布时间:2014/12/4 16:55:00
--  回复:(有点甜) TextChanged 代码 Di...
谢谢