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

كيف ان محتوي الليست بوكس هو من اريد تسهيل البحث عنه وضح ؟

[الوادي]

يا عبدالرحمن،

أكيد ما ينفع Clear مع ListBox1 مربوط بقاعدة بيانات.
وضعك مجرد صور أنت كدا بتصعبها وتريد الحل باسرع وقت ما يصير.
ارفع مشروعك عشان نعرف كيف تم عملت داتا سورس وبعدها تلاقي حل سريع.

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

لا افهم كيف وضح

[Abou Eman]

ds.clear()
قبل كود الخطأ

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

ds.clear()
قبل كود الخطأ

ماهو ds لايعمل

[الوادي]

يا عبدالرحمن أنت المفروض توضح عشان نفهم عليك،
وقلت لك ضع مشروعك عشان تختصر الوقت لكن يظهر الطلب ما ناسبك.

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

يا عبدالرحمن أنت المفروض توضح عشان نفهم عليك،
وقلت لك ضع مشروعك عشان تختصر الوقت لكن يظهر الطلب ما ناسبك.

بص انا لما اكتب اي حرف في التيكست بوكس بيظهرلي الايرور اللي في الصورة وده المشروع في المرفقات

[Abou Eman]

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 


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

---

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 


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

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

انت بتقول رابطها بداتا سورس
اعمل كلير للداتا سورس كل مرة قبل السيلكت او البحث

[الوادي]

أنا لقيت الحل في مشاركة إيمان اللي في الصفحة الأولى فقط قمت بتعديل بسيط

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 


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

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

أنا لقيت الحل في مشاركة إيمان اللي في الصفحة الأولى فقط قمت بتعديل بسيط

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 


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

شكرا شكرا شكرا تم حل المشكل بنجاح