منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

(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 


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

(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)سعود كتب : [ -> ] لازم بالاول نستخرج الملف الى مجلد مؤقت ثم .....
وجدت الموضوع:
هنا

(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