vb取消文字框的貼上功能

以下**在窗體

程式**：

option explicit

』石陸軟體屋

private sub form_load()

g_holdproc = setwindowlong(text1.hwnd, gwl_wndproc, addressof wndproc)

end sub

private sub form_unload(cancel as integer)

setwindowlong text1.hwnd, gwl_wndproc, g_holdproc

end sub

以下**在模組

程式**：

option explicit

』石陸軟體屋

public declare function callwindowproc lib "user32.dll" alias "callwindowproca" (byval lpprevwndfunc as long, byval hwnd as long, byval msg as long, byval wparam as long, byval lparam as long) as long

public declare function setwindowlong lib "user32.dll" alias "setwindowlonga" (byval hwnd as long, byval nindex as long, byval dwnewlong as long) as long

public const gwl_wndproc as long = -4

public const wm_paste as long = &h302

public g_holdproc as long

public function wndproc(byval hwnd as long, byval umsg as long, byval wparam as long, byval lparam as long) as long

if umsg = wm_paste then

wndproc = 0

else

wndproc = callwindowproc(g_holdproc, hwnd, umsg, wparam, lparam)

end if

end function

vb部分相關文章

VB 技巧文字框使用技巧

1 控制文字框中輸入的內容例如我們只要求在文字框中輸入數字，而不允許出現其它字元，則我們使用keypress事件並檢查keyascii引數即可，keyascii引數用來儲存鍵盤所用的ansi碼不是ascii碼下面是乙個例子 private sub text keypress keyascii ...

JS實現文字框禁用右鍵和複製貼上功能

由於專案要求，有些文字框需要禁用掉右鍵和複製貼上的功能，昨天剛剛用js實現。function click e if document.layers if document.layers document.onmousedown click document.oncontextmenu new fun...

Hello專案功能測試文字框

必填項空輸入，應提示錯誤必填項只輸入若干個空格，應提示錯誤輸入最小字元數 1 輸入最小字元數輸入最大字元數 1 輸入最大字元數輸入最大字元數 1 輸入是否允許回車換行儲存後再顯示，是否能保持輸入時的格式僅輸入回車換行，檢查能否正確儲存若能，檢視儲存結果若不能，是否有正確提示。僅輸入空...

vb取消文字框的貼上功能

VB 技巧 文字框使用技巧

JS實現文字框禁用右鍵和複製貼上功能

Hello專案功能測試 文字框

相關推薦

VB 技巧文字框使用技巧

Hello專案功能測試文字框