[عبدالرحمن المكاوي]

(20-05-16, 09:47 PM)عبدالرحمن المكاوي كتب :

(20-05-16, 04:13 PM)amgad525 كتب :

PHP كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim dt As New DataTable()
        dt.Columns.AddRange(New DataColumn() {New DataColumn("Display"), New DataColumn("Value")})

        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
            If splt.Count > 0 Then r.Item("Display") = splt(0) Else r.Item("Value") = ""
            If splt.Count > 1 Then r.Item("Value") = splt(1) Else r.Item("Value") = ""
            dt.Rows.Add(r)
        Next

        Me.ComboBox1.DataSource = dt
        Me.ComboBox1.DisplayMember = "Display"
        Me.ComboBox1.ValueMember = "Value"
        Me.ComboBox1.SelectedIndex = -1

    End Sub


    Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
        Dim s As String = Me.ComboBox1.SelectedValue
        'If s.Trim <> "" AndAlso s.Trim.StartsWith("http://") Then s = "http://" & s
        If s <> "" Then Process.Start(s)
    End Sub

End Class 


شكرا جدا

حل للمشكلة دي اخي