Question

我有一个表格访问一个字段（club_name），我有一个这种形式的图片对象。在一个文件夹中的某个地方我有一些图片（* .png），每个俱乐部的图片等于我的表中的记录。例如我有一个记录“FCB”，在该文件夹中我有一张图片“FCB.png”。我自己这样编码：

Private Sub Form_Current（）
      Image5.Picture =“C：\ Users \ Milad \ Desktop \ club imgs \”＆amp; Club_Name.Text＆amp; “巴纽”
  结束子

但这不对。
请帮忙？

Answer 1

不要引用控件的text属性。只有在控件具有焦点时才可以使用它。如果必须使用属性，请使用值。

Me.Image5.Picture = "C:\Users\Milad\Desktop\club imgs\" & Me.Club_Name & ".png"

您还可以使用“真实”名称检查一切是否正常：

Me.Image5.Picture = "C:\Users\Milad\Desktop\club imgs\FCB.png"

重新评论

sPath = CurrentProject.Path & "\"
sBlank = "Blank.png" ''Your own default empty picture

If IsNull(Me.Club_Name) Then
    sFile = sBlank
Else
    ''Does the file exist? Note: Use FilesystemObject
    ''instead if you are working network paths.

    sFile = Dir(sPath & Me.Club_Name & ".png")

    ''Empty string ("")
    If sFile = vbNullString Then
        sFile = sBlank
    End If
End If

Me.Image5.Picture = sPath & sFile

在窗体中访问2010 VBA图片对象

1 个答案: