去年曾寫過一篇博文,名稱叫《用VB無窗口透明Usercontrol編寫透明浮動按鈕》,該文有一個觀點是錯誤的,即透明無窗口Usercontrol不支持設計時點選。其實,通過在UserControl_HitTest過程里加入HitResult = vbHitResultHit語句,就可以實現設計時的點選了,爲此,修改代碼如下:
此外,爲了讓控件在沒有提供的容器裏(如Frame)正常運行,讀者可以在Usercontrol上使用Image和Label控件來顯示文字和圖像,即可實現。不過,還得需要處理Image和Label子控件的鼠標事件,在此就不是提供代碼了。