حذف Beep

[y.saied]

**********************************************
سلام دوستان عزیز
من دو تا TextBox دارم که خاصیت Maxlengh ، تکست باکس اولی رو به چهار ست کرده و در رویداد KeyPress آن این کد رو نوشتم if KeyAscii=13 then Text2.Setfocus که با زدن کلید Enter صدای Beep شنیده میشود و فوکاس به تکست باکس دومی میرود .
حالا من میخوام بدونم راهی هست که صدا رو حذف کرد یا نه ؟؟!!

**********************************************

[mpmsoft]

If Keyascii=VBkeyReturn Then
'Code Here
Keyascii=0
End If

[y.saied]

دوستان عزیز ، مثل اینکه به متن سوال من خوب توجه نکردین :

خاصیت Maxlengh ، تکست باکس اولی رو به چهار ست کردم که فقط 4 کاراکتر قبول میکنه و من بعد از نوشتن چهار کاراکتر و زدن کلید Enter صدای Beep شنیده میشود و فوکاس به تکست باکس دومی میرود .

TextBox خالی نیست

[vbhamed]

سلام
اين كدها رو بنويس مشكل حل مي شه


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then
Text1.MaxLength = 10
KeyCode = 0
DoEvents
Text2.SetFocus
Text1.MaxLength = 4
End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then KeyAscii = 0

End Sub

[y.saied]

سلام
اين كدها رو بنويس مشكل حل مي شه


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then
Text1.MaxLength = 10
KeyCode = 0
DoEvents
Text2.SetFocus
Text1.MaxLength = 4
End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then KeyAscii = 0

End Sub



اگه ممکنه درباره کدهایی که استفاده شده توضیح بدین ..... ممنون

[vbhamed]

سلام
چيز خاصي نيست
چون شما MaxLength رو 4 گذاشتيد و TextBox پر هست با زدن كليد Enter سيستم مي خواد كاراكتر vbCrLf رو درج كنه و TextBox اين اجازه رو نمي ده و واسه همين صداي Beep شنيده ميشه

در برنامه بالا اومديم تو روال هنگام زدن Enter MaxLength زياد ميشه تا سيستم Beep نده و بعدش به حال قبل بر ميگرده و تو روال KeyPress هم KeyAscii صفر شده تا كاراكتر vbCrLf هم بيخودي درج نشه !