تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود يقوم بتحميل الكومبو بوكس من موقع ويدخلها في الكومبو بوكس في البرنامج
#1
Exclamation 
السلام عليكم ورحمة الله وبركاته
اريد كود يقوم بتحميل الخيارات او الكومبو بوكس


ويحطها في الكومبو بوكس حق البرنامج 

اتمنا فهمتوني Smile



















انتظر الرد ...
الرد }}}
تم الشكر بواسطة:
#2
(12-09-19, 12:40 AM)SnTnt كتب :
السلام عليكم ورحمة الله وبركاته
اريد كود يقوم بتحميل الخيارات او الكومبو بوكس


ويحطها في الكومبو بوكس حق البرنامج 

اتمنا فهمتوني Smile



انتظر الرد ...

بصراحة لم أفهمك خيارات ماذا .

هل تقصد تعبئة الكومبو بوكس من قاعدة بينات .

PHP كود :
       Dim StrSQL As String "Select Id,NameXT,Story From Test "

 
       Dim cn As New SqlClient.SqlConnection("Server =(local);database=Test;integrated security=true")
 
       Dim StrTableName As String "Test"
 
       Dim da As New SqlClient.SqlDataAdapter(StrSQLcn)
 
       Dim dt As New DataTable
        da
.Fill(dt)
 
       ComboBox1.DataSource dt
        ComboBox1
.DisplayMember "NameXT" 

او من متغيير نصي .

PHP كود :
ComboBox1.Items.Add("Test 0"

أو من مصفوفة نصية .

PHP كود :
ComboBox1.Items.AddRange({"Test 1""Test 2"}) 
الرد }}}
تم الشكر بواسطة: SnTnt , ابو روضة , ابراهيم ايبو
#3
السلام عليكم ورحمة الله وبركاته

سأحاول توضيح لك المراد Smile

هاذا الرابط الذي اريد استخراج الكومبو بوكس منه : 
http://www.afreesms.com/freesms

لاحظ خانت [b]Country[/b]

[b]حاولت مشاهدة بعض المقاطع لاكن لا فائدة[/b]

انظر لهاذا الكود Smile
كود :
With CompBox1 'name of compbox
           .Items.Clear()
           Dim OptioList As HtmlElement = WebBrowser1.Document.GetElementById("countrycode")
           For Each child As HtmlElement In OptioList.All
               .Items.Add(child.GetAttribute("text") & "(" & child.GetAttribute("Value") & ")")
           Next
           .SelectedIndex = 0
       End With
عندما اقوم بضغط زر الاستخراج يظهر هاذا الخطأ 
اعتقد ان هاذا الكود بلغة السي شارب Smile
وهنا يظهر الخطأ
            For Each child As HtmlElement In OptioList.All

كيف يمكنني ادخالها في الكومبو بوكس الخاص في البرنامج ؟



انتظر الرد :Smile 
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#4
إذا كنت تقصد تعبئة الكومبوبوكس بالبلدان فهذا بسيط :

PHP كود :
Imports System.Collections.Generic
Imports System
.Globalization

Public Class Form1
    Dim countryList 
As SortedDictionary(Of StringString)
 
   Public Sub ListCountries(SourceCombo As System.Windows.Forms.ComboBox)
 
       If countryList Is Nothing Then
            countryList 
BuildCountryList()
 
       End If
 
       SourceCombo.DisplayMember "Key"
 
       SourceCombo.ValueMember "Value"
 
       SourceCombo.DataSource = New BindingSource(countryListNothing)
 
       ' No need to sort anything '        
    End Sub
    Public 
Function BuildCountryList() As SortedDictionary(Of StringString)
 
       Dim temp = New SortedDictionary(Of StringString)
 
       For Each ci As CultureInfo In CultureInfo.GetCultures(CultureTypes.AllCultures)
 
           Dim ri As RegionInfo
            Try
                ri 
= New RegionInfo(ci.Name)
 
           Catch
              
