[ابو روضة]

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

لدى ملفات pdf داخل  ال resources 

وأريد جلبها داخل الليست بوكس  هكذا

كيف يتم  عمل ذلك الله يكرمكم....

[سعود]

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

PHP كود :

       Dim resSet As Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.InvariantCulture, True, False)
        For Each de As DictionaryEntry In resSet
            ListBox1.Items.Add(de.Key)
        Next 


يوجد موضوع بالمنتدى ظليت ابحث عنه ولم اجده  لكن جربت كود بعد البحث عنه وعمل بشكل جيد.

[ابو روضة]

(21-12-22, 10:16 PM)سعود كتب : و عليكم السلام و رحمة الله و بركاته

PHP كود :

       Dim resSet As Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.InvariantCulture, True, False)
        For Each de As DictionaryEntry In resSet
            ListBox1.Items.Add(de.Key)
        Next 


يوجد موضوع بالمنتدى ظليت ابحث عنه ولم اجده  لكن جربت كود بعد البحث عنه وعمل بشكل جيد.

الله يسعدك ويبارك بعمرك ووقتك أخى سعود...

فعلا نجح الكود ,

حاولت بهذا الكود فتح ملف من الليست بوكس بعد جلبه ولم ينجح

PHP كود :

Process.Start(ListBox1.SelectedItem) 


فهل تعرف السبب الله يكرمك؟

[سعود]

(21-12-22, 11:03 PM)ابو روضة كتب :

(21-12-22, 10:16 PM)سعود كتب : و عليكم السلام و رحمة الله و بركاته

PHP كود :

       Dim resSet As Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.InvariantCulture, True, False)
        For Each de As DictionaryEntry In resSet
            ListBox1.Items.Add(de.Key)
        Next 


يوجد موضوع بالمنتدى ظليت ابحث عنه ولم اجده  لكن جربت كود بعد البحث عنه وعمل بشكل جيد.

الله يسعدك ويبارك بعمرك ووقتك أخى سعود...

فعلا نجح الكود ,

حاولت بهذا الكود فتح ملف من الليست بوكس بعد جلبه ولم ينجح

PHP كود :

Process.Start(ListBox1.SelectedItem) 


فهل تعرف السبب الله يكرمك؟

 لازم بالاول نستخرج الملف الى مجلد مؤقت ثم .....
وجدت الموضوع:
هنا

[ابو روضة]

(21-12-22, 11:12 PM)سعود كتب :  لازم بالاول نستخرج الملف الى مجلد مؤقت ثم .....
وجدت الموضوع:
هنا

لم أصل لحل للأسف.

شكراً لك أخي سعود على المساعدة.

[سعود]

PHP كود :

Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseClick
        If e.Button = MouseButtons.Left Then
            Dim fname As String = IO.Path.GetTempFileName
            IO.File.WriteAllBytes(fname, My.Resources.ResourceManager.GetObject(ListBox1.Text))
            Process.Start(fname)
        End If
    End Sub 


[ابو روضة]

(22-12-22, 12:11 AM)سعود كتب :

PHP كود :

Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseClick
        If e.Button = MouseButtons.Left Then
            Dim fname As String = IO.Path.GetTempFileName
            IO.File.WriteAllBytes(fname, My.Resources.ResourceManager.GetObject(ListBox1.Text))
            Process.Start(fname)
        End If
    End Sub 


جزاك الله كل الخير والسعادة أخى..