vb常用代码大全.docxVIP

- - PAGE 10 - VB 常用代码 移动无标题栏的窗体dim m(borderstyle=none) ouseX as integer dim mouseY as integer dim moveX as integer dim moveY as integer dim down as boolean form_mousedown: mousedown 事件down=true mouseX=x mouseY=y form_mouseup: mouseup 事件down=false form_mousemove if down=true then moveX=me.left-mouseX+X moveY=me.top-mouseY+Y me.move moveX,moveY end if ********************************* **********闪烁控件 比如要闪烁一个 label（标签） 添加一个时钟控件间隔请根据实际需要设置 enabled 属性设为 true 代码为：label1.visible=not label1.visible ********************************* ********** 禁止使用 Alt+F4 关闭窗口 Private Declare Function DeleteMenu Lib u