حالة الموضوع:
مغلق
  1. ●¦ Snharib ¦●

    ●¦ Snharib ¦● V • I • P

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




    [​IMG]

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

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

    [​IMG]

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

    [​IMG]

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

    [NEW]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[/NEW]

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

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

    [NEW]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[/NEW]

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

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

    [​IMG]

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

    [​IMG]

    ---

    [​IMG]

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

    [​IMG]

     
  2. ●¦ Snharib ¦●

    ●¦ Snharib ¦● V • I • P

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

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

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

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

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