(25-05-16, 02:56 AM)%Eman% كتب : ds.clear()
قبل كود الخطأ

(25-05-16, 12:29 PM)الوادي كتب : يا عبدالرحمن أنت المفروض توضح عشان نفهم عليك،
وقلت لك ضع مشروعك عشان تختصر الوقت لكن يظهر الطلب ما ناسبك.

(24-05-16, 12:21 PM)عبدالرحمن المكاوي كتب :

(23-05-16, 12:05 PM)amgad525 كتب :

PHP كود :

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
    Static myList As Array
    If IsNothing(myList) Then myList = Me.ListBox1.Items.OfType(Of String).ToArray
    Me.ListBox1.Items.Clear()
    Me.ListBox1.Items.AddRange((From x As String In myList Where x.ToLower.StartsWith(Me.TextBox1.Text.Trim.ToLower)).ToArray)
End Sub 


شكرا شكرا علي مجهوداتك الكود اشتغل تمام

---

(24-05-16, 12:21 PM)عبدالرحمن المكاوي كتب :

(23-05-16, 12:05 PM)amgad525 كتب :

PHP كود :

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
    Static myList As Array
    If IsNothing(myList) Then myList = Me.ListBox1.Items.OfType(Of String).ToArray
    Me.ListBox1.Items.Clear()
    Me.ListBox1.Items.AddRange((From x As String In myList Where x.ToLower.StartsWith(Me.TextBox1.Text.Trim.ToLower)).ToArray)
End Sub 


شكرا شكرا علي مجهوداتك الكود اشتغل تمام

لكن عن ربط البرنامج بقاعدة داتا سورس وكتابت اي حرف انظر ماذا يحدث

(25-05-16, 02:01 PM)الوادي كتب : أنا لقيت الحل في مشاركة إيمان اللي في الصفحة الأولى فقط قمت بتعديل بسيط

PHP كود :

Public Class Form1

    Dim dt As New DataTable()
    Dim hold As Boolean

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

        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

        TextBox1_TextChanged(Nothing, Nothing)

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If hold Then Exit Sub
        Try
            Dim s As String = Me.ListBox1.SelectedValue
            If s.Trim <> "" AndAlso s.Trim.StartsWith("http://") Then s = "http://" & s
            If s <> "" Then Process.Start(s)
        Catch ex As Exception
        End Try
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
        Dim q As IEnumerable(Of DataRow) = (From x As DataRow In dt Where x.Item("Display").ToString.ToLower.StartsWith(Me.TextBox1.Text.Trim.ToLower))
        hold = True
        Me.ListBox1.DataSource = If(q.Count = 0, Nothing, q.CopyToDataTable)
        Me.ListBox1.DisplayMember = "Display"
        Me.ListBox1.ValueMember = "Value"
        Me.ListBox1.SelectedIndex = -1
        hold = False
    End Sub

End Class 


شايف كيف لما وضعت المشروع كيف اتحل الموضوع.