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

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

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

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

مثال                            Test1,www.facebook.com اريد عن اختيار Test يفتح لي موقع فيس بوك مثلا
الرد }}}}
تم الشكر بواسطة:
#4
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 
الرد }}}}
تم الشكر بواسطة:
#5
هل يمكن تطبق الطريقة على قاعدة باينات بنفس الطرقة

[صورة مرفقة: 000.gif]
الرد }}}}
تم الشكر بواسطة:
#6
(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 
شكرا جدا
الرد }}}}
تم الشكر بواسطة:
#7
(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 
شكرا جدا

حل للمشكلة دي اخي 
الرد }}}}
تم الشكر بواسطة:
#8
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 
الرد }}}}
تم الشكر بواسطة:
#9
بسم الله 
-----------------------
اخي انا عملت الاتي وضعت في اداة ليست بوكس العناصر مكان اداة كومبوبكس لكن اريد اضافة خانة في الوسط في القاعدة 

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

ولكن Sport تعطيني Iteam التي موجود بجوارها Sport في القاعدة والصور توضح كل شئ 
الرد }}}}
تم الشكر بواسطة:
#10
عبدالرحمن إنت رجعت لحكاية الصور، لكن مادام رفعت مشروعك في الموضوع السابق فعلى أساسه راح أعدل لك الكود لكن الملف اللي في النت على وضعه السابق وما راح يمشي معه التغيير.
أنا مشيت مع الكود بنفس الأسلوب السابق عشان ما تتلخبط وأكيد صار شويت تعديلات لكن الأسلوب هو نفسه.
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 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار بخصوص استعلام التعديل dark1459 8 105 15-11-16, 12:31 AM
آخر رد: dark1459
Exclamation [VB.NET] استفسار في كود string a_abdullah 11 214 07-11-16, 10:05 PM
آخر رد: a_abdullah
  [VB.NET] استفسار عن DataGridView dubai.eig 2 75 21-10-16, 08:09 AM
آخر رد: أبو عمر
Photo استفسار عن Team Foundation Server shwehdi4pc 3 88 10-10-16, 01:16 AM
آخر رد: shwehdi4pc
  استفسار حول اداه ListView Mohamed20 3 128 01-10-16, 10:08 PM
آخر رد: ممدوح
  طريقة تعبئة الكومبوبكس هاوي1995 24 571 26-09-16, 07:54 AM
آخر رد: سعود
  استفسار بخصوص الاداة irisskin HATEM KAREM 4 753 24-08-16, 08:58 PM
آخر رد: khalid475
  [سؤال] استفسار حول اضافة عبدالرحمن المكاوي 3 127 23-08-16, 03:52 PM
آخر رد: عبدالرحمن المكاوي
  استفسار بخصوص اداة combobox mm2020 1 153 23-08-16, 03:14 PM
آخر رد: ابو ليلى
  [سؤال] استفسار بخصوص اداة ProgressBar ابو روضة 2 123 15-08-16, 11:13 AM
آخر رد: ابو روضة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم