以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]加载图片时，一个蹊跷的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50293)
--  作者：hiliuyong
--  发布时间：2014/5/4 11:36:00
--  [求助]加载图片时，一个蹊跷的问题

Dim pbx As WinForm.PictureBox
pbx = Forms("运单打印").Controls("PictureBox1")
If G_Site <> "部门A" Then
    MessageBox.show("正在载入图片...")
    pbx.Image = GetImage(ProjectPath & "\\Images\\部门A.jpg")
Else
    MessageBox.show("正在载入图片...")
    pbx.Image = GetImage(ProjectPath & "\\Images\\部门B.jpg")
   
End If

 

在AFTERLOAD里面写这个代码，如果添加 MessageBox.show("正在载入图片...") 这句，图片就正确被添加，

如果注释掉，就不能正确添加，请问有没有不用MessageBox.show也能正确添加的方法。
--  作者：有点甜
--  发布时间：2014/5/4 11:38:00
--  

 不应该吧？是否路径写错了？多了一个斜杠？

 

pbx.Image = GetImage(ProjectPath & "Images\\部门A.jpg")
--  作者：Bin
--  发布时间：2014/5/4 11:39:00
--  
加了,就给了足够的时间让Image生成.

你把代码写到TimerTick事件吧.  设置100毫秒运行,  在TimerTick中停止计时器运作,  这样就只会执行一次TimerTick

100毫秒延迟足够系统正常运作,  100毫秒你人也赶紧不出来.0.1秒眨眼就过去了,感觉就和打开窗口就运行一样
--  作者：hiliuyong
--  发布时间：2014/5/4 11:46:00
--  
这个如何加 我还真的不知道
--  作者：Bin
--  发布时间：2014/5/4 11:47:00
--  
3楼都清除得告诉你了,说明你基础还不踏实.   上个例子我帮你完成.