'  'If a RegionInfo object could not be created don't use the CultureInfo for the country list.'
 
               Continue For
 
           End Try
 
           ' If the country is not already in the countryList add it...'
 
           If Not temp.ContainsKey(ri.EnglishNameThen
                temp
.Add(ri.EnglishNameri.ThreeLetterISORegionName)
 
           End If
 
       Next
        Return temp
    End 
Function
 
   Private Sub Button4_Click(sender As ObjectAs EventArgsHandles Button4.Click
        ListCountries
(ComboBox1)
 
   End Sub
End 
Class 
الرد }}}
تم الشكر بواسطة: ابو روضة , ابراهيم ايبو
#5
(12-09-19, 01:36 AM)asemshahen5 كتب : إذا كنت تقصد تعبئة الكومبوبوكس بالبلدان فهذا بسيط :

PHP كود :
Imports System.Collections.Generic
Imports System
.Globalization

Public Class Form1
    Dim countryList 
As SortedDictionary(Of StringString)
 
   Public Sub ListCountries(SourceCombo As System.Windows.Forms.ComboBox)
 
       If countryList Is Nothing Then
            countryList 
BuildCountryList()
 
       End If
 
       SourceCombo.DisplayMember "Key"
 
       SourceCombo.ValueMember "Value"
 
       SourceCombo.DataSource = New BindingSource(countryListNothing)
 
       ' No need to sort anything '        
    End Sub
    Public 
Function BuildCountryList() As SortedDictionary(Of StringString)
 
       Dim temp = New SortedDictionary(Of StringString)
 
       For Each ci As CultureInfo In CultureInfo.GetCultures(CultureTypes.AllCultures)
 
           Dim ri As RegionInfo
            Try
                ri 
= New RegionInfo(ci.Name)
 
           Catch
                
'If a RegionInfo object could not be created don'use the CultureInfo for the country list.'
                Continue For
            End Try
            ' 
If the country is not already in the countryList add it...'
            If Not temp.ContainsKey(ri.EnglishName) Then
                temp.Add(ri.EnglishName, ri.ThreeLetterISORegionName)
            End If
        Next
        Return temp
    End Function
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        ListCountries(ComboBox1)
    End Sub
End Class 

البلدان الذي في الكومبو بوكس الخاص في الموقع Smile
اقصد مثل الكومبو بوكس في الموقع Smile
مثل هاذا !!

عندما اقوم بكتابة الكود الذي في الصورة يظهر خطأ عند           For Each child As HtmlElement In OptioList.All
الرد }}}
تم الشكر بواسطة: ابو روضة , ابراهيم ايبو
#6
(12-09-19, 01:38 AM)SnTnt كتب :
(12-09-19, 01:36 AM)asemshahen5 كتب : إذا كنت تقصد تعبئة الكومبوبوكس بالبلدان فهذا بسيط :

PHP كود :
Imports System.Collections.Generic
Imports System
.Globalization

Public Class Form1
    Dim countryList 
As SortedDictionary(Of StringString)
 
   Public Sub ListCountries(SourceCombo As System.Windows.Forms.ComboBox)
 
       If countryList Is Nothing Then
            countryList 
BuildCountryList()
 
       End If
 
       SourceCombo.DisplayMember "Key"
 
       SourceCombo.ValueMember "Value"
 
       SourceCombo.DataSource = New BindingSource(countryListNothing)
 
       ' No need to sort anything '        
    End Sub
    Public 
Function BuildCountryList() As SortedDictionary(Of StringString)
 
       Dim temp = New SortedDictionary(Of StringString)
 
       For Each ci As CultureInfo In CultureInfo.GetCultures(CultureTypes.AllCultures)
 
           Dim ri As RegionInfo
            Try
                ri 
= New RegionInfo(ci.Name)
 
           Catch
                
'If a RegionInfo object could not be created don'use the CultureInfo for the country list.'
                Continue For
            End Try
            ' 
If the country is not already in the countryList add it...'
            If Not temp.ContainsKey(ri.EnglishName) Then
                temp.Add(ri.EnglishName, ri.ThreeLetterISORegionName)
            End If
        Next
        Return temp
    End Function
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        ListCountries(ComboBox1)
    End Sub
End Class 

البلدان الذي في الكومبو بوكس الخاص في الموقع Smile
اقصد مثل الكومبو بوكس في الموقع Smile
مثل هاذا !!

عندما اقوم بكتابة الكود الذي في الصورة يظهر خطأ عند           For Each child As HtmlElement In OptioList.All

