Enter و TextBox

[irantkd]

سلام
من یه Text و یه Button دارم که میخوم بعد از نوشتن متن با زدن کلید Enter دکمه Button فعال شده و بطور اتوماتیک تمام برنامه هایی که مربوط به این کنترل در بخش General نوشته شده است را اجرا بشه .

[scarce]

برای اینکار می تونید از کد زیر استفاده کنید.






Private Sub Command1_Click()
MsgBox "Scarce"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Command1.Enabled = True ' Button Name
Command1_Click ' Button Name & _Click
End If
End Sub





این کد یک مثال هست برای کار کردن کد یک Text Box با نام Text1 و یک Command Button با نام Command1 به فرم اظافه کنید.

[maryamb]

Private Sub Command1_Click()
MsgBox "˜Ï ãæÑÏ äÙÑ ÈÑÇí ˜áí˜ ˜ÑÏä Ϙãå"
End Sub
Private Sub Form_Load()
Command1.Enabled = False
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Command1.Enabled = True
Call Command1_Click
End If
End Sub

اول یه تکست باکس و یه دکمه بو برنامت بزار و بعد کل این کد رو تو قسمت کد ها کپی کن.

(البته اگه منظورتو درست متوجه شده باشم)