image控件的PictureVal显示不出来图片，任何格式的都显示不出来 - VFP论坛

第 2 楼

得分:0

回复楼主 shenlancwz

在前句的下面加上下一句，再试一试。
this.image1.visible=.t.
示例仅供参考

图片附件: 游客没有浏览图片的权限，请登录或注册

程序代码：

set safety off

PUBLIC oform1
oform1=Newobject("form1")
oform1.Show
local m.myimag
text to m.myimag noshow
Qk02AQAAAAAAAHYAAAAoAAAAEgAAABAAAAABAAQAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AP///////////wAAAP///////////wAAAP///////////wAAAP///////////wAAAP///////////wAAAP///////////wAAAP/////P/////wAAAP////zM/////wAAAP///8zMz////wAAAP///MzMzP///wAAAP//zMzMzM///wAAAP/8zMzMzMz//wAAAP///////////wAAAP///////////wAAAP///////////wAAAP///////////wAAAA==
endtext
strtofile(strconv(m.myimag,14),"down.bmp")
cpic = FILETOSTR("down.bmp")
oform1.image1.Pictureval=cpic
oform1.image1.visible=.t.
RETURN

**********************************************
DEFINE CLASS form1 AS form
   Height = 160
   Width = 180
   DoCreate = .T.
   AutoCenter = .T.
   Caption = "显示图片"
   isdatachange = .F.
   Name = "form1"

   ADD OBJECT image1 AS image WITH ;
        Top = 50,;
        Left = 80,;
        Height = 50,;
        Width = 50,;
        Anchor = 9,;
        SpecialEffect = 0,;
        Name = "image1"
ENDDEFINE

[此贴子已经被作者于2025-8-18 16:43编辑过]