hongwz
8 years ago
Access 遇到VB問題,我要在表單中顯示照片,使用的方法是,在[表單]拉出[控制項].[圖像],用VB指定路徑及檔名給[圖像]使用,以便顯示圖片,又不使資料庫肥大. but.........
latest #19
hongwz
8 years ago
我可以順利給[圖像] 一個完整路徑,及檔名,可是我只能給.jpg,我想要連.bmp & .gif 都可以用上
hongwz
8 years ago
Private Sub Form_Current()
Dim dir, Nos, FN As String
dir = "C:\Users\justme\accpic\"
Nos = Me![識別碼]
Me!Image1.Picture = dir & Nos & ".jpg"
End Sub
hongwz
8 years ago
我試過最後的".jpg" 改成 ".*" , 沒用 ".???" 沒用 , 完全不知道Access 萬用碼要用那一個.....>.< Help~
立即下載
hongwz
8 years ago
Dim 那一個FN 請忽略.....
Foreman
8 years ago
VB 現在有支援的圖像包括 bmp, gif, jpg, png, tiff
試試看:
Foreman
8 years ago
Private Sub Form_Current()
Dim dir, Nos, file, FN As String
dir = "C:\Users\justme\accpic\"
Nos = Me![識別碼]
file = Dir$(dir & Nos & ".*")
If (Len(file)>0) Then
Me!Image1.Picture = file
End If
End Sub
Foreman
8 years ago
這個方法其實是去搜尋目錄裡頭指定名稱的檔案, 但是也因此可能有開到不是影像的狀況, 可以說是資安漏洞...
Foreman
8 years ago
Foreman
8 years ago
這個好些
hongwz
8 years ago
歐歐...我看看~~~thank~
hongwz
8 years ago
試改中~~~
hongwz
8 years ago
it work~~~ it work's gooooooooooooooood~~~
hongwz
8 years ago
hongwz
8 years ago
原來有Dir 這指令,想問為什麼Dir 要加$字號?
Foreman
8 years ago
VB 改版問題, 有$的和沒有的效用不同
Foreman
8 years ago
別忘了要丟一個 defaultImage.jpg 到程式中那個目錄當預設圖喔
hongwz
8 years ago
搞了一整晚的圖型顯示,準備正式編修時.....資料庫自動備份及系統自動關機開始了.....>.< ....明天繼續吧....
Foreman
8 years ago
系統自動維護的排程 依照經驗 3am-5am 是最佳時間
hongwz
8 years ago
嗯嗯....確實是晚一點會以較好~~
back to top