用戶添加或修改圖片時控制使用COMMONDIALOG的SHOWOPEN對話框,然後記錄通用對話框的FILENAME到變量A,再使用APP.PATH找到到特定目錄下的該圖片文件,改變窗體上放置圖片控件的屬性即可顯示。數據庫中只使用一文本型字段記錄下變量A,圖片文件保存在程序目錄下,此法可同時使用GIF、JPG和BMP等等圖像文件。
二、實現方法:
1、在窗體上建立IMAGE控件,名為IMAGE1。
2、用DATA控件得到數據源表。
3、建立“更改圖片”按鈕COMMAND1,其代碼為:
PrivateSubCommand1_Click()
CommonDialog1.FileName=""
CommonDialog1.Filter="文件bmp *.bmp 文件JPG *.JPG 文件GIF *.GIF"
CommonDialog1.ShowOpen
DimaAsString
a=CommonDialog1.FileTitle注釋:得到不含路徑文件名
Ifa<>""Then
Image11.Picture=LoadPicture(App.Path&"mp"&a)
注釋:mp是我用於存取圖片的本系統文件夾下的一個子文件夾。
Data1.Recordset.Edit
Data1.Recordset.Fields("tp")=a注釋:TP是存取圖片名稱的字段。
Data1.Recordset.Update
EndIf
EndSub