منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(22-10-18, 07:08 PM)XBOOBX كتب : [ -> ]

اتفضل اخي هذا الفيدو امعقدها اشوية 

كود :

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       WebBrowser1.Navigate("https://www.google.com" & ListBox1.Items.Add("Google"))

   End Sub

وهذا كود اخر عن طريق التكست

كود :

Imports System.IO

Public Class Form1
   Private channelList As New List(Of String)

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim lines() As String = File.ReadAllLines("C:\Users\xboobx\Desktop\HWID.txt")
       For Each l As String In lines
           Dim data() As String = l.Split(",")
           If data.Length = 2 Then
               Me.ListBox1.Items.Add(data(0))
               channelList.Add(data(1))
           End If
       Next

   End Sub

   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       If Me.ListBox1.SelectedIndex >= 0 Then
           Me.WebBrowser1.Navigate(channelList(Me.ListBox1.SelectedIndex))
       End If
   End Sub
End Class

اضافة الرابط داخل التكست بهذا الشكل 

google , www.google.com

بالتوفيق اخي