منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تقسيم الحروف و اظهارهن في مسج بزك على التوالي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تقسيم الحروف و اظهارهن في مسج بزك على التوالي (/showthread.php?tid=19447)

تقسيم الحروف و اظهارهن في مسج بزك على التوالي - Basil Abdallah - 27-02-17

السلام عليكم 
خلينا نفترض انو عندنا ايست بوكس و بوتن 
بدي لما يتم الضغط على البوتون يقوم البرنامج بتقسيم الكلمات الموجودة في اليست بوكس و يظهرهن في مسج بوكس على سبيل المثال
كلمة باسل 
عند الضغط على الزر يظهرلي حروف هذي الكلمة 
ب
ا
س
ل
على التوالي في مسج بوكس

RE: تقسيم الحروف و اظهارهن في مسج بزك على التوالي - مساعدة - 27-02-17

السلام عليكم

تفضل الكود
كود :
Dim s As String = "باسل"
Dim arr = (From c In s.ToCharArray)

Dim m As String = String.Join(vbNewLine, arr)
MsgBox(m)


RE: تقسيم الحروف و اظهارهن في مسج بزك على التوالي - Basil Abdallah - 28-02-17

شكرا لك ايضا
بدي كود عشان اتحقق ما اذا كان الحرف موجود ام لا
يعني يقسم لي الحروف مثلا
باسل
يظهر لي مسج بوكس ان حرف الباء موجود و هذي ااحالة على باقي الحروف

RE: تقسيم الحروف و اظهارهن في مسج بزك على التوالي - مساعدة - 01-03-17

تفضل الكود

كود :
Dim IsAvailable As Boolean = arr.Contains("ب")
أو
كود :
MsgBox(arr.Contains("ب"))
أو
كود :
If arr.Contains("ب") Then
   MsgBox("موجود")
Else
   MsgBox("غير موجود")
End If


RE: تقسيم الحروف و اظهارهن في مسج بزك على التوالي - Basil Abdallah - 01-03-17

شكرا لك لي عودة