موضوع حول ال text box لو سمحتم

السلام عليكم اخي المهندس انس ،، هذه نسخة من برنامج صممته لشرح التعامل مع النصوص في VB ، ارجوا ان تجد غايتك فيه ،،

بنت اليمن ،،

التعامل مع النصوص.zip

الدالة StrReverse هي الدالة الخاصة بعكس نص معين ،،،

جهد طيب اختي بنت اليمن ...

تحياتي لكما

بارك الله فيكي اختي الكريمة

شكرا على المساعده ..

ولكن ممكن سؤال اضافي لو سمحتي :

لنفرض انا عندي combo box وفيه اسماء معينة كيف استطيع عندما اختار احد هذه الأسماء واضغط على الزر يفعل شيء معين (( يغلق الفورم مثلا )) او اي عمل اي عندما حدد شيء معين من ال combo يقوم بعمل معين ..

وال list ايضا لو سمحتي ..

وبارك الله فيكي .. ما قصرتي ابدا

شكرا لك

والسلام عليكم

شكراً اخي النبهاني :)

العفو اخي المهندس انس و اليك هذا المثال السريع الذي ارجوا ان يحوي فكرة ما تبحث عنه (حيث اني اعتمدت على الحدث Combo1_Click و منثما تنفيذ شيء ما بحسب ما اختار المستخدم من القائمة) ،،

بنت اليمن ،،

test.zip

ألف شكر أختي بنت اليمن بالفعل ماشاء الله عليكي الله ينور عقلك زيادة ويجعلك ذخر للجميع

جزاك الله خيرا أخت بنت اليمن

أبدعتي كالعاده

حياكم الله اخوي الشامل سوفت و seaprince46 ... و بارك الله فيكما ، و اشكركما على الكلمات الطيبة :)

بنت اليمن ،،

إليك هدا الكود

Private Function ReverseTXT(ByVal TXT As String) As String
Dim Count1 As Long, STR1 As String
Do While Len(TXT) <> 0
DoEvents
STR1 = Left(TXT, 1) & STR1
TXT = Right(TXT, Len(TXT) - 1)
Loop
ReverseTXT = STR1
End Function
Private Sub command1_click()
Command1.Caption = ReverseTXT(Command1.Caption)
End Sub

يسلمو اختي بنت اليمن

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

جهودي87 كتب:

يسلمو اختي بنت اليمن

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

←

اخي الفاضل جرب هذا . انا غير متاكد

اقتباس

[ 7902172 ] [ 8067 ]

gaf58 كتب:

اخي الفاضل جرب هذا . انا غير متاكد

←

هذا الكود لجميع نسخ visual studio 6

11111111111