درخواست کد تبدیل رشته انگلیسی به فارسی

من یه سورس کد می خواستم که رشته انگلیسی رو به فارسی تبدیل کنه
مثلا asdf رو تبدیل به "شسیب" کنه
کسی چنین سورسی داره؟!
با تشکر

تو میتونی برای همه حروف ار دستور select case به صورت زیر استفاده کنی که در هنگام تایپ در text1 حروف رو تبدیل میکنه

کد:

---

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 97
KeyAscii = 212

End Select
End Sub

---

فقط توجه کن که کد رو توی رویداد keypress بنویسی

موفق باشی :5:

ببخشید ولی منظور من این نبود!
من می خوام یه متنی رو از یه کپی کنم توی textbox1 و پس از کلیک روی command نتیجه رو توی textbox2 ببینم
ممنون میشم اگه در این مورد منو راهنمایی کنین

دوست عزیز برای این برنامه اول باید با یه حلقه بسازی به اندازه طول رشته با تابع ()len بعدم با تابع ()mid یکی یکی کارکتور ها رو جدا کنی بعد بریزی تو یه متغیر بعد با همون دستور selectcase همونجور که دوستان فرمودند کارکتور ها رو تبدیل کنی.:46:
اگه خواستی یه نمونه برات میذارم اما زحمت selectcase باید خودت بکشی.:20:
موفق باشید.

داداش دستت درد نکنه اگه میشه سورسو برام بزار
از select case دو نمونه بزار مثلا الف و ب رو بقیه رو خودم می زارم
یا علی

اینم برنامه ای که خواستی
در آخر متغیر kalame2 کلمه نهایی تغییر داده شده ست

اون دوتا علامت مجهول نوی قسمت case ها هم همون "ش" و "ذ" هستند که اینجا نشد درستشون کنم

کد :

کد:

---

Dim harf(1 To 30) As String
Private Sub Command1_Click()
kalame1 = Text1.Text
For i = 1 To Len(kalame1)
h = Mid(kalame1, i, 1)
Select Case h
Case "a"
harf(i) = "Ô"
Case "b"
harf(i) = "Ð"
End Select
Next i

For j = 1 To Len(kalame1)
kalame2 = kalame2 + harf(j)

Next j
MsgBox kalame2

End Sub

---

امیدوارم مشکلت حل شده باشه

یا علی ...:5:

دوستان من این مشکل رو در سایت آشیانه مطرح کرده و نتیجه خیلی خوبی گرفتم البته کد کمی تصحیح شد و دوباره آپلود!
کد کامل هست اگه کسی نیاز داره می تونه از این آدرس دانلود کنه!

کد:

---

http://up.--------.com/images/wx9toe8f9c25u005qhs.rar

---

دستت درد نکنه SURIV جان

راه سرعتر و جالبتری بود

موفق باشید...

mer30000000000000000000000000000000000000

سلام
من نتونستم این کد رو از سایتی که معرفی کردین(http://up.--------.com/images/wx9toe8f9c25u005qhs.rar) پیدا کنم! اگر ممکنه برام همین جا بزارین
مرسی