主题：怎样点击表单中的image控件上的图片使其全屏显示?
crocodile3358
[专家分：390] 发布于 2008-07-25 14:30:00
如何使表单中的图片全屏显示,或者用另外的程序打开,总之要放大显示图片?
回复列表 （共2个回复）
沙发
cbl518 [专家分：57140] 发布于 2008-07-26 06:05:00
PUBLIC oform1
o1=NEWOBJECT("form1")
o1.Show
RETURN
DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 250
Width = 375
ShowWindow = 1
DoCreate = .T.
Caption = "Form1"
TitleBar = 0
WindowType = 1
WindowState = 2
Name = "Form1"
ADD OBJECT image1 AS image WITH ;
Picture = "G:\你的图片文件.jpg", ;
Stretch = 2,Height = 768,Left = 0,Top = 0,Width = 1200, ;
Name = "Image1"
PROCEDURE Resize
this.image1.Width=this.Width
this.image1.Height=this.Height
ENDPROC
PROCEDURE Activate
this.Resize()
ENDPROC
PROCEDURE image1.RightClick
thisform.Release
ENDPROC
ENDDEFINE
板凳
cbl518 [专家分：57140] 发布于 2008-07-26 06:11:00
你用以上的代码：
1 创建一个 prg 文件。
2 将 Picture = "G:\你的图片文件.jpg", ;
修改为你的路径和图片文件名
然后运行就行了！
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 怎样点击表单中的image控件上的图片使其全屏显示?