تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] جلب ايقونة البرنامج
#11
مرحبا اخى

مفهمتش عليك

تقصد ايه (بإختار كذا برنامج مع بعض)
الرد }}}
تم الشكر بواسطة:
#12
(20-09-17, 02:29 PM)أبو نوره كتب : مرحبا اخى

مفهمتش عليك

تقصد ايه (بإختار كذا برنامج مع بعض)


يعنى بدل من أن يختار جوجل كروم وحده يختار معه اى برامج أنا اقوم باختيارها لانى لما بحددهم كلهم


أيضا لا يتم الا اختيار برنامج واحد فقط انظر الصورة




الرد }}}
تم الشكر بواسطة:
#13
مرحبا اخى

فهمت عليك
اذا سنقرا الملفات من مصفوفة FileNames بدلا من FileName
PHP كود :
Private Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click

    OpenFileDialog1
.Filter "EXE files (*.exe)|*.exe"
 
   If OpenFileDialog1.ShowDialog vbOK Then
        For Each fn 
As String In OpenFileDialog1.FileNames
            Dim appName 
As String IO.Path.GetFileNameWithoutExtension(fn)
 
           Dim appPath As String fn

            Dim myicon 
As Icon Icon.ExtractAssociatedIcon(fn)
 
           Me.ImageList1.Images.Add(myicon)

 
           Dim itm As New ListViewItem(appName)
 
           itm.Tag appPath
            itm
.ImageIndex Me.ImageList1.Images.Count 1

            Me
.ListView1.Items.Add(itm)
 
       Next
    End 
If

End Sub 
الرد }}}
#14
(20-09-17, 02:53 PM)أبو نوره كتب : مرحبا اخى

فهمت عليك
اذا سنقرا الملفات من مصفوفة FileNames بدلا من FileName
PHP كود :
Private Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click

    OpenFileDialog1
.Filter "EXE files (*.exe)|*.exe"
 
   If OpenFileDialog1.ShowDialog vbOK Then
        For Each fn 
As String In OpenFileDialog1.FileNames
            Dim appName 
As String IO.Path.GetFileNameWithoutExtension(fn)
 
           Dim appPath As String fn

            Dim myicon 
As Icon Icon.ExtractAssociatedIcon(fn)
 
           Me.ImageList1.Images.Add(myicon)

 
           Dim itm As New ListViewItem(appName)
 
           itm.Tag appPath
            itm
.ImageIndex Me.ImageList1.Images.Count 1

            Me
.ListView1.Items.Add(itm)
 
       Next
    End 
If

End Sub 



والله ما عارف ماذا اقول لك...


جزاك الله خيرى الدارين اخى ابو نوره وتشوف أولادك بأعلى المستويات دنيا وآخره.

معلش تعبتك معايا.♥
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لماذا البرنامج يتوقف بدل عرض رسالة الخطأ justforit 0 101 07-12-25, 10:22 AM
آخر رد: justforit
  كيفية حفظ إعدادات البرنامج بحيث لا تتغير أحمد إبراهيم سعد 4 3,001 06-08-25, 06:34 PM
آخر رد: Taha Okla
  [سؤال] تغيير الفورم الرئيسي عند تشغيل البرنامج في Visual Studio مع .NET 8؟ silverlord 2 650 09-03-25, 03:52 AM
آخر رد: silverlord
Rainbow [VB.NET] عدد من هم فاتحي البرنامج محمد مسافر 1 417 25-02-25, 07:58 PM
آخر رد: princelovelorn
  استفسار عن حمايه البرنامج ahmedramy 1 554 25-12-24, 11:07 PM
آخر رد: aljzazy
  مساعدة في عمل جملة الاتصال في ملف خارج البرنامج Emam emam 2 382 25-11-24, 09:24 PM
آخر رد: Emam emam
  تغيير مكان حفظ الصورة من قاعدة البيانات إلى مجلد في مسار البرنامج F.H.M 37 2,299 05-11-24, 08:30 AM
آخر رد: F.H.M
  [مثال] تشغيل البرنامج كمسؤول alswade 2 461 30-10-24, 07:08 PM
آخر رد: aliday03
  كيف يمكن اضافة عناصر للكومبوبوكس اثناء تشغيل البرنامج عن طريق المستخدم haithammoftah 3 2,160 30-09-24, 12:52 AM
آخر رد: asmarsou
Lightbulb [سؤال] مشكلة تظهر عند بدء تشغيل البرنامج أبو خالد الشكري 3 486 19-08-24, 05:16 PM
آخر رد: Zuhare

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


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