1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : ●¦ Snharib ¦● | المشاهدات : 698 | الردود : 1
حالة الموضوع:
مغلق
  1. ●¦ Snharib ¦● V • I • P

    الأنتساب:
    ‏8 يناير 2014
    المشاركات:
    1,128
    الإعجابات المتلقاة:
    1,786
    نقاط الجائزة:
    255
    الإقامة:
    || Iraq ||
    نظام التشغيل:
    windows 8.1




    [​IMG]

    آسعد آلله آوقآتكُم ،

    [ الدرس الثالث ] - برمجة أداة مساعدة لأستخراج ايقونه اي برنامج . [ Vb.Net ]

    [​IMG]

    1- نَحْتاج 2 Button و 1 PictureBox .

    [​IMG]

    2- نُفْتَح كَوَّدَ بوتون 1 وَنُكْتَب بِهِ كَالتالِي :

    Dim dlg As New OpenFileDialog
    With dlg
    .Title = "Open File"
    .FileName = ""
    .Filter = "All Files|*.*"
    End With
    If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
    Dim nicon As Icon = Icon.ExtractAssociatedIcon(dlg.FileName)
    PictureBox1.BackgroundImage = nicon.ToBitmap
    PictureBox1.BackgroundImageLayout = ImageLayout.Zoom
    End If



    هٰذا كَوَّدَ أستدعاء فَتَح المِلَفّ وَعِنْدِ الفَتْح تَظْهَر صُورَة الإِيقُونَة ڤِي بكجر بِوَكْس 1

    3- - نُفْتَح كَوَّدَ بوتون 2 وَنُكْتَب بِهِ كَالتالِي :

    Dim dlg As New SaveFileDialog
    With dlg
    .Title = "Save Icon"
    .FileName = ""
    .Filter = "PNG|*.png"
    End With
    If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
    PictureBox1.BackgroundImage.Save(dlg.FileName, System.Drawing.Imaging.ImageFormat.Png)
    End If



    ه ٰذا كَوَّدَ لَحَفِظَ الإِيقُونَة آلِيّ قَمِناً باستخرجها ..

    4- لِيُصْبِح الكود كَأَمَل كَالتالِي :

    [​IMG]

    5- نَظغطْ عَلَى ( F5 ) وَنَجْرَب البَرْنامَج .

    [​IMG]

    ---

    [​IMG]

    تَــمَّ , ڤِي أَمان اللّٰه .

    [​IMG]

     
  2. ●¦ Snharib ¦● V • I • P

    الأنتساب:
    ‏8 يناير 2014
    المشاركات:
    1,128
    الإعجابات المتلقاة:
    1,786
    نقاط الجائزة:
    255
    الإقامة:
    || Iraq ||
    نظام التشغيل:
    windows 8.1
    رد: [ الدرس الثالث ] - برمجة أداة مساعدة لأستخراج ايقونه اي برنامج . [ Vb.Net ]

    للآستفسآرآتُ : يرجىُ زيآرة آلموضوع آلتآليُ .

    (( - http://www.iq-team.org/vb/t24888.html - ))

     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة