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

نسخة كاملة : طلب كود list box
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
عايز لما اجى اختار الحلقة من الليست بوكس يشغل الحلقة فى الويب براوزر


[صورة مرفقة: 146066610586481.png]

بس فى مشكلة مع الثيم ياريت حد يقولى اعمل ايه
الأن أنت وضعت اللينك لكل حلقة في ليست بوكس و هنا جميع اليينك اصبحت عبارة عن string ولكي تعمل عليك ان تتاكد انها عبارة عن uri
(16-04-16, 05:04 AM)silverlight كتب : [ -> ]الأن أنت وضعت اللينك لكل حلقة في ليست بوكس و هنا جميع اليينك اصبحت عبارة عن string ولكي تعمل عليك ان تتاكد انها عبارة عن uri

اه هى كده ولكن مش عارف المشكلة فين
إقتباس :بس فى مشكلة مع الثيم ياريت حد يقولى اعمل ايه
اقترح عليك اخي الكريم ان تترك الثيمات الان حتى تنهي التطبيق وبعد ذلك تضيفه وتبدا بالبحث عن  حل مشاكله.

إقتباس :اه هى كده ولكن مش عارف المشكلة فين
اخي الكريم الاجراء اللي اضفت فيه اسماء الحلقات هو نفسه حيضيف روابط الحلقات الى متغير من نوع مصفوفة .
شوف هذا المثال
وبالتحديد هذا الكود
PHP كود :
For Each nod As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//div[@id='wpcsindex']/ul[@class='cols two']/li/a")
 
           ComboBox1.Items.Add(nod.InnerText.Trim)
 
           lnk.Add("http://www.connectionstrings.com/" nod.Attributes("href").Value)
 
       Next 

