استخراج صورة من اليوزرفورم الى الهارديسك

[مختار حسين محمود]

السلام عليكم ورحمة الله وبركاته

أعرض عليكم كودا ( منقولا من أحد المنتديات الأجنبية مع التعديل لملائمة الهدف )

يمكن استخدام الكود فى نسخ صورة من اميج باليوزرفورم الى أى مكان تحدده بالهارديسك

الصورة يتم تصديرها الى الهارديسك بامتداد jpg

الكود

Option Explicit
Private Declare Function OpenClipboard& Lib "user32" (ByVal hwnd As Long)
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData& Lib "user32" (ByVal wFormat&, ByVal hMem&)
Private Declare Function CloseClipboard& Lib "user32" ()
Private Declare Function DestroyIcon& Lib "user32" (ByVal hIcon&)

Private Sub ImageCopy()
' المتغيرات
Dim MyPic As StdPicture, MyPicName As String, xCopy

Set MyPic = Me.Image1.Picture             ' حدد اسم الاميج الذى يحتوى الصورة
MyPicName = "H:\YasserKhalil.jpg"    ' حدد اسم و مسار التخزين على الهارديسك

' فتح الذاكرة العشوائية
OpenClipboard 0
'تفريغ الذاكرة من البيانات
EmptyClipboard
' نسخ الصورة الى الذاكرة
xCopy = SetClipboardData(2, MyPic.Handle)
' اغلاق الذاكرة
CloseClipboard
' شرط : فى حالة وجود الصورة بالذاكرة
If xCopy Then
   ' جواب الشرط : حفظ الصورة المحددة بالمسار المحدد
   SavePicture MyPic, MyPicName
' انهاء جملة الشرط
End If

' تفريغ الذاكرة
DestroyIcon MyPic.Handle
Set MyPic = Nothing
' رسالة بانتهاء المهمة
MsgBox "Mr.YasserKhalil Your's Picture Saved On (" & MyPicName & ")"

End Sub

استدعاء الكود  ImageCopy يتم  عن طريق CommandButton  فى الفورم

Private Sub CommandButton1_Click()
    ImageCopy
End Sub

مع خالص نحياتى

picture from UserForm to a drive.rar

[ياسر خليل أبو البراء]

وعليكم السلام ورحمة الله وبركاته

أخي الحبيب مختار ..

كم يسعدني أنك استعدت نشاطك الرائع والممتع بالمنتدى

وكم أعشق موضوعاتك الحصرية .. واصل بلا فواصل

ومشكور على ذكر اسمي ووضع صورة البروفايل الخاص بي في الملف المرفق

تقبل وافر تقديري واحترامي

 

[مختار حسين محمود]

أستاذى الغالى

أنا من أشكرك  على دعمك و  تشجيعك المستمر المتواصل

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

[علي حيدر]

بارك الله فيك أستاذ مختار حسين محمود

تقبل تحياتي

[مختار حسين محمود]

بارك الله فيك اخى على

مشكور على مرورك الكريم على ها  الموضوع  المتواضع  تحياتى

 

[محمد عبدالسلام]

بارك الله فيك أستاذ مختار حسين محمود

[saad abed]

اخى مختار

شهادتى لك مجروحه لانك من الناس اللى اتتبع كتابتها ولو ردود الشكر

والله يا اخى موضوعاتك وكتاباتك مفيده جدا

جزاك الله خيرا

ننتظر منك المزيد وفقكم الله

[خالد الشاعر]

بارك الله فيك استاذ مختار

[مختار حسين محمود]

أخى محمد  أشكرك  بارك الله فيك

 

أخى سعد عابد 

أشكرك جزيل الشكر على مرورك العطر وعلى المتابعة  فهذا يشرفنى

 

أخى خالد أشكرك  بارك الله فيك