پیغام enter برای یک تکس باکس چیه

[red11011]

میخواهم برای یک تکس باکس خارج از برنامم پیغام enetr بفرستم پیغامش چی میشه؟

[sh2007]

خارج از برنامه يعني چي يعني شما مي خواي با يه اپليكيشن ديگه با يه اپليكيشن ديگه ارتباط برقرار كني يا مثلا فرم با فرم ديگه
منظورت كدومه

[sina_saravi1]

سلام
دستور خط جدید یا اینتر


vbcrlf

[red11011]

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
میدونید که با این تابع میشه یک متن رو روی یک تکس باکس خارج از برنامه خودم فرستاد میخواهم بعد از ارسال متن به اون تکس باکس پیغام اینتر هم براش ارسال کنم

[red11011]

کسی بلد نیست؟

[xxxxx_xxxxx]

با اون تابعي كه فرموديد هر كاري ميشه كرد.
حالا همونطور كه رشته رو بهش ارسال مي كنيد. Enter رو هم آخر رشته اضافه كنيد.


"your string" & vbCrLf

بالاتر گفته شده بود.

[red11011]

دوست عزیزاین دستور جواب نمیده من پیغام اینتر خود تابع رو میخواهم
این چیزی که شما گفتین برای محیط vb تعریف شده نه برای os

[xxxxx_xxxxx]

يك بار ديگه سؤال خودتون رو بخونيد:

میخواهم برای یک تکس باکس خارج از برنامم پیغام enetr بفرستم پیغامش چی میشه؟
به اين معني هست كه شما مي خواين Enter رو به TextBox بفرستيد و نتيجه آن ايجاد خط جديد در Textbox هست.
حالا ممكنه با زدن Enter روي اون تكست باكس عمل ديگه اي انجام بشه. شما بايد ببينيد اون چه عملي هست، براي همون پيغام ارسال كنيد. مثلاً با زدن Enter روي تكست باكس عمل Sign in انجام مي شود. پس شما بايد به دكمه Sign in پيام ارسال كنيد. (BM_CLICK)

[red11011]

نه ببینید من می خواهم به یک تکس باکس یک مقدار رشته ای ارسال و سپس پیغام اینتر براش بفرستم هیچ باتونی هم تو برنامه برای این کار نیست
شما اینجوری فرض کن یک برنامه vb که exe شده داری ميخواهي تو یکی از تکس باکسهای اون یک مقداری رو بریزی که تا اینجاش رو بلدم سپس کلید اینتر رو توی اون تکس باکس بفرستی که مقدار تکست برنامه خودتون تو تکست اون برنامه exe ریخته بشه و خودش کلید اینتر رو هم بزنه

[xxxxx_xxxxx]

بسيار خب:


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_CHAR = &H102



SendMessage hwnd, WM_CHAR, 13, 0

فكر نمي كنم نيازي به توضيح باشه جز اين كه بجاي hwnd، هندل TextBox موردنظر رو ارسال كنيد.

موفق باشيد/

[red11011]

RET = SendMessage(hWnd, WM_KEYDOWN, VK_RETURN, 0&)
من این رو پیدا کردم همونی بود که میخواستم چون میتونه مورد استفاده بقیه هم قرار بگیره گذاشتم تا بقیه هم استفاده کنن

[gigcity]

با سلام
دوست عزیز من می دونم که کد 13 مال اینتر هست شما می تونید از کی آسکی استفاده کنید و با یه دستور اونو فراخونی کنید.

کد رو فعلاً ندارم اما اگه تشکر کنید خیلی ممنونتون می شم.

[MBG73]

با سلام
دوست عزیز من می دونم که کد 13 مال اینتر هست شما می تونید از کی آسکی استفاده کنید و با یه دستور اونو فراخونی کنید.

کد رو فعلاً ندارم اما اگه تشکر کنید خیلی ممنونتون می شم.

دوست عزیز با اطلاعاتی که من دارم فکر کنم این هیچ ربطی به موضوع نداشت .

فکر کنم کدی که میگین اینه ( مطمئن نیستم ) که مثلا برای چند تا دکمه هست .


Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8:
'---------
Case 13:
'---------
End Select
End Sub


ولی پیگیریتون ارزش تشکر رو داشت :چشمک: :تشویق: