结贴的应该是楼主吧。
原来没考虑到文件名中有英文字母,把Form1的PDDC事件更改为以下代码试试吧。
PARAMETERS cIMG,cTPM
WITH Thisform
.ImgBQ.Top=.Image&cIMG..Top
.ImgBQ.Left=.Image&cIMG..Left
.LbMC.Top=.ImgBQ.Top+80
.LbMC.Left=.ImgBQ.Left+60
.LbMC.FontSize=28
TPMC=SUBSTR(ALLTRIM(.Picture),RAT("\",ALLTRIM(.Picture))+1)
.LbMC.Caption=cTPM
.LbMC.BackColor=RGB(255,255,170)
.LbMC.BackStyle=1
.ImgBQ.Picture=IIF(UPPER(cTPM)=UPPER(ALLTRIM(.Text1.Text)),".\对.PNG",".\错.PNG")
STORE .T. TO .ImgBQ.Visible,.LbMC.Visible
ENDWITH
原来没考虑到文件名中有英文字母,把Form1的PDDC事件更改为以下代码试试吧。
PARAMETERS cIMG,cTPM
WITH Thisform
.ImgBQ.Top=.Image&cIMG..Top
.ImgBQ.Left=.Image&cIMG..Left
.LbMC.Top=.ImgBQ.Top+80
.LbMC.Left=.ImgBQ.Left+60
.LbMC.FontSize=28
TPMC=SUBSTR(ALLTRIM(.Picture),RAT("\",ALLTRIM(.Picture))+1)
.LbMC.Caption=cTPM
.LbMC.BackColor=RGB(255,255,170)
.LbMC.BackStyle=1
.ImgBQ.Picture=IIF(UPPER(cTPM)=UPPER(ALLTRIM(.Text1.Text)),".\对.PNG",".\错.PNG")
STORE .T. TO .ImgBQ.Visible,.LbMC.Visible
ENDWITH