Question

我正在尝试浏览图片并将其插入到我的表单中的字段中＆＃39; partimage＆＃39;点击按钮。

这是我到目前为止所做的代码。

当我点击浏览按钮时，它将允许我选择图像，但它不会将该图像插入我表单中的零件图像框中。谁能告诉我如何解决这个问题？

这是我的代码：

Private Sub Command3_Click()
Dim f    As Object
 Set f = Application.FileDialog(1)
 f.AllowMultiSelect = False
 f.Show

 If f.Show Then
            Me![partimage].Picture = f.SelectedItems
 End If

End Sub

Answer 1

f.SelectedItems是 FileDialogSelectedItems 对象---文件或文件夹名称的集合。由于您有AllowMultiSelect = False，因此用户只能选择一个项目。该项目将是该集合中的第一个项目。添加此行以查看所选项目的完整路径：

MsgBox f.SelectedItems(1)

此外，您只需拨打一次f.Show。移除第一个f.Show电话，并仅保留此电话：If f.Show Then

在验证代码正确检索文件的路径字符串之前，不要担心设置Me![partimage].Picture。

Private Sub Command3_Click()
    Dim f    As Object
    Set f = Application.FileDialog(1)
    f.AllowMultiSelect = False
    'f.Show

    If f.Show Then
        'MsgBox f.SelectedItems(1)
        Me![partimage].Picture = f.SelectedItems(1)
    End If
End Sub

尝试浏览并将图像文件插入到OLE对象字段中。

1 个答案: