[Taha Okla]

- قم بإضافة مكتبة جديدة من قائمة (Project)  :  
Microsoft Scriping Runtime

أمسح الأزرار وقم بإضافتها من جديد بإسماء جديدة بحسب الترتيب مع كل صورة :

cmdAdd1
cmdRemove1
---
cmdAdd2
cmdRemove2
---
cmdAdd3
cmdRemove3
---

أمسح الكود السابق واستبدله بالكود التالي :

كود :

' 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