کلیدهای ترکیبی Ctrl + V و Ctrl + C

[Hassan2500]

سلام
اگه میشه این کد جوری ویرایش کنید که کلیدهای ترکیبی Ctrl + C و Ctrl + V هم کار کند.


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If InStr("ابجدهوزحطیکلمنسعفصقرشتثخذ ضظغ ", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End If
End Sub

[m.4.r.m]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = ctrl + vbKeyV Then
MsgBox "Ctrl + V"
ElseIf KeyCode = ctrl + vbKeyC Then
MsgBox "Ctrl+C"
End If
End Sub

[Hassan2500]

من میخوام MsgBox ظاهر نشه اگه میشه اصلاحش کنید

[Hassan2500]

کسی نیست جواب بده

[m.4.r.m]

خوب به جای msgbox دستور خودتو بزار اونم ما برات بکنیم ؟ میخوای به جای msgbox چیکار کنه ؟

[Hassan2500]

یه دستور دیگه میزارم کد کار نمیکنه

[m.4.r.m]

شما دستورتو بگو من برات کدشو بدم

[Hassan2500]

مثلاً تکست2 بشود Ctrl + C یا Ctrl + V راستشو بخوای من برنامه نویسی کارم نیست احتیاج بهش دارم در اینجا فقط میخوام msgbox ظاهر نشه

[m.4.r.m]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = ctrl + vbKeyV Then
text1.text="Ctrl+C"
ElseIf KeyCode = ctrl + vbKeyC Then
text1.text="Ctrl+V"
End If
End Sub

[Hassan2500]

کار نمیکنه وقتی تکست میزاری هر کاری کردم نشد

[just4froum]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = ctrl + vbKeyV Then
MsgBox "Ctrl + V"
ElseIf KeyCode = ctrl + vbKeyC Then
MsgBox "Ctrl+C"
End If
End Sub


ببخشید ولی کد شما نادرست است چون ctrl هیچ مقداری ندارد و صفر در نظر گرفته شده و با فشردن v کد اجرا میشود.:اشتباه:

اینم یک کد کامل

Private Sub Form_Load()
Text1.Text = Empty
Text1.Locked = True
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = vbKeyV Then
Text1.Text = "Ctrl + V"
ElseIf Shift = 2 And KeyCode = vbKeyC Then
Text1.Text = "Ctrl + C"
End If
End Sub

[محسن واژدی]

سلام
کد زیر را بررسی کنید:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Caption = KeyCode & " - " & Shift
If Shift = vbCtrlMask And KeyCode = vbKeyV Then
Text1.Text = "Ctrl+V"
ElseIf Shift = vbCtrlMask And KeyCode = vbKeyC Then
Text1.Text = "Ctrl+C"
End If
End Sub


موفق باشید

[m.4.r.m]

If KeyCode = ctrl + vbKeyV Then
Clipboard.Clear
i = "Ctrl+V"
Text1.Text = i
ElseIf KeyCode = ctrl + vbKeyC Then
Text1.Text = "Ctrl+c"
End If


موفق باشین

[Hassan2500]

مشکلم این کده که توش Ctrl + V و Ctrl + C کار نمیکنه اینو اصلاح کنید ولی کد خودشم تغییر نکنه


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If InStr("ابجد ", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End If
End Sub

[sr2m72]

ببین این درسته؟


Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii <> 8 Then

If InStr("ÇÈÌÏ ", Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If Shift = vbCtrlMask And KeyCode = vbKeyV Then

Text1.Text = "Ctrl+V"

ElseIf Shift = vbCtrlMask And KeyCode = vbKeyC Then

Text1.Text = "Ctrl+C"

Else
Call Text1_KeyPress(KeyCode)
End If

End Sub

[Hassan2500]

ببخشید کار نمیکنه کدتون من میخوام فقط فقط MsgBox ظاهر نشه و گرنه این کد پایین کار میکنه و اگر بجای MsgBox "" چیز دیگه ای بنویسی کد از کار می افته چکار کنم

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = ctrl + vbKeyV Then
MsgBox ""
ElseIf KeyCode = ctrl + vbKeyC Then
MsgBox ""
End If
End Sub

[sr2m72]

ببخشید کار نمیکنه کدتون من میخوام فقط فقط MsgBox ظاهر نشه و گرنه این کد پایین کار میکنه و اگر بجای MsgBox "" چیز دیگه ای بنویسی کد از کار می افته چکار کنم

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = ctrl + vbKeyV Then
MsgBox ""
ElseIf KeyCode = ctrl + vbKeyC Then
MsgBox ""
End If
End Sub

این کد که اشتباهه.
اگه به جای Ctrl+C , Ctrl+V فقط C یا V رو بزنید بازم msgbox ظاهر میشه.
یعنی اینجا Ctrl هیچ تاثیری نداره.

[just4froum]

خوب شما الان مشکلت کجاست ؟

مگه نمیگی می خوای msgbox ظاهر نشه خوب کد شماره 11 و 12 که همین کارو می کنه ؟

[m.4.r.m]

بیخیال حاجی خود سوال کننده هم نمی دونه چی پرسیده دیگه از این بیشتر چی میخوای یا شما نمی گیری کد ها رو یا ما نمی فهمیم منظور تو رو