(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
