去年曾写过一篇博文,名称叫《用VB无窗口透明Usercontrol编写透明浮动按钮》,该文有一个观点是错误的,即透明无窗口Usercontrol不支持设计时点选。其实,通过在UserControl_HitTest过程里加入HitResult = vbHitResultHit语句,就可以实现设计时的点选了,为此,修改代码如下:
此外,为了让控件在没有提供的容器里(如Frame)正常运行,读者可以在Usercontrol上使用Image和Label控件来显示文字和图像,即可实现。不过,还得需要处理Image和Label子控件的鼠标事件,在此就不是提供代码了。