+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [سلسلة تعليمية] اكواد متنوعة نافعة (/showthread.php?tid=39277)
اكواد متنوعة نافعة - alfaiz678 - 10-08-21
السلام عليكم ورحمة الله وبركاته
لدي اكواد انتفعت بها واحببت مشاركتها
في هذا المنتدى الذي استفدنا منه الكثير والكثير
وسارسلها على شكل متسلسل ومتقطع
إن شاء الله تعالى
طريقة سريعة لاستيراد البيانات الى كومبوبوكس
اسرع من الطريقة العادية بكثير جدا
جربتها على حوالي اكثر من 7000 صف
ولا تتاخر الا ربما ثانيتين
طبعا مجربه على sqlite تستطيع تغيير محول قاعدة البيانات الى ماتحب منها
كود :
ComboBox1.Items.Clear()
Dim DT As New DataTable
Dim DA As New SQLiteDataAdapter
ConOpen()
DA = New SQLiteDataAdapter("select Name from T1", conne)
DA.Fill(DT)
ConClose()
Dim items = DT.AsEnumerable().Select(Function(d) DirectCast(d(0).ToString(), Object)).ToArray()
ComboBox1.Items.AddRange(items)RE: اكواد متنوعة نافعة - alfaiz678 - 01-09-21
دالة تحويل الارقام من العربية الى الانجليزية
كود :
Public Function ToIndicDigits(ByVal input As String) As String
Return input.Replace("٠"c, "0"c) _
.Replace("١"c, "1"c) _
.Replace("٢"c, "2"c) _
.Replace("٣"c, "3"c) _
.Replace("٤"c, "4"c) _
.Replace("٥"c, "5"c) _
.Replace("٦"c, "6"c) _
.Replace("٧"c, "7"c) _
.Replace("٨"c, "8"c) _
.Replace("٩"c, "9"c)
End FunctionRE: اكواد متنوعة نافعة - alfaiz678 - 05-10-21
الكثير يسأل حول جعل التيكست بوكس لا تقبل الا ارقام فقط
والحلول كثيرة
لكن لماذا لايستخدم المبرمج
اداة NumericUpDown
فهي خاصة بالارقام
ولا تقبل الحروف