الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكله فى نسخ الصور

مغلق
بدأه moslem_12002 في 5 مارس 2007 · 2 رد · 527 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

بأستخدام ado2.8

حد يساعدنى فى عملية نقل الصور من مكان لمكان تانى بأستخدام microsoft common dialog control6.0(sp6

فى أستدعاء الصور علشان العميل يشوفها مع البيانات باستخدم

 Image1.Picture = LoadPicture(App.Path & "\pic\" + Text6.Text + ".jpg")

بحيث pic هو أسم الفولدر اللى فية الصور

اللى انا عاوزه command على الفورم أخلى العميل يستطيع من خلاله فتح شاشة حوار ويختار صوره المفروض الكود اللى عاوزه ينسخ الصوره فى الفولدر pic

وكود نقل الصور اللى عملته هو 

Private Sub hh_Click()
cmd.Filter = "pic|*.jpg"
cmd.ShowOpen
Image1.Picture = LoadPicture(cmd.FileName)
Dim d As String
	 (" \ FileCopy d, (App.Path & "\pic 
End Sub

بس دايما لما أحاول أجرب اللى عملته يطلع غلط فى مسار قاعدة البيانات مع انى ملمستش كود ربطها مع البرنامج والبرنامج كان شغال تمام لحد مأكتب كود النقل من أول dim b as string

انا أحترت ومش عارف السبب

وشكرا للمساعده على كل حال

سبحان الله وبحمده سبحان الله العظيم

s.gif

#2

الأخ الفاضل ...

جرب أستخدام الكود التالى: 

Private Sub hh_Click()
	cmd.Filter = "pic|*.jpg"
	cmd.ShowOpen
	Image1.Picture = LoadPicture(cmd.FileName)
	FileCopy cmd.FileName, App.Path & "\pic\" & cmd.FileTitle
End Sub

شكراً

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#3

أخى العزيز الف الف شكر على المساعده فعلا نفعت ونقلت الصوره للمكان اللى انا عاوزه

وده اللى كنت عاوزه بالضبط مش عارف ارد جميلك ازاى

سبحان الله وبحمده سبحان الله العظيم

s.gif

هذا الموضوع مغلق.

مواضيع مشابهة