هذا يضيف النص للكومبوبوكس  بينما يضيف الرابط الى متغير lnk وهو معرف على انه مصفوفة نصية 
PHP كود :
 Dim lnk As New List(Of String
(16-04-16, 11:58 AM)سعود كتب : [ -> ]
إقتباس :بس فى مشكلة مع الثيم ياريت حد يقولى اعمل ايه
اقترح عليك اخي الكريم ان تترك الثيمات الان حتى تنهي التطبيق وبعد ذلك تضيفه وتبدا بالبحث عن  حل مشاكله.

إقتباس :اه هى كده ولكن مش عارف المشكلة فين
اخي الكريم الاجراء اللي اضفت فيه اسماء الحلقات هو نفسه حيضيف روابط الحلقات الى متغير من نوع مصفوفة .
شوف هذا المثال
وبالتحديد هذا الكود
PHP كود :
For Each nod As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//div[@id='wpcsindex']/ul[@class='cols two']/li/a")
 
           ComboBox1.Items.Add(nod.InnerText.Trim)
 
           lnk.Add("http://www.connectionstrings.com/" nod.Attributes("href").Value)
 
       Next 

هذا يضيف النص للكومبوبوكس  بينما يضيف الرابط الى متغير lnk وهو معرف على انه مصفوفة نصية 
PHP كود :
 Dim lnk As New List(Of String

اخى تفضل المشروع وحضرتك اعمل الكود وكمان الليست بوكس مش بتعمل مسح

اعتذر اخي الكريم
حملت المثال وظهرت هذه الرسالة
واذكر مرات عديدة اتجاهل هذه الرسالة وانقر موافق واواجه مشاكل لاحقا لذلك لا اقوى على فتح المشروعSad
انتظر احد الاخوة يرى المشروع
(16-04-16, 06:55 PM)سعود كتب : [ -> ]

اعتذر اخي الكريم
حملت المثال وظهرت هذه الرسالة
واذكر مرات عديدة اتجاهل هذه الرسالة وانقر موافق واواجه مشاكل لاحقا لذلك لا اقوى على فتح المشروعSad
انتظر احد الاخوة يرى المشروع

تفضل جرب ده
http://up.top4top.net/downloadf-10484vj1-rar.html
عدلت لك الكود
PHP كود :
Imports System.Net

Public Class Form1

    Dim ds 
As New Net.WebClient() With {.Credentials = New Net.NetworkCredential("hkda_17821442""11223300")}
 
   Dim lnk As String "ftp://hkda_17821442@ftp.hostkda.com/htdocs/m/"

 
   Dim dictionary As New Dictionary(Of StringString)

 
   Private Sub Form1_Load(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
        Try
            FlatComboBox1
.Items.AddRange(ds.DownloadString(lnk "مسلسلات.txt").Split(vbLf))
 
       Catch ex As Exception
            MsgBox
("يوجد خطا")
 
           End
        End 
Try

 
   End Sub

    Private Sub FlatComboBox1_SelectedIndexChanged
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles FlatComboBox1.SelectedIndexChanged
        FlatComboBox1
.Enabled False

        FlatListBox1
.Clear()
 
       dictionary.Clear()

 
       Dim t As New List(Of String)(ds.DownloadString(lnk FlatComboBox1.Text ".txt").Split(vbLf))

 
       For i 0 To t.Count 1 Step 2
            dictionary
.Add(t(i), t(1))
 
           FlatListBox1.AddItem(t(i))
 
       Next

        FlatComboBox1
.Enabled True
    End Sub

    Private Sub FlatButton1_Click
(ByVal sender As ObjectByVal e As EventArgsHandles FlatButton1.Click
        WebBrowser1
.Navigate(dictionary(FlatListBox1.SelectedItem).Replace("watch?v=""v/") & "&autoplay=1&rel=0")
 
   End Sub

    Private Sub FlatButton2_Click
(ByVal sender As ObjectByVal e As EventArgsHandles FlatButton2.Click
        FlatComboBox1
.Items.Clear()
 
       Try
            FlatComboBox1
.Items.AddRange(ds.DownloadString(lnk "مسلسلات.txt").Split(vbLf))
 
       Catch ex As Exception
            MsgBox
("يوجد خطا")
 
           End
        End 
Try
 
   End Sub

End 
Class 

جرب واخبرني بالنتيجة
(16-04-16, 08:48 PM)derham كتب : [ -> ]عدلت لك الكود
PHP كود :
Imports System.Net

Public Class Form1

    Dim ds 
As New Net.WebClient() With {.Credentials = New Net.NetworkCredential("hkda_17821442""11223300")}
 
   Dim lnk As String "ftp://hkda_17821442@ftp.hostkda.com/htdocs/m/"

 
   Dim dictionary As New Dictionary(Of StringString)

 
   Private Sub Form1_Load(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
        Try
            FlatComboBox1
.Items.AddRange(ds.DownloadString(lnk "مسلسلات.txt").Split(vbLf))
 
       Catch ex As Exception
            MsgBox
("يوجد خطا")
 
           End
        End 
Try

 
   End Sub

    Private Sub FlatComboBox1_SelectedIndexChanged
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles FlatComboBox1.SelectedIndexChanged
        FlatComboBox1
.Enabled False

        FlatListBox1
.Clear()
 
       dictionary.Clear()

 
       Dim t As New List(Of String)(ds.DownloadString(lnk FlatComboBox1.Text ".txt").Split(vbLf))

 
       For i 0 To t.Count 1 Step 2
            dictionary
.Add(t(i), t(1))
 
           FlatListBox1.AddItem(t(i))
 
       Next

        FlatComboBox1
.Enabled True
    End Sub

    Private Sub FlatButton1_Click
(ByVal sender As ObjectByVal e As EventArgsHandles FlatButton1.Click
        WebBrowser1
.Navigate(dictionary(FlatListBox1.SelectedItem).Replace("watch?v=""v/") & "&autoplay=1&rel=0")
 
   End Sub

    Private Sub FlatButton2_Click
(ByVal sender As ObjectByVal e As EventArgsHandles FlatButton2.Click
        FlatComboBox1
.Items.Clear()
 
       Try
            FlatComboBox1
.Items.AddRange(ds.DownloadString(lnk "مسلسلات.txt").Split(vbLf))
 
       Catch ex As Exception
            MsgBox
("يوجد خطا")
 
           End
        End 
Try
 
   End Sub

End 
Class 

جرب واخبرني بالنتيجة

اخى ينفع الضغط يبقى على الحلقة تفتح فى الويب على طول مش الضغط على البوتن
حسب الثيم المستخدم لم اجد حدث يسمح بذلك
الصفحات : 1 2