国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開APP
userphoto
未登錄

開通VIP,暢享免費(fèi)電子書等14項(xiàng)超值服

開通VIP
VB在textbox中怎么禁止右鍵菜單中的復(fù)制粘貼功能

VB在textbox中怎么禁止右鍵菜單中的復(fù)制粘貼功能

lsdiddefh8611級(jí)分類:其他被瀏覽370次2013.05.30

檢舉

不要網(wǎng)上直接復(fù)制過來的 我要針對(duì)我這個(gè)問題的答案,因?yàn)槲叶家呀?jīng)在網(wǎng)上搜索了,沒有找到我要的答案. ①限制鍵盤的ctrl+c, ctrl+v的功能, ②限制鼠標(biāo)右鍵出來的右鍵菜單中的復(fù)制粘貼功能 另外shift and 2 是什么意思可以選用清除剪切板功能 或者textbox1.locked=false給點(diǎn)解釋 我找到的功能如下Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyV And (Shift And 2) Then
        Text2.Locked = True
    End If
    If KeyCode = vbKeyC And (Shift And 2) Then
    Text2.Locked = True
    End If
End Sub這段只限制了按鍵的粘貼,以及右鍵的復(fù)制,我還要限制按鍵的復(fù)制以及右鍵菜單的粘貼謝謝解答 回答詳細(xì)的給高分
采納率:40%11級(jí)2013.05.30
(Lock屬性只是讓文本框不能接收用戶輸入,但還是可以粘貼的。)在窗體中畫一個(gè)文本框,打開代碼窗口,把代碼復(fù)制進(jìn)去:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 3 Then
MsgBox "請(qǐng)勿非法復(fù)制!"
KeyAscii = 0
ElseIf KeyAscii = 22 Then
MsgBox "請(qǐng)勿非法粘貼!"
KeyAscii = 0
End If
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
MsgBox "禁止在文本框中使用右鍵!"
End If
End Sub
本站僅提供存儲(chǔ)服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊舉報(bào)。
打開APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
實(shí)現(xiàn)在PPT演示過程中,用鼠標(biāo)拖動(dòng)圖片實(shí)例效果
VB - 移動(dòng)無框窗體的兩大絕招
MSHFlexGrid1使用技巧(二)[如何讓MSHFlexGrid實(shí)現(xiàn)點(diǎn)擊列標(biāo)題排序] ...
MSHFlexGrid1使用技巧 (排序)
拖動(dòng)無邊框窗體(VB6代碼)
如何在PPT中實(shí)現(xiàn)任意拖放圖片效果
更多類似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長(zhǎng)圖 關(guān)注 下載文章
綁定賬號(hào)成功
后續(xù)可登錄賬號(hào)暢享VIP特權(quán)!
如果VIP功能使用有故障,
可點(diǎn)擊這里聯(lián)系客服!

聯(lián)系客服