[Basil Abdallah]

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

[مساعدة]

السلام عليكم

تفضل الكود

كود :

Dim s As String = "باسل"
Dim arr = (From c In s.ToCharArray)

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

[Basil Abdallah]

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

[مساعدة]

تفضل الكود

كود :

Dim IsAvailable As Boolean = arr.Contains("ب")

---

أو

كود :

MsgBox(arr.Contains("ب"))

---

أو

كود :

If arr.Contains("ب") Then
   MsgBox("موجود")
Else
   MsgBox("غير موجود")
End If

[Basil Abdallah]

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