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

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

السلام عليكم

تفضل الكود

كود :

Dim s As String = "باسل"

Dim arr = (From c In s.ToCharArray)

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

MsgBox(m)

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

تفضل الكود

كود :

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

أو

كود :

MsgBox(arr.Contains("ب"))

أو

كود :

If arr.Contains("ب") Then

    MsgBox("موجود")

Else

    MsgBox("غير موجود")

End If

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

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

Basil Abdallah

مساعدة

Basil Abdallah

مساعدة

Basil Abdallah