زدن دکمه و چاپ کلمه مورد نظر در تکست

[irprogramming]

دوستان من سرچ کردم در این رابطه موضوعی پیدا نکردم .
می خوام بدونم که من چطوری می تونم این کار رو بکنم که وقتی کاربر روی کیبور دکمه A رو زد توی تکست باکس نوشته بشه Hello اگر کمک کنید ممنون میشم.

[Tasiyan]

Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 65 Then Text1 = "Hello"
End Subمشكلش اينه كه حرف A پاك نميشه :متفکر:
--------------------------------------
اگه صورت مساله پاك نميشه
Focus رو بزار روي يه چيز ديگه بعد كد تو فرم بزار ديگه مشكلي پيش نمياد

[xxxxx_xxxxx]

مشكلش اينه كه حرف A پاك نميشه

حالا ميشه:


If KeyAscii = 65 Then Text1 = "Hello": KeyAscii = 0

[Tasiyan]

اون : چي كار ميكنه ؟ :متفکر:
با تشكر

[مهران رسا]

حالا ميشه:


If KeyAscii = 65 Then Text1 = "Hello": KeyAscii = 0


اینطوری یه دونه Hello بیشتر نمایش داده نمیشه که ... :بامزه:



If KeyAscii = 65 Then If KeyAscii = 65 Then Text1 = Text1.Text & "Hello": KeyAscii = 0

[Tasiyan]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 65 Then Text1 = Text1.Text & "Hello": KeyAscii = 0
End Sub :بامزه:

[xxxxx_xxxxx]

اون : چي كار ميكنه ؟ :متفکر:
با تشكر
دستوراتي كه تو رويداد KeyPress نوشته ميشن اول اجرا ميشن بعد كد دكمه زده شده ارسال ميشه. از طرفي كد دكمه زده شده در پارامتر KeyAscii قرار داره. حالا اگر ما KeyAscii رو صفر كنيم كد 0 به شي ارسال ميشه كه برابر با null هست. يعني هيچي اضافه نميشه.

[مهران رسا]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 65 Then Text1 = Text1.Text & "Hello": KeyAscii = 0
End Sub :بامزه:

جهت محکم کاری بود . :بامزه: :گیج: