تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سحب أيقونة البرامج و حفظها إلي ico
#1
Star 
السلام عليكم و رحمه الله و بركاته اهل المنتدي ..

كيف يتم عمل برنامج لسحب الأيقونات الخاصة بالبرامج و الأيقونات المحفوظة في ملفات dll و هكذا مثل الذي في الصورة و المرفق ..



وسحب الأيقونة عن طريق الـ Drag and Drop

تحياتي لكم  Heart


الملفات المرفقة
.zip   exico.zip (الحجم : 1.85 م ب / التحميلات : 22)
الرد
تم الشكر بواسطة: ابراهيم ايبو
#2
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim op As OpenFileDialog
        op = New OpenFileDialog
        '   op.Filter = "EXE|*.exe"
        If op.ShowDialog = Windows.Forms.DialogResult.OK Then
            ExtractAssociatedIconEx(op.FileName)
        End If

    End Sub
    Private Sub ExtractAssociatedIconEx(ad As String)
        Dim ico As Icon = Icon.ExtractAssociatedIcon(ad)
        Dim sv As New SaveFileDialog
        sv.Filter = "ico|*.ico"
        If sv.ShowDialog = Windows.Forms.DialogResult.OK Then
            Using ms As New IO.MemoryStream
                ico.Save(ms)
                Dim b() As Byte = ms.ToArray
                Using bw As New IO.BinaryWriter(New IO.FileStream(sv.FileName, IO.FileMode.Create))
                    bw.Write(b)
                End Using
            End Using
        End If

    End Sub
الرد
تم الشكر بواسطة: elgokr , sendbad100 , YousefOkasha , Done
#3
شكراً لك هذا ما كنت اريده لكن ..

كيف أظهر الأيقونة في picturebox

تحياتي لك
الرد
تم الشكر بواسطة: Done


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار عن حماية او كسر البرامج مجموعه اسئله قد يكون الحل ارجو المساعده thementalist 1 234 15-09-18, 08:21 PM
آخر رد: عبدالله الدوسري
Exclamation مشكلة في البرامج التي لها علاقة ل OpenFileDialog YousefOkasha 3 146 10-08-18, 07:52 PM
آخر رد: elgokr
  [VB.NET] توليد ارقام عشوائية غير موجودة في قاعدة البيانات و حفظها فيها larbihamri 8 249 26-07-18, 10:45 PM
آخر رد: سعود
  [VB.NET] ممكنطريقة ربط 2 جداول مع بعضها وعرضها في جدول رقم 3 ومن تم حفظها وعرضها في تقرير واحد annaba2015 6 219 21-07-18, 11:41 PM
آخر رد: elgokr
  ما هي افضل طرق تحزيم البرامج (فيجوال دوت نت 2012) alaa.altunsi 9 501 09-05-18, 12:07 AM
آخر رد: alaa.altunsi
  حماية البرامج برقم مميز ssayed111 9 649 26-03-18, 01:17 PM
آخر رد: silverlight
  [سؤال] اخفاء البرامج من التاسك مانجر ابو روضة 0 168 19-12-17, 02:32 AM
آخر رد: ابو روضة
  استيراد الصور و حفظها بمجلد المشروع العيدروس 5 355 16-11-17, 02:11 PM
آخر رد: أحمد النجار
  حل مشكلة " البرامج لا تعمل" عبدالرحمن المكاوي 6 654 03-06-17, 05:06 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] أحتاج حل لأخطأ البرامج مفتوحة المصدر nouri32 13 931 20-05-17, 04:24 AM
آخر رد: nouri32

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم