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

#2

schtg2025-08-18 16:30

回复楼主 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编辑过]

#3

hsfisher6 天前 08:37

学习了

#4

cjc1010昨天 17:23

This.PictureVal=FILETOSTR("d:\temp_rotated.bmp") 中的 this 是指image控件了，你把这句放在哪个事件？