再发一次。
1. 在字段列表中新增一个字段,属性设为文本,写上存放图片的路径例如:D:\我的文档\图片\XX.JPG(注意扩展名必须写,否则图片不能显示) 。
2. 将包含图片位置信息的字段从字段列表中拖拽到窗体中。
3. 在工具箱中,单击“图像”控件 。
4. 在窗体或报表上,单击要插入对象的位置。
5. 在“插入图片”对话框中,随便点选一张图片,然后单击“确定”,例如可以键入第一个记录的图片的路径,然后打开图像控件属性对话框,在"图片"栏中删除刚才所选图片。
6. 双击窗体选择器(窗体选择器:在“设计”视图中,窗体左上角中标尺相交的框。用这个框可以执行窗体级操作,如选择窗体。)打开属性表。
7. 单击“成为当前”属性框旁的“事件生成器”按钮 ,然后在“选择生成器”对话框中选择“代码生成器”。
8. 创建下列事件过程。
Private Sub Form_Current()
On Error Resume Next
Me![图像控件名称].Picture = Me![图像控件名称]
End Sub
9. 单击绑定到包含图片位置信息的文本字段的控件,然后单击工具栏上的“属性” 打开属性表。
10. 单击“更新后”属性旁的“事件生成器”按钮 ,在“选择生成器”对话框中单击“代码生成器”,然后创建下列事件过程。
Private Sub ImagePath_AfterUpdate()
On Error Resume Next
Me![图像控件名称].Picture = Me![图像控件名称]
End Sub