SendKeys و Ctrl+Shift

[jk]

عبارت ctrl+shift را با استفاده از دستور sendkeys به کار میبرم ولی در همه حال ctrl+shift سمت چپ عمل می کند. می خواستم بدونم به چه شکل می تونم ctrl+shift سمت راست را مورد استفاده قرار دهم؟

[mmssoft]

اگر Ctrl و Shift سمت چپ را بزنیم به شکل چپ چین عمل می کنه و اگر Ctrl و Shift سمت راست را بزنیم به شکل راست چین عمل می کند.

[jk]

حالا با sendkeys چه پارامتری رو باید بفرستم تا ctrl+shift سمت راستی عمل بکند؟

[vbhamed]

سلام

اگر منظورت فارسي و انگليسي كردن صفحه كليد براي تايپ هست اين راه اصولي نيست، از برنامه زير استفاده كن
اما اگر فقط مي خواي متن موجود رو رو به راست به چپ يا چپ به راست كني مي توني خاصيت RightToLeft و Alignment رو تنظيم كني

[jk]

بنده از کامپونت Microsoft Rich TextBox control استفاده می کنم این کامپوننت خاصیت RightToLeft ندارد و عباراتی به مانند سلام :1: که در برنامه فوق درست نشان داده می شود در این کامپوننت به شکل :سلام :1 نشان داده میشود برای اصلاح این مورد کلیدهای ctrl+shift سمت راستی را انتخاب می کنم و عبارت درست نشان داده می شود. حال بنده می خوام ctrl+shift سمت راستی را با استفاده از دستور sendkeys ارسال بکنم.


البته نمی دونم راه حل دیگری برای درست نشان دادن متن فوق در این کامپوننت وجود دارد یا نه

[sohrab o]

RichTextBox1.SelAlignment = 1
این کدو بنویس همون کار Right2Left میکنه!

[sohrab o]

https://barnamenevis.org/showth...=37168&page=13
اینجا هم یک برنامه گذاشتم واسه کار با RichEdit ، دانلود کنی ضرر نداره

[jk]

RichTextBox1.SelAlignment = 1
این کدو بنویس همون کار Right2Left میکنه!

برای اینکه متن رو درست نشون بده علاوه بر مورد فوق باید یک ctrl+shift سمت راست رو هم فشار بدهی

حال سوالم اینکه چطوری باید این ctrl+shift سمت راست رو از طریق برنامه اعمال کرد. روش نرمالش همان استفاده از دستور sendkey است و موقعی این دستور رو اجرا می کنی ctrl+shift سمت چپ اجرا می شه! سمت راستش رو موندم؟

[sohrab o]

مگه متنو چطوری نشون میشه؟میشه نمونه بزاری واست درستش کنیم

[jk]

شما دو آبجکت TextBox معمولی و RichTextbox را در نظر بگیرید. در textbox عبارت سلام :1: را می نویسید و بعد این عبارت را از طریق برنامه به richtext انتقال میدهید. در richtext عبارت به شکل :سلام :1 ظاهر می گردد. این حالت زمانی اصلاح می گردد که Ctrl+Shift سمت راست را فشار بدهید. و به غیر این حالت بنده روشی دیگری برای اصلاح پیدا نکردم.

بنده می خواهم از طریق خود برنامه ctrl+shift سمت راست رو ارسال بکنم به جای فشار دستی Ctrl+shift


مثال عینی:

[jk]

ارسال Ctrl+Shift سمت راست از طریق کدنویسی

Option Explicit



Private Const VK_RSHIFT = &HA1

Private Const VK_RCONTROL = &HA3

Private Const KEYEVENTF_KEYUP = &H2



Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long



Private Sub Command2_Click()



    'Object.SetFocus



    Dim intScanRCtrl As Integer

    Dim intScanRShift As Integer



    intScanRCtrl = MapVirtualKey(VK_RCONTROL, 0)

    intScanRShift = MapVirtualKey(VK_RSHIFT, 0)

    

    keybd_event VK_RCONTROL, intScanRCtrl, 0, 0 ' Right CTRL down

    keybd_event VK_RSHIFT, intScanRShift, 0, 0  ' Right Shift down



    keybd_event VK_RCONTROL, intScanRCtrl, KEYEVENTF_KEYUP, 0

    keybd_event VK_RSHIFT, intScanRShift, KEYEVENTF_KEYUP, 0

End Sub

[Alirezanet]

ارسال Ctrl+Shift سمت راست از طریق کدنویسی

Option Explicit



Private Const VK_RSHIFT = &HA1

Private Const VK_RCONTROL = &HA3

Private Const KEYEVENTF_KEYUP = &H2



Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long



Private Sub Command2_Click()



    'Object.SetFocus



    Dim intScanRCtrl As Integer

    Dim intScanRShift As Integer



    intScanRCtrl = MapVirtualKey(VK_RCONTROL, 0)

    intScanRShift = MapVirtualKey(VK_RSHIFT, 0)

    

    keybd_event VK_RCONTROL, intScanRCtrl, 0, 0 ' Right CTRL down

    keybd_event VK_RSHIFT, intScanRShift, 0, 0  ' Right Shift down



    keybd_event VK_RCONTROL, intScanRCtrl, KEYEVENTF_KEYUP, 0

    keybd_event VK_RSHIFT, intScanRShift, KEYEVENTF_KEYUP, 0

End Sub

متاسفانه این API تو ویندوز 7 کار نمیکنه !
توی VB6 یادمه میتونستیم با SendKeys عباراتی مثل {RSHIFT} رو هم ارسال کنیم ولی متاسفانه .Net این رو Support نمیکنه !!
باز اگه کسی راهه دیگه ای برای اینکار به غیر از استفاده از API ها سراغ داشت بگه ممنون میشم !
(البته منظورم دات نت کارهای عزیزه)

[setroyd]

Option Explicit
Private Const VK_RSHIFT = &HA1 ' Right Shift
Private Const VK_RCONTROL = &HA3 ' Right Control
Private Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long

Private Sub r_GotFocus()

Dim intScanRCtrl As Integer
Dim intScanRShift As Integer
intScanRCtrl = MapVirtualKey(VK_RCONTROL, 0)
intScanRShift = MapVirtualKey(VK_RSHIFT, 0)

keybd_event VK_RCONTROL, intScanRCtrl, 0, 0 ' Right CTRL down
keybd_event VK_RSHIFT, intScanRShift, 0, 0 ' Right Shift down
keybd_event VK_RCONTROL, intScanRCtrl, KEYEVENTF_KEYUP, 0
keybd_event VK_RSHIFT, intScanRShift, KEYEVENTF_KEYUP, 0

End Sub

[Alirezanet]

دوستان عزیز 1 راه عالیییییییییییییییییییییی ییییییییییییی به صورت کاملا تصادفی پیدا کردم ! بعد از 6 ماه سرچ !!!!!
این Right to Left
SendKey(^+)
این هم Left To Right
SendKey(+^)

[ramzdar]

اما انگار این روش جدیدتون به درد RichTextBox نمیخوره.
فقط روی TextBox جواب میده.
من که هر کار کردم جواب نداد.

[Alirezanet]

روی هر چیزی که با زدن کلید های Shift+Ctrl . راست به چپ بشه این جواب میده چون همین کلید هارو فشار میده!

[setroyd]

شما سعی کن خودت یه user control بسازی اینجوری فکنم بهتر باشه .