vb常用代码大全.docxVIP

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 user32 (ByVal hMenu As Long, ByVal n Position As Long, ByVal wFlags As Long) As Long Private Declare Function GetMenuItemC ount Lib user32 (ByVal hMenu As Long) As Long Private Const MF_BYPOSITION = H400 Private Sub Form_Load() Dim hwndMenu As Long Dim c As Long hwndMenu = GetSystemMenu(Me.hwnd, 0) c = GetMenuItemCount(hwndMenu) DeleteMenu hwndMenu, c - 1, MF_BYPOSITION - 1 -  c = GetMenuItemCount(hwndMenu) DeleteMenu hwndMenu, c - 1, MF_BYPOSITION End Sub 启动控制面板大全 打开控制面板 Call Shell(rundll32.exe shell32.dll,Contro l_RunDLL, 9) 辅助选项 属性-键盘 Call Shell(rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,1, 9) 辅助选项 属性-声音 Call Shell(rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,2, 9) 辅助选项 属性-显示 Call Shell(rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,3, 9) 辅助选项 属性-鼠标 Call Shell(rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,4, 9) 辅助选项 属性-常规 Call Shell(rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,5, 9) 添加/删除程序 属性-安装/卸载 Call Shell(rundll32.exe shell32.dll,Contro l_RunDLL Appwiz.cpl,,1, 9) 添加/删除程序 属性-Windows 安装程 序 Call Shell(rundll32.exe shell32.dll,Contro l_RunDLL Appwiz.cpl,,2, 9) 添加/删除程序 属性-启动盘 Call Shell(rundll32.exe shell32.dll,Contro l_RunDLL Appwiz.cpl,,3, 9) 显示 属性-背景 Call Shell(rundll32.exe shell32.dll,Contro l_RunDLL desk.cpl,,0, 9) 显示 属性-屏幕保护程序 Call Shell(rundll32.exe shell32.dll,Contro l_RunDLL desk.cpl,,1, 9) 显示 属性-外观 Call Shell(rundll32.exe shell32.dll,C