کمک در کامل کردن یه تکه کد
سلام دوستان
من یه برنامه ساده دارم مینوسم که از تکست باکس یا یه فایل یه متن رو میخونه و اون متن رو کد میکنه و توی یه فایل یا تکست باکس 2 ذخیره میکنه این قطعه کد رو ببینین
Private Sub Command1_Click()
text = Text1.text
textLen = Len(text)
For i = 1 To textLen
Char = Left(text, i)
codeasc = Asc(Char)
codeasc = codeasc + 2
code = Chr(codeasc)
Text2.text = code
Next i
End Sub
مشکل اینجاس که فقط کلمه آخر جمله رو کد میکنه !!!!
آیا باید واسه کد کردن ماژول درست کنم و اون رو فراخونی کنم ؟؟؟
لطفا کمکم کنید تا این برنامه رو کامل کنم
ممنون
جواب بصورت نقل قول
