+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] تعبئة الليست بوكس من ال resources (/showthread.php?tid=44608)
تعبئة الليست بوكس من ال resources - ابو روضة - 21-12-22
السلام عليكم ورحمة الله وبركاته.
لدى ملفات pdf داخل ال resources
وأريد جلبها داخل الليست بوكس هكذا
كيف يتم عمل ذلك الله يكرمكم....
RE: تعبئة الليست بوكس من ال resources - سعود - 21-12-22
و عليكم السلام و رحمة الله و بركاته
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
RE: تعبئة الليست بوكس من ال resources - ابو روضة - 21-12-22
(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)
فهل تعرف السبب الله يكرمك؟
RE: تعبئة الليست بوكس من ال resources - سعود - 21-12-22
(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)
فهل تعرف السبب الله يكرمك؟
لازم بالاول نستخرج الملف الى مجلد مؤقت ثم .....
وجدت الموضوع:
هنا
RE: تعبئة الليست بوكس من ال resources - ابو روضة - 22-12-22
(21-12-22, 11:12 PM)سعود كتب : لازم بالاول نستخرج الملف الى مجلد مؤقت ثم .....
وجدت الموضوع:
هنا
لم أصل لحل للأسف.
شكراً لك أخي سعود على المساعدة.
RE: تعبئة الليست بوكس من ال resources - سعود - 22-12-22
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
RE: تعبئة الليست بوكس من ال resources - ابو روضة - 22-12-22
(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
جزاك الله كل الخير والسعادة أخى..