19-03-18, 01:41 PM
مافيه رد
انا مشكلتي هنا يحفظ نفس مسار مجلد الصور وينسى مسار مجلد قاعدة البيانات والبرنامج
كيف ارجعه لمسار قاعدة البيانات
انا مشكلتي هنا يحفظ نفس مسار مجلد الصور وينسى مسار مجلد قاعدة البيانات والبرنامج
كود :
frmMain.CommonDialog1.CancelError = True
frmMain.CommonDialog1.Filter = "picture |*.jpg| All File ( *.* ) | *.*"
frmMain.CommonDialog1.DialogTitle = "Open Picture"
frmMain.CommonDialog1.ShowOpen
OpenFile = frmMain.CommonDialog1.Filename
Image1.Picture = LoadPicture(OpenFile)