Access在窗體中動態添加記錄對應的圖片

2017-12-27 15:41:00
tmtony8
原創
1811

前面講過《Access按記錄動態顯示圖片》。我們可以選擇不同的記錄顯示相關的不同照片。

既然圖片可以顯示,那么如何在窗體中添加圖片呢?

這里我們顯示圖片的方式是通過讀取圖片的路徑,找到表中記錄對應的圖片信息。

所以添加圖片,我們只需要把圖片從一個路徑復制到另外的一個顯示圖片的路徑即可。



在《Access彈出文件選擇對話框讓用戶選擇圖片或照片》一文中提及到如何用對話框選擇圖片。

自定義文件選擇對話框函數

Function GetFileName(ByVal DialogType As Integer) As String
    
    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog(DialogType)
    With dlgOpen
        .AllowMultiSelect = True
        .Title = "添加圖片"
        .Filters.Clear
        .Filters.Add "圖片文件", "*.jpg;*.png"
        .Show
        
        
    End With
    If dlgOpen.SelectedItems.Count > 0 Then
        GetFileName = dlgOpen.SelectedItems(1)
    Else
        GetFileName = ""
    End If
    Set dlgOpen = Nothing
End Function



在窗體中調用該函數,使用FileCopy 函數復制選中的文件到顯示圖片的文件夾內

Private Sub Command2_Click()
     FileCopy GetFileName(1), CurrentProject.Path & "\pic" & Me.subform.Form.toolname & ".jpg"
End Sub



選中子窗體的記錄,運行操作按鈕。打開文件選擇對話框,選擇需要的圖片。按確定



即可在指定的記錄對應相應的圖片

    分享
    北京十一选五基本走势