+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : موقع رائع وبسيط يقدم دروس واكواد سهلة ومبسطة للغة ال VB.NET (/showthread.php?tid=15588)
موقع رائع وبسيط يقدم دروس واكواد سهلة ومبسطة للغة ال VB.NET - honest - 26-04-16
موقع رائع وبسيط يا شباب يقدم دروس واكواد سهلة ومبسطة للغة ال VB.NET
اسم الموقع Visual Basic .NET Tutorials
اتمنى ان يفيدكم وينال اعجابكم
RE: موقع رائع وبسيط يقدم دروس واكواد سهلة ومبسطة للغة ال VB.NET - honest - 27-04-16
وهذا موقع CodeProject الغني عن التعريف
فيه الكثير من الامثلة والمشاريع المفتوحة المصدر تستطيع التعديل عليها والتعمل منها
وفيه أيضاً اقسام للغات البرمجة الاخرى
وهذا موقع TutorialsPoint فيه دروس مفصلة للغة الدوت نيت
وفيه أيضاً اقسام للغات البرمجة الاخرى
و موقع Dream In Code الشهير الخاص بلغات البرمجة وخاصة الدوت نيت
RE: موقع رائع وبسيط يقدم دروس واكواد سهلة ومبسطة للغة ال VB.NET - Kimo2018 - 27-09-19
الاخوه الافاضل لمن تابع دورة تصميم برنامج مبيعات متكامل (للمهندس عثمان خورشيد)
ارجو شرح هذا الكود
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) وما بداخل هذا المديول