近日,经常有人谈到如何在VFP5中显示JPG图像,现提供二个方案:
一: 利用leadtool等ActiveX图像控件,在VFP5中的表单上插入OLE控件后即可显示任何格式的图像了.
二: 利用IE控件显示JPG图像.
MS 的 VFP5 不能显示JPG图像,但 MS 的 IE 是能显示各种格式的图像的.
VFP5 中如果直接在表单上建立 IE 控件可能会导致程序中止,因此应使用下列方法建立 IE 对象:
1 - 建立对象 IE4: IE4=CreateObiect("InternetExplorer.Application")
2 - 显示 IE4: IE4.Visible= .t. && 必须使用该语句
3 - 设置 IE4 属性:
IE4.menubar = .f.
IE4.toolbar = .f.
IE4.statusbar = .f.
IE4.fullscreen = .f.
IE4.width = 200
IE4.height = 200
IE4.top = 10
IE4.left = 10
IE4.navigate("c:\aaa\aaa.jpg") && 应该指明全路径
4 - 关闭 IE4
IE4.quit
|
