بس فى مشكلة مع الثيم ياريت حد يقولى اعمل ايه

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

إقتباس :بس فى مشكلة مع الثيم ياريت حد يقولى اعمل ايه

إقتباس :اه هى كده ولكن مش عارف المشكلة فين

(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) 


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

(16-04-16, 06:55 PM)سعود كتب :

اعتذر اخي الكريم

حملت المثال وظهرت هذه الرسالة

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

انتظر احد الاخوة يرى المشروع

(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 String, String)

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles 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.Object, ByVal e As System.EventArgs) Handles 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(i + 1))
            FlatListBox1.AddItem(t(i))
        Next

        FlatComboBox1.Enabled = True
    End Sub

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

    Private Sub FlatButton2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 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 


---

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