السلام عليكم ورحمة الله وبركاته ..
لدي مشكله في كود Exit .. تظهر رساله للمسخدم : هل تريد الحفظ ؟؟
في حال نعم يحفظ العمل ..
لا : يقوم بالإنتهاء من البرنامج ..
الحفظ يصير فقط صورة .. كيف ازيد الإمتداد بحيث يقبل صورة ونص ؟؟ يعني يحفظ الموجود كامل في الـ Bicpox
هذا الكـــود :
If MessageBox.Show("Save your art?", "Art Program.", MessageBoxButtons.YesNo, _
MessageBoxIcon.Exclamation) = DialogResult.Yes Then
With SaveFileDialog1
.Title = "صندوق حفظ الصور"
.Filter = "Image Files(*.JPG;*.GIF) |*.jpg;*.gif"
.OverwritePrompt = True
If .ShowDialog = DialogResult.OK Then
'يحفظ الصور فقط
picBox.Image.Save(.FileName)
End If
End With
Else
Dim x As Application
x.Exit()
End If
تحياتي الجوريه للجميع ..