المساعد الشخصي الرقمي

مشاهدة نسخة كاملة : كود قلب النص


malk
02-06-07, 01:43 PM
هذا الكود لقلب النص مثلاً (على) تصبح (ىلع)

Private Sub Command1_Click()
Mystr = Text1.Text
Mystr = StrReverse(Mystr)
Text2.Text = Mystr
End Sub

sniperser
05-06-07, 03:52 PM
ألف شكر أفادني الكود

العولقي11
07-06-07, 10:57 PM
مشكورررررررررررررررررررررررررررررر

Ab_Shamali
23-01-08, 05:27 PM
ألف شكر