主题:请教图片为什么不刷新
为了显示图像,我在库中建立了一个字段 “头像”,字符型的。用来存放照片的路径用。
显示图片是通过一个按钮command1实现的。
现在在command1的init中写入:
a=clxx.头像&clxx是库
b=alltrim(thisform.车牌号1.value)
if .not.empty(a)
thisform.command13.picture=a
ELSE
thisform.command13.picture="pic\暂无图片.bmp"
IF qxyh="ygs"
thisform.command13.Enabled= .T.
thisform.command13.caption="选定照片"
ENDIF
thisform.command13.Refresh
endif
click事件中写入:
thisform.command13.caption=" "
b=alltrim(thisform.车牌号1.value)
a=getpict()
c=right(a,3)
if .not.isblank(a)
replace clxx.头像 with "pic\&b..&c"
thisform.command13.picture="pic\&b..&c"
thisform.command13.refresh
endif
但是发现问题:选定后可以显示,但是按上一个或者下一个照片一直不会改变。手动改也不行。
上一个或者下一个按钮是我自己的command,里面有command1的refresh. 请指出问题出在哪里谢谢。
或者有什么好的方法可以显示图片。
显示图片是通过一个按钮command1实现的。
现在在command1的init中写入:
a=clxx.头像&clxx是库
b=alltrim(thisform.车牌号1.value)
if .not.empty(a)
thisform.command13.picture=a
ELSE
thisform.command13.picture="pic\暂无图片.bmp"
IF qxyh="ygs"
thisform.command13.Enabled= .T.
thisform.command13.caption="选定照片"
ENDIF
thisform.command13.Refresh
endif
click事件中写入:
thisform.command13.caption=" "
b=alltrim(thisform.车牌号1.value)
a=getpict()
c=right(a,3)
if .not.isblank(a)
replace clxx.头像 with "pic\&b..&c"
thisform.command13.picture="pic\&b..&c"
thisform.command13.refresh
endif
但是发现问题:选定后可以显示,但是按上一个或者下一个照片一直不会改变。手动改也不行。
上一个或者下一个按钮是我自己的command,里面有command1的refresh. 请指出问题出在哪里谢谢。
或者有什么好的方法可以显示图片。