[asmarsou]

(01-02-23, 06:30 PM)HASNI14 كتب : السلام عليكم يا ريت مساعدة من فضلكم .

انشأت برنامج و وضعة له LISTVIEW 

اريد عند وضع رابط موقع على TEXBOX يفتح روابط موجودة في موقع M3U على LISTVIEW

 و عليكم السلام و رحمة الله و بركاته
تفضل هذا مثال

PHP كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim searchstring As String = TextBox1.Text
        ListView1.SelectedIndices.Clear()
        For Each lvi As ListViewItem In ListView1.Items
            For Each lvisub As ListViewItem.ListViewSubItem In lvi.SubItems
                If lvisub.Text = searchstring Then
                    ListView1.SelectedIndices.Add(lvi.Index)
                    Exit For
                End If
            Next
        Next
        ListView1.Focus()
        'ضع هنا كود فتح الرابط
    End Sub 


---

(01-02-23, 08:29 PM)asmarsou كتب :

(01-02-23, 06:30 PM)HASNI14 كتب : السلام عليكم يا ريت مساعدة من فضلكم .

انشأت برنامج و وضعة له LISTVIEW 

اريد عند وضع رابط موقع على TEXBOX يفتح روابط موجودة في موقع M3U على LISTVIEW

 و عليكم السلام و رحمة الله و بركاته
تفضل هذا مثال

PHP كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim searchstring As String = TextBox1.Text
        ListView1.SelectedIndices.Clear()
        For Each lvi As ListViewItem In ListView1.Items
            For Each lvisub As ListViewItem.ListViewSubItem In lvi.SubItems
                If lvisub.Text = searchstring Then
                    ListView1.SelectedIndices.Add(lvi.Index)
                    Exit For
                End If
            Next
        Next
        ListView1.Focus()
        'ضع هنا كود فتح الرابط
    End Sub 


وكذلك مثال مختصر

كود :

Dim item = ListView1.FindItemWithText(TextBox1.Text, False, 0, False)
       If item IsNot Nothing Then
           Process.Start(item.Text) 'كمثال
       End If