بعد اذن الاستاذ عاصم.
انتظر أخى بصطب الفيجوال بيسك 2017 وبما انى اول مرة اصطبه مجننى من ساعتين  Blush
أنتهى منه واعملك مثال لجلب ما بداخل الكمبوبوكس تبع الموقع لبرنامجك بأمر الله.

اتفضل أخى

كود :
For Each elem As HtmlElement In WebBrowser1.Document.GetElementsByTagName("td")
           If (elem.GetAttribute("colspan") = "2") Then
               For Each element As HtmlElement In elem.GetElementsByTagName("select")
                   For Each element2 As HtmlElement In element.GetElementsByTagName("option")
                       ComboBox1.Items.Add(element2.InnerText)
                   Next
               Next
           End If
       Next


الرد }}}
تم الشكر بواسطة: asemshahen5 , SnTnt , سعود
#7
Heart 
(12-09-19, 03:15 AM)شكرا لك كتب :
الان سأقوم بأستكمال المشروع Smile
تعلمت منك كود جديد , وجعلتني لا اتوقف )


أحاول الان البحث عن كود عندما اختار من الكومبو بوكس من البرنامج
يختار تلقائية من الموقع 
تقدر تساعدني لو سمحت  Heart

شكرا ...
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابو روضة
#8
(12-09-19, 11:42 PM)SnTnt كتب :
(12-09-19, 03:15 AM)شكرا لك كتب :
الان سأقوم بأستكمال المشروع Smile
تعلمت منك كود جديد , وجعلتني لا اتوقف )


أحاول الان البحث عن كود عندما اختار من الكومبو بوكس من البرنامج
يختار تلقائية من الموقع 
تقدر تساعدني لو سمحت  Heart

شكرا ...


اتفضل أخى



كود :
 For Each elem As HtmlElement In WebBrowser1.Document.GetElementsByTagName("td")
           If (elem.GetAttribute("colspan") = "2") Then
               For Each element As HtmlElement In elem.GetElementsByTagName("select")
                   For Each element2 As HtmlElement In element.GetElementsByTagName("option")
                       element2.InnerText = ComboBox1.SelectedItem
                   Next
               Next
           End If
       Next
الرد }}}
تم الشكر بواسطة: SnTnt , سعود
#9
(13-09-19, 02:10 AM)ابو روضة كتب :
(12-09-19, 11:42 PM)SnTnt كتب :
(12-09-19, 03:15 AM)شكرا لك كتب :
الان سأقوم بأستكمال المشروع Smile
تعلمت منك كود جديد , وجعلتني لا اتوقف )


أحاول الان البحث عن كود عندما اختار من الكومبو بوكس من البرنامج
يختار تلقائية من الموقع 
تقدر تساعدني لو سمحت  Heart

شكرا ...


اتفضل أخى



كود :
 For Each elem As HtmlElement In WebBrowser1.Document.GetElementsByTagName("td")
           If (elem.GetAttribute("colspan") = "2") Then
               For Each element As HtmlElement In elem.GetElementsByTagName("select")
                   For Each element2 As HtmlElement In element.GetElementsByTagName("option")
                       element2.InnerText = ComboBox1.SelectedItem
                   Next
               Next
           End If
       Next

جار التجربة Smile

ساعة تقريبا من البحث في المواقع 

ثم انت اتيت وغيرت كل شئ 

نجح وبكل قوى 

انقذتني ولا اعلم كيف اعبر عن مشاعري 

لا اتوقع بأن هاذا يكفي فكيف اشكرك ؟
الرد }}}
تم الشكر بواسطة: ابو روضة , سعود
#10
(13-09-19, 02:10 AM)SnTnt كتب :
جار التجربة Smile

ساعة تقريبا من البحث في المواقع 

ثم انت اتيت وغيرت كل شئ 

نجح وبكل قوى 

انقذتني ولا اعلم كيف اعبر عن مشاعري 

لا اتوقع بأن هاذا يكفي فكيف اشكرك ؟



هاقول لحضرتك كيف تشكرنى.. .


أمانة عليك يا أخى بالله عليك دعوة حلوة من ومن قلبك لى بالهداية والتوفيق والمغفرة والتثبيت.
الرد }}}
تم الشكر بواسطة: asemshahen5 , سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 144 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  اختبار الفاتورة في موقع يطلع خطأ thepast 0 208 21-12-23, 12:06 PM
آخر رد: thepast
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم

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


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