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

موقع رائع وبسيط يا شباب يقدم دروس واكواد سهلة ومبسطة للغة ال VB.NET
اسم الموقع  Visual Basic .NET Tutorials
اتمنى ان يفيدكم وينال اعجابكم

وهذا موقع CodeProject الغني عن التعريف

فيه الكثير من الامثلة والمشاريع المفتوحة المصدر تستطيع التعديل عليها والتعمل منها

وفيه أيضاً اقسام للغات البرمجة الاخرى

---

وهذا موقع TutorialsPoint فيه دروس مفصلة للغة الدوت نيت 
وفيه أيضاً اقسام للغات البرمجة الاخرى

---

و موقع Dream In Code الشهير الخاص بلغات البرمجة وخاصة الدوت نيت

الاخوه الافاضل لمن تابع دورة تصميم برنامج مبيعات متكامل (للمهندس عثمان خورشيد)
ارجو شرح هذا الكود
Sub FillItemCom(sqlstr As String)
CmbItems.Items.Clear()
CmbItems.Text = ""
Dim adp As New SqlClient.SqlDataAdapter(sqlstr, SqlConn)
Dim ds As New DataSet
adp.Fill(ds)
Dim dt = ds.Tables(0)
If dt.Rows.Count > 0 Then
For I = 0 To dt.Rows.Count - 1
On Error Resume Next
CmbItems.Items.Add(New MyList2(dt.Rows(I).Item("ItemName"), dt.Rows(I).Item("ItemInternal_ID"), dt.Rows(I).Item("ItemCode")))
Next
End If

End Sub
وبالأخص ما المقصود ب (MyList2) وما بداخل هذا المديول