مشکل در تبدیل در textbox

[mahdimk]

سلام می خواستم بدونم چجوری وقتی یه متن رو مثلا p رو تایپ می کنم بعدش توی لیبل بشه z وقتی q می نویسم بشه f وقتی pq تایپ کنم بشه zfو ......
مشکل من اینجاست که وقتی p به z تبدیل میشه و q تایپ می کنم لیبل پاک می شه و به f تبدیل میشه

[unit001]

سلام.

دوست عزیز شما باید وقتی که دستور می دی که کپشن یه لیبل تغییر کنه باید کپشن قبلی رو هم با اون حساب کنی مثل کد زیر:


Label1.caption = Label1.caption & "HarChizi"

[mahdimk]

از پاسختون ممنونم ولی این چیزی نیست که من می خوام
یه مثال می زنم
p=1
o=2
i=3
حالا طرف توی txtbox تایپ می کنه oip حالا لیبل باید به 231 تبدیل شه.

[unit001]

سلام.

خب اینم یه نمونه اگه سوالی بود مطرح کنید.

[Mr'Jamshidy]

شما میتونید از این کد استفاده کنید
امیدوارم مفید واقع بشه



Private Sub TextBox1_Change()
Dim i As Integer, tmp(1) As String
For i = 1 To Len(TextBox1.Text)
tmp(0) = Mid(TextBox1.Text,i,1)
Select Case tmp(0)
Case "p"
tmp(0) = "1"
Case "q"
tmp(0) = "z"
End Select
tmp(1) = tmp(1) & tmp(0)
Next
Label1.Caption = tmp(1)
End Sub

اگر مشکلی در کد های فوق وجود داشت اصلاح کن من الان ویبی برای تست ندارم

-------
یا حق

[vbhamed]

سلام


Dim S$

s = text1
S = Replace(S, "p", 1)
S = Replace(S, "o", 2)
S = Replace(S, "i", 3)
label1 = s

[lordarma]

این هم یک نمونه دیگر...