منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] استفسار في الكومبوبكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] استفسار في الكومبوبكس (/showthread.php?tid=15857)

الصفحات: 1 2

استفسار في الكومبوبكس - عبدالرحمن المكاوي - 20-05-16

بسم الله الرحمن الرحيم 
---------------------------------------------
مرحبا واهل باعضاء المنتدئ الكرام كان عندي استفسار النهارده وهو اني معايا صفحة ويب فارخه لايوجد بها الا هذا الاسم Test 
اريد ان احمل هذا الاسم في اذاة الكومبوكس لكي يصبح Iitem بها وكل سطر في الصفحة يمثل Iitem داخل الكومبوبكس والمثال في الصور ----- الفكرة من هذه التجربة هي اني اريد تغير Iitem  التي في الكومبوبكس عن بعد
في الصور

RE: استفسار في الكومبوبكس - عبدالرحمن المكاوي - 20-05-16

(20-05-16, 10:43 AM)سعود كتب : معلش اخي الكريم
مش ممكن تكون صفحة فارغة خصوصا اذا اردنا قراءة مصدرها.
اما لو تقصد قراءة قيم من حقول معينة فهذا شي اخر يتطلب ايضاح اكثر.

الصفحة ليست فارغة بل فيها Test1 And Test2 اريد اداة الكومبوبكس ان تقرئها ويصبح كل سطر في الصفحة بمثابة ايثم في الكوبمبكس

RE: استفسار في الكومبوبكس - عبدالرحمن المكاوي - 20-05-16

(20-05-16, 11:01 AM)سعود كتب : طيب اخي الكريم ممكن مثال للصفحة؟
حتى ارى اي طريقة تصلح لها لان اعرف اما HtmlAgilityPack.dll او regular expression
كلها تعين بهذا الخصوص.
أنظر لهذا المثال

تمام مثال رائع جدا لكن اريد ان اربطه بهاذه الصفحة http://arab-live.ucoz.net/Test.txt ثانيا 

بعد الايثم سوف اعمل علامة (,) واضعط رابط بعدها وهذا الرابط اريدها ان يفتح عندما اضغط علي Test1 

مثال                            Test1,www.facebook.com اريد عن اختيار Test يفتح لي موقع فيس بوك مثلا

RE: استفسار في الكومبوبكس - amgad525 - 20-05-16

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 


RE: استفسار في الكومبوبكس - bidaya - 20-05-16

هل يمكن تطبق الطريقة على قاعدة باينات بنفس الطرقة

RE: استفسار في الكومبوبكس - عبدالرحمن المكاوي - 20-05-16

(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 
شكرا جدا

RE: استفسار في الكومبوبكس - عبدالرحمن المكاوي - 22-05-16

(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 
شكرا جدا

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


RE: استفسار في الكومبوبكس - amgad525 - 22-05-16

PHP كود :
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    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 


RE: استفسار في الكومبوبكس - عبدالرحمن المكاوي - 25-05-16

بسم الله 
-----------------------
اخي انا عملت الاتي وضعت في اداة ليست بوكس العناصر مكان اداة كومبوبكس لكن اريد اضافة خانة في الوسط في القاعدة 

وهي بوابة او فئة لكل Iteam في اليست بوكس مثلا All .Sport وهكذا فمثلا عندما اختار All تاتي لي جميع الIteam  

ولكن Sport تعطيني Iteam التي موجود بجوارها Sport في القاعدة والصور توضح كل شئ 

RE: استفسار في الكومبوبكس - الوادي - 25-05-16

عبدالرحمن إنت رجعت لحكاية الصور، لكن مادام رفعت مشروعك في الموضوع السابق فعلى أساسه راح أعدل لك الكود لكن الملف اللي في النت على وضعه السابق وما راح يمشي معه التغيير.
أنا مشيت مع الكود بنفس الأسلوب السابق عشان ما تتلخبط وأكيد صار شويت تعديلات لكن الأسلوب هو نفسه.
PHP كود :
Public Class Form1

    Dim dt As New DataTable()
    Dim hold As Boolean

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

        dt.Columns.AddRange(New DataColumn() {New DataColumn("title"), New DataColumn("section"), New DataColumn("link")})

        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
            r.Item("title") = splt(0)
            r.Item("section") = splt(1)
            r.Item("link") = splt(2)
            dt.Rows.Add(r)
        Next

        TextBox1_TextChanged(Nothing, Nothing)

        ComboBox1.SelectedIndex = 0
        TextBox1.Focus()

    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(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        hold = True

        Dim q As IEnumerable(Of DataRow)
        If ComboBox1.Text = "All" Then
            q = From x As DataRow In dt
                Where x.Item("title").ToString.ToLower.StartsWith(Me.TextBox1.Text.Trim.ToLower)
        Else
            q = From x As DataRow In dt
                Where x.Item("section").ToString.ToLower.StartsWith(Me.ComboBox1.Text.Trim.ToLower) _
                And x.Item("title").ToString.ToLower.StartsWith(Me.TextBox1.Text.Trim.ToLower)
        End If

        Me.ListBox1.DataSource = If(q.Count = 0, Nothing, q.CopyToDataTable)
        Me.ListBox1.DisplayMember = "title"
        Me.ListBox1.ValueMember = "link"
        Me.ListBox1.SelectedIndex = -1

        hold = False
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        TextBox1_TextChanged(Nothing, Nothing)
    End Sub

End Class