استفاده از کلید اینتر به جای دکمهcommand

[masaioki.ono]

من داخل تکست باکس که مالتی لاین هست میخوام اگر کاربر یک کدی نوشت مثلا form2.show و دکمه اینتر رو زد خط بعدیش بنویسه نمایش فرم دوم و فرم دو باز بشه .
یعنی کلید اینتر در اصل اینجا کار کمند رو انجام بده . کسی از دوستان راهی برای این مساله داره یا کدش رو که بزاره:تشویق::متفکر:

[isaac23]

سلام دوست عزیز دقیق منظورت را نگرفتم ولی کاش میگفتی واسه چی می خواستی ولی شاید این کد کارت رو راه بندازه .

If KeyAscii = 13 Then
Text1.Text = Trim(Text1) + vbCrLf + "äãÇíÔ ÝÑã Ïæã:": Form2.Show
End If


داخل خاصیت . Text keypressبنویس

[vbhamed]

سلام
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Dim s$(), u&
s = Split(Text1, vbCrLf)
Select Case KeyCode
Case vbKeyReturn
If UBound(s) >= 0 Then
u = UBound(s)
Select Case LCase$(s(u))
Case "form2.show"
Text1 = Text1 & vbCrLf & "نمايش فرم 2"
Text1.SelStart = Len(Text1)
Form2.Show
End Select
End If
End Select

End Sub

[masaioki.ono]

تشکر یه چیزی شبیه cmd ویندوز میخواستم بنویسم .برای اون میخواستم