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

نسخة كاملة : استفسار في الكومبوبكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
بسم الله الرحمن الرحيم 
---------------------------------------------
مرحبا واهل باعضاء المنتدئ الكرام كان عندي استفسار النهارده وهو اني معايا صفحة ويب فارخه لايوجد بها الا هذا الاسم Test 
اريد ان احمل هذا الاسم في اذاة الكومبوكس لكي يصبح Iitem بها وكل سطر في الصفحة يمثل Iitem داخل الكومبوبكس والمثال في الصور ----- الفكرة من هذه التجربة هي اني اريد تغير Iitem  التي في الكومبوبكس عن بعد
في الصور
(20-05-16, 10:43 AM)سعود كتب : [ -> ]معلش اخي الكريم
مش ممكن تكون صفحة فارغة خصوصا اذا اردنا قراءة مصدرها.
اما لو تقصد قراءة قيم من حقول معينة فهذا شي اخر يتطلب ايضاح اكثر.

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

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

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

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

    
Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 ObjectByVal e As System.EventArgsHandles 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 
هل يمكن تطبق الطريقة على قاعدة باينات بنفس الطرقة
(20-05-16, 04:13 PM)amgad525 كتب : [ -> ]
PHP كود :
Public Class Form1

    Private Sub Form1_Load
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 ObjectByVal e As System.EventArgsHandles 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 
شكرا جدا
(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.ObjectByVal e As System.EventArgsHandles 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 ObjectByVal e As System.EventArgsHandles 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 
شكرا جدا

حل للمشكلة دي اخي 
PHP كود :
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 
بسم الله 
-----------------------
اخي انا عملت الاتي وضعت في اداة ليست بوكس العناصر مكان اداة كومبوبكس لكن اريد اضافة خانة في الوسط في القاعدة 

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

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

    Dim dt 
As New DataTable()
    
Dim hold As Boolean

    
Private Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles 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 
الصفحات : 1 2