(16-09-17, 02:44 PM)عبدالرحمن المكاوي كتب :

كود :

    dt.Columns.AddRange(New DataColumn() {New DataColumn("title"), New DataColumn("section"), New DataColumn("link")})

       Dim wc As New Net.WebClient()
       Dim src As String = wc.DownloadString("http://arab-live.ucoz.net/Test.txt")

       For Each str As String In src.Split(vbLf) '
           Dim splt() = Split(str, ",")
           Dim r As DataRow = dt.NewRow
           r.Item("title") = splt(0)
           r.Item("section") = splt(1)
           r.Item("link") = splt(2)
           dt.Rows.Add(r)
       Next

       TextBox1_TextChanged(Nothing, Nothing)
       Dim q = From x As DataRow In dt Select x.Item("section") Distinct
       ComboBox1.Items.AddRange(q.ToArray)
       ComboBox1.SelectedIndex = 0
       TextBox1.Focus()

(16-09-17, 02:53 PM)سعود كتب :

(16-09-17, 02:44 PM)عبدالرحمن المكاوي كتب :

كود :

    dt.Columns.AddRange(New DataColumn() {New DataColumn("title"), New DataColumn("section"), New DataColumn("link")})

       Dim wc As New Net.WebClient()
       Dim src As String = wc.DownloadString("http://arab-live.ucoz.net/Test.txt")

       For Each str As String In src.Split(vbLf) '
           Dim splt() = Split(str, ",")
           Dim r As DataRow = dt.NewRow
           r.Item("title") = splt(0)
           r.Item("section") = splt(1)
           r.Item("link") = splt(2)
           dt.Rows.Add(r)
       Next

       TextBox1_TextChanged(Nothing, Nothing)
       Dim q = From x As DataRow In dt Select x.Item("section") Distinct
       ComboBox1.Items.AddRange(q.ToArray)
       ComboBox1.SelectedIndex = 0
       TextBox1.Focus()

معذرة اخي الكريم ...لم اجد شيء سبب لرسالة الخطا.

(16-09-17, 04:50 PM)ابو روضة كتب :

طب حاول ان تأخذ المشروع الى القرص C  وشغله من هناك

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

(16-09-17, 07:13 PM)عبدالرحمن المكاوي كتب : اشتغل بدون مشاكل نفس السورس بدون تشفير


بس لا يمكنني نشر البرنامج بدون تشفير هل لديكم تشفير اخر

(17-09-17, 12:18 AM)سعود كتب :

(16-09-17, 07:13 PM)عبدالرحمن المكاوي كتب : اشتغل بدون مشاكل نفس السورس بدون تشفير


بس لا يمكنني نشر البرنامج بدون تشفير هل لديكم تشفير اخر

اخي الكريم لما لا تعمل مثال بسيط للتشفير الذي تقصده.
حتى نعرف هل بالامكان ام لا.