تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طلب كود list box
#1
عايز لما اجى اختار الحلقة من الليست بوكس يشغل الحلقة فى الويب براوزر


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

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

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

إقتباس :اه هى كده ولكن مش عارف المشكلة فين
اخي الكريم الاجراء اللي اضفت فيه اسماء الحلقات هو نفسه حيضيف روابط الحلقات الى متغير من نوع مصفوفة .
شوف هذا المثال
وبالتحديد هذا الكود
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
الرد }}}
تم الشكر بواسطة:
#5
(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

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


الملفات المرفقة
.rar   WindowsApplication21.rar (الحجم : 184.41 ك ب / التحميلات : 34)
الرد }}}
تم الشكر بواسطة:
#6

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

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

تفضل جرب ده
http://up.top4top.net/downloadf-10484vj1-rar.html
الرد }}}
تم الشكر بواسطة:
#8
عدلت لك الكود
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 

جرب واخبرني بالنتيجة
الرد }}}
تم الشكر بواسطة:
#9
(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 

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

اخى ينفع الضغط يبقى على الحلقة تفتح فى الويب على طول مش الضغط على البوتن
الرد }}}
تم الشكر بواسطة:
#10
حسب الثيم المستخدم لم اجد حدث يسمح بذلك
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم