VFP使用表单和报表中使用图片事例

在Visual FoxPro（VFP）中，处理图片和图形是一项常见的任务，特别是在设计表单（Forms）和报表（Reports）时。本示例主要解决在VFP中如何在备注型字段（Memo Field）中显示JPG等非BMP格式图片的问题。在VFP 6.0之前的版本，备注型字段仅支持BMP格式，但通过一些技巧和编程方法，我们可以实现对其他格式的支持。 我们需要理解VFP中的图像处理方式。VFP提供了几种内置函数和对象来处理图形，如OleObject、Picture控件等。对于非BMP格式的图片，我们可以利用VFP的OLE自动化能力，将图片转换为OLE对象进行存储和显示。 1. **使用OleObject**：OleObject是一种可以嵌入各种类型对象的控件，包括图片。我们需要将JPG图片转换为OLE对象。这可以通过创建一个临时的OLE服务器进程，例如使用Microsoft Paint打开图片，然后使用VFP的OleCreate方法创建并加载该图片。加载后，可以将OLE对象保存到备注字段。 2. **使用Picture控件**：另一种方法是使用Picture控件显示图片。Picture控件可以直接加载和显示多种格式的图片，包括JPG。在表单或报表设计时，将Picture控件拖放到表单或报表上，然后在运行时动态设置其Picture属性为JPG图片的路径。 下面是一个简单的示例代码，展示如何在表单上显示JPG图片： ```vfp LOCAL loImage, lsImagePath lsImagePath = "C:\path\to\your\image.jpg" // 图片路径 // 使用OleObject控件 THISFORM.Ole1.CreateObject("Shell.Explorer") // 创建OLE对象，使用Explorer作为服务器 THISFORM.Ole1.Object.Navigate(lsImagePath) // 加载图片 THISFORM.Ole1.Refresh() // 刷新显示 // 或者使用Picture控件 THISFORM.Picture1.Picture = lsImagePath // 设置Picture控件的图片路径 ``` 3. **在报表中显示图片**：报表的处理方式类似，但在报表的格式化（Format）事件中设置图片。例如： ```vfp REPORT FROM YourTable FORM YourReport AT PRINT LOCAL loImage, lsImagePath lsImagePath = "C:\path\to\your\image.jpg" THISFORM.ReportForm.Picture1.Picture = lsImagePath ``` 4. **处理备注型字段**：如果需要将图片存储在备注型字段中，可以将OLE对象或图片数据转换为二进制流，然后用WriteRecord或其他方法存入数据库。读取时再反向转换。 ```vfp LOCAL lnDataSize, laBytes lnDataSize = FILESIZE(lsImagePath) LAUNCHEDIT(lsImagePath) // 打开图片并转化为OLE对象 GETOBJECT(THISFORM.Ole1.Object, 1, laBytes) // 获取OLE对象的数据 APPEND BLANK MODIFY FIELD YourMemoField = laBytes // 存储到备注字段 ``` 以上就是VFP中在表单和报表中使用非BMP格式图片的基本方法。需要注意的是，处理图片时可能需要考虑内存管理，尤其是在处理大量图片时。此外，对于存储在备注字段的图片，可能还需要考虑数据库的大小和性能问题。在实际应用中，考虑将图片存储在文件系统中，仅在需要时加载，以降低数据库负担。