المشاركات : 67
المواضيع 10
الإنتساب : Sep 2018
السمعة :
7
الشكر: 52
تم شكره 138 مرات في 63 مشاركات
12-09-19, 12:40 AM
(آخر تعديل لهذه المشاركة : 12-09-19, 12:41 AM {2} بواسطة SnTnt.)
السلام عليكم ورحمة الله وبركاته
اريد كود يقوم بتحميل الخيارات او الكومبو بوكس
ويحطها في الكومبو بوكس حق البرنامج
اتمنا فهمتوني
انتظر الرد ...
المشاركات : 2,329
المواضيع 81
الإنتساب : May 2018
السمعة :
522
الشكر: 14039
تم شكره 5671 مرات في 2269 مشاركات
12-09-19, 12:58 AM
(آخر تعديل لهذه المشاركة : 12-09-19, 01:09 AM {2} بواسطة asemshahen5.)
(12-09-19, 12:40 AM)SnTnt كتب : السلام عليكم ورحمة الله وبركاته
اريد كود يقوم بتحميل الخيارات او الكومبو بوكس
ويحطها في الكومبو بوكس حق البرنامج
اتمنا فهمتوني
انتظر الرد ...
بصراحة لم أفهمك خيارات ماذا .
هل تقصد تعبئة الكومبو بوكس من قاعدة بينات .
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(StrSQL, cn) 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"})
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
المشاركات : 67
المواضيع 10
الإنتساب : Sep 2018
السمعة :
7
الشكر: 52
تم شكره 138 مرات في 63 مشاركات
12-09-19, 01:16 AM
(آخر تعديل لهذه المشاركة : 12-09-19, 01:19 AM {2} بواسطة SnTnt.)
السلام عليكم ورحمة الله وبركاته
سأحاول توضيح لك المراد
هاذا الرابط الذي اريد استخراج الكومبو بوكس منه :
http://www.afreesms.com/freesms
لاحظ خانت [b]Country[/b]
[b]حاولت مشاهدة بعض المقاطع لاكن لا فائدة[/b]
انظر لهاذا الكود
كود :
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
عندما اقوم بضغط زر الاستخراج يظهر هاذا الخطأ
اعتقد ان هاذا الكود بلغة السي شارب
وهنا يظهر الخطأ
For Each child As HtmlElement In OptioList.All
كيف يمكنني ادخالها في الكومبو بوكس الخاص في البرنامج ؟
انتظر الرد :
المشاركات : 2,329
المواضيع 81
الإنتساب : May 2018
السمعة :
522
الشكر: 14039
تم شكره 5671 مرات في 2269 مشاركات
12-09-19, 01:36 AM
(آخر تعديل لهذه المشاركة : 12-09-19, 01:37 AM {2} بواسطة asemshahen5.)
إذا كنت تقصد تعبئة الكومبوبوكس بالبلدان فهذا بسيط :
PHP كود :
Imports System.Collections.Generic Imports System.Globalization
Public Class Form1 Dim countryList As SortedDictionary(Of String, String) 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(countryList, Nothing) ' No need to sort anything ' End Sub Public Function BuildCountryList() As SortedDictionary(Of String, String) Dim temp = New SortedDictionary(Of String, String) 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.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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
المشاركات : 67
المواضيع 10
الإنتساب : Sep 2018
السمعة :
7
الشكر: 52
تم شكره 138 مرات في 63 مشاركات
12-09-19, 01:38 AM
(آخر تعديل لهذه المشاركة : 12-09-19, 01:46 AM {2} بواسطة SnTnt.)
(12-09-19, 01:36 AM)asemshahen5 كتب : إذا كنت تقصد تعبئة الكومبوبوكس بالبلدان فهذا بسيط :
PHP كود :
Imports System.Collections.Generic Imports System.Globalization
Public Class Form1 Dim countryList As SortedDictionary(Of String, String) 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(countryList, Nothing) ' No need to sort anything ' End Sub Public Function BuildCountryList() As SortedDictionary(Of String, String) Dim temp = New SortedDictionary(Of String, String) 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.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
البلدان الذي في الكومبو بوكس الخاص في الموقع
اقصد مثل الكومبو بوكس في الموقع
مثل هاذا !!
عندما اقوم بكتابة الكود الذي في الصورة يظهر خطأ عند For Each child As HtmlElement In OptioList.All
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
12-09-19, 03:15 AM
(آخر تعديل لهذه المشاركة : 12-09-19, 03:57 AM {2} بواسطة ابو روضة.)
(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 String, String) 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(countryList, Nothing) ' No need to sort anything ' End Sub Public Function BuildCountryList() As SortedDictionary(Of String, String) Dim temp = New SortedDictionary(Of String, String) 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.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
البلدان الذي في الكومبو بوكس الخاص في الموقع
اقصد مثل الكومبو بوكس في الموقع
مثل هاذا !!
عندما اقوم بكتابة الكود الذي في الصورة يظهر خطأ عند For Each child As HtmlElement In OptioList.All
بعد اذن الاستاذ عاصم.
انتظر أخى بصطب الفيجوال بيسك 2017 وبما انى اول مرة اصطبه مجننى من ساعتين
أنتهى منه واعملك مثال لجلب ما بداخل الكمبوبوكس تبع الموقع لبرنامجك بأمر الله.
اتفضل أخى
كود :
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
المشاركات : 67
المواضيع 10
الإنتساب : Sep 2018
السمعة :
7
الشكر: 52
تم شكره 138 مرات في 63 مشاركات
12-09-19, 11:42 PM
(آخر تعديل لهذه المشاركة : 13-09-19, 01:09 AM {2} بواسطة SnTnt.)
(12-09-19, 03:15 AM)شكرا لك كتب : الان سأقوم بأستكمال المشروع
تعلمت منك كود جديد , وجعلتني لا اتوقف )
أحاول الان البحث عن كود عندما اختار من الكومبو بوكس من البرنامج
يختار تلقائية من الموقع
تقدر تساعدني لو سمحت
شكرا ...
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
(12-09-19, 11:42 PM)SnTnt كتب : (12-09-19, 03:15 AM)شكرا لك كتب : الان سأقوم بأستكمال المشروع
تعلمت منك كود جديد , وجعلتني لا اتوقف )
أحاول الان البحث عن كود عندما اختار من الكومبو بوكس من البرنامج
يختار تلقائية من الموقع
تقدر تساعدني لو سمحت
شكرا ...
اتفضل أخى
كود :
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
المشاركات : 67
المواضيع 10
الإنتساب : Sep 2018
السمعة :
7
الشكر: 52
تم شكره 138 مرات في 63 مشاركات
13-09-19, 02:10 AM
(آخر تعديل لهذه المشاركة : 13-09-19, 02:15 AM {2} بواسطة SnTnt.)
(13-09-19, 02:10 AM)ابو روضة كتب : (12-09-19, 11:42 PM)SnTnt كتب : (12-09-19, 03:15 AM)شكرا لك كتب : الان سأقوم بأستكمال المشروع
تعلمت منك كود جديد , وجعلتني لا اتوقف )
أحاول الان البحث عن كود عندما اختار من الكومبو بوكس من البرنامج
يختار تلقائية من الموقع
تقدر تساعدني لو سمحت
شكرا ...
اتفضل أخى
كود :
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
جار التجربة
ساعة تقريبا من البحث في المواقع
ثم انت اتيت وغيرت كل شئ
نجح وبكل قوى
انقذتني ولا اعلم كيف اعبر عن مشاعري
لا اتوقع بأن هاذا يكفي فكيف اشكرك ؟
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
(13-09-19, 02:10 AM)SnTnt كتب : جار التجربة
ساعة تقريبا من البحث في المواقع
ثم انت اتيت وغيرت كل شئ
نجح وبكل قوى
انقذتني ولا اعلم كيف اعبر عن مشاعري
لا اتوقع بأن هاذا يكفي فكيف اشكرك ؟
هاقول لحضرتك كيف تشكرنى.. .
أمانة عليك يا أخى بالله عليك دعوة حلوة من ومن قلبك لى بالهداية والتوفيق والمغفرة والتثبيت.
|