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

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

前麵講過《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



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



卽可在指定的記録對應相應的圖片

    分享