以下是引用su0527在2017-10-31 10:42:46的发言:
DownloadFile("http://spriteupdate.oss-cn-shanghai.***", "&lj.\小精灵\update.exe")
上面的代码在程序中,要求在执行该代码前label1显示。(label1标题是:正在下载升级程序)
执行完上面代码后,label1不显示。
你的代码好象没问题,显示不正常吗?加个inkey(100)看看。
用inkey延时试是正常显示的:
of = CREATEOBJECT("form1")
of.show(1)
DEFINE CLASS form1 as Form
ADD OBJECT label1 as label WITH top=10,left=10,visible=.F., caption="正在下载升级程序"
ADD OBJECT cmd as commandbutton WITH top=40,left=10,caption="DownFile"
PROCEDURE cmd.click
thisform.label1.Visible = .T.
INKEY(3)
thisform.label1.Visible = .F.
ENDPROC
ENDDEFINE