[vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات

كود :
' From Project Menu :>>  Add References :

' Microsoft Scriping Runtime



Option Explicit



Dim Fs As New FileSystemObject





Public Sub LoadImage(pImage As Image, pFileTitle As String, pKey As String)

    Dim sFilePath As String

    Dim sNewPath As String

    

    CommonDialog1.Filter = "Picture File JPEG Format (*.jpg,*.jpe,*.jpeg)|*.jpg;*.jpe;*.jpeg|Bitmap Files (*.bmp)|*.bmp"

    CommonDialog1.DialogTitle = "أختر الصورة المراد إضافتها"

    CommonDialog1.ShowOpen

    

    sFilePath = CommonDialog1.FileName

    pImage.Picture = LoadPicture(sFilePath)

    

    sNewPath = App.Path & "\bin\" & pFileTitle & Right(CommonDialog1.FileTitle, 4)

    Fs.CopyFile sFilePath, sNewPath

       

    SaveSetting App.Title, "Setting", pKey, sNewPath

    

    MsgBox "تمت عملية الحفظ بنجاح", vbInformation + vbMsgBoxRight, "MSGBOX"

End Sub



Private Sub Form_Load()

    Dim sPath As String

    

    sPath = GetSetting(App.Title, "Setting", "A", "")

    Image1.Picture = LoadPicture(sPath)

    

    sPath = GetSetting(App.Title, "Setting", "B", "")

    Image2.Picture = LoadPicture(sPath)

    

    sPath = GetSetting(App.Title, "Setting", "C", "")

    Image3.Picture = LoadPicture(sPath)

    

End Sub



Private Sub cmdAdd1_Click()

    LoadImage Image1, "logo1", "A"

End Sub



Private Sub cmdRemove1_Click()

    Image1 = Nothing

    Fs.DeleteFile GetSetting(App.Title, "Setting", "A", ""), True

    SaveSetting App.Title, "Setting", "A", ""

    MsgBox "تمت عملية الحذف بنجاح", vbInformation + vbMsgBoxRight, "MSGBOX"

    

End Sub



Private Sub cmdAdd2_Click()

    LoadImage Image2, "logo2", "B"

End Sub



Private Sub cmdRemove2_Click()

    Image2 = Nothing

    Fs.DeleteFile GetSetting(App.Title, "Setting", "B", ""), True

    SaveSetting App.Title, "Setting", "B", ""

    MsgBox "تمت عملية الحذف بنجاح", vbInformation + vbMsgBoxRight, "MSGBOX"

End Sub



Private Sub cmdAdd3_Click()

    LoadImage Image3, "logo3", "C"

End Sub



Private Sub cmdRemove3_Click()

    Image3 = Nothing

    Fs.DeleteFile GetSetting(App.Title, "Setting", "C", ""), True

    SaveSetting App.Title, "Setting", "C", ""

    MsgBox "تمت عملية الحذف بنجاح", vbInformation + vbMsgBoxRight, "MSGBOX"

End Sub