VB6中模擬按鈕的實現

2021-06-16 05:32:38 字數 396 閱讀 2974

朋友發來乙個 vb6 的小要求:自行繪製按鈕,並且按鈕不能有控制代碼,不得用 image 控制項,需要支援單擊事件,滑鼠移動上去會變化。感覺像個考試題啊!

先貼**:

思路就是 使用 paintpicture 在窗體上作圖,使用mousemove事件判定滑鼠是否在的位置上,如果是則繪製滑鼠移動浮動後的,否則就繪製原始按鈕。

在判斷滑鼠位置是否在位置的這塊功能中發現乙個問題,stdpicture.width比的實際長度要大,不知道是什麼原因造成的。使用必應搜尋ms**無結果,最後依靠偉大的google搜尋外國網友的疑問找到解決方法,必須使用scalexscaley函式計算在裝置(此處是窗體)上的實際大小。

花了大約兩個小時的時間,好在有一點收穫。不錯。

vb6中的hook技術

public declare function setwindowshookex lib user32 alias setwindowshookexa byval idhook as long,byval lpfn as long,byval hmod as long,byval dwthreadi...

VB6實現網路連通檢測

private sub form load if isconnected true then msgbox 您已經連通了inter end if if isconnected false then msgbox 您還沒有連通 inter end if end sub option explicit ...

vb6中訪問XML文件

dim xmldoc as new msxml.domdocument dim xmlnode as ixmldomnode dim root as ixmldomnode dim node as ixmldomnode dim xmlele as ixmldomelement dim xmlatt...