اینتر در تکس باکس (فوری)

[roo.row]

با سلام خدمت دوستان و برنامه نویسان گرامی
می خواستم بدونم که اگه ما یه تکست باکس مولتی لاین داشته باشیم
چطور می تونیم با کد نویسی توش یه اینتر ثبت کنیم ؟
خود کاربر در زمان اجرا می تونه این کارو کنه اما من هرچقدر با کد وررفتم نشد
لطفا راهنمایی کنید
با تشکر

[E H S A N4525]

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

[roo.row]

مچکرم متوجه شدم
فقط نمی خوام یه برنامه برای پیدا کردن کد های هر کلید بنویسم راه دیگه ای نیست؟
باتشکر

[E H S A N4525]

منظورتون رو متوجه نشدم
با این کار نیازی به گرفتن کد نیست

[roo.row]

مثلا کد کلید اینتر 13 هست
فرم دستوری که باید بنویسم چیه ؟

[E H S A N4525]

sendkey"~"

[roo.row]

با سلام
من کدی رو که شما دادین امتحان کردم ولی خطا میده
sub and function not defiend
بعدم کدی رو که از شما گرفتم هایلایت میکنه

130612

اینم عکسش

[setroyd]

بستگی داره برای چی بخای اگه هدفت رفتن به خط جدید باشه با vbnewline هم میتونی بری همیشه مشکل اینه برای این به جواب نمیرسین چون سوالات رو گنگ میگین !

شما s رو جا انداختی sendkeys نه sendkey

[ایلیا آخوندزاده]

باسلام
بخاطر متغیر ها کلی گذاشتم امیدوارم منظورتون این باشه :
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Call Labe1_Click
End If
End Sub

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

[roo.row]

با سلام
سوال کلی :
در فرم1 یک تکست باکس مولتی لاین داریم . چگونه می توان بدون اینکه کاربر کلیدی بزند
در آن یک خط به سمت پایین حرکت کرد ( همانند عملکرد کلید اینتر ):ناراحت:

[www.pc3enter.tk]

بفرما ببین ای کارتو حل می کنه / البته اگر منظورتو درست فهمیده باشم


یک نودپد (همان دفترچه یاداشت) در داخل ویندوز درست و اینو داخلش کپی کن

VERSION 5.00
Begin VB.Form Form1
Begin VB.TextBox Text2
Height = 5490
Left = 7485
MultiLine = -1 'True
TabIndex = 1
Top = 435
Width = 4095
End
Begin VB.TextBox Text1
Height = 5490
Left = 1620
MultiLine = -1 'True
TabIndex = 0
Top = 405
Width = 4095
End
End
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cls
Print Text1.Text
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
Text2.Text = vbCrLf & Text2.Text
End If
End Sub


و بعد از اون با پسوند .FRM ذخیره کن و بعد برنامه را باز کن

تمام

و خدا تشکر را افرید

[vbhamed]

با سلام
سوال کلی :
در فرم1 یک تکست باکس مولتی لاین داریم . چگونه می توان بدون اینکه کاربر کلیدی بزند
در آن یک خط به سمت پایین حرکت کرد ( همانند عملکرد کلید اینتر ):ناراحت:

سلام
Text1 = Text1 & vbCrLf
Text1.SelStart = Len(Text1)
Text1.SetFocus

[roo.row]

fبا سلام وبا تشکر از شما آخرین روشی که فرمودید درست عمل نمود
واقعا ازتون ممنونم:تشویق:
فقط در زمان اجرا به خط text1.setfocus ایراد می گیره ولی با حذف اون هم درست کار می کنه
ببخشید این خط چه کاری رو انجام می ده ؟:لبخندساده:
بازم با تشکر

[vbhamed]

سلام
احتمالا در اون زمان فرمتون هنوز نمایش داده نشده بوده
کار این دستور هم اینه که کنترل برنامه رو می‌بره روی تکست باکس