vb常用代碼大全

《vb常用代碼大全》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。

1、VB常用代碼移動無標(biāo)題欄的窗體dim?m(borderstyle=none)ouseX?as?integerdim?mouseY?as?integerdim?moveX?as?integerdim?moveY?as?integerdim?down?as?booleanform_mousedown:?'mousedown事件down=truemouseX=xmouseY=yform_mouseup:?'mouseup事件down=falseform_mousemoveif?down=true?then???moveX=me.left-mouseX+X?

2、??moveY=me.top-mouseY+Y???me.move?moveX,moveYend?if*******************************************閃爍控件比如要閃爍一個label（標(biāo)簽）添加一個時鐘控件?間隔請根據(jù)實(shí)際需要設(shè)置?enabled屬性設(shè)為true代碼為：label1.visible=not?label1.visible*******************************************禁止使用?Alt+F4?關(guān)閉窗口?Private?Declare?Function?Delete

3、Menu?Lib?"user32"?(ByVal?hMenu?As?Long,?ByVal?nPosition?As?Long,?ByVal?wFlags?As?Long)?As?LongPrivate?Declare?Function?GetMenuItemCount?Lib?"user32"?(ByVal?hMenu?As?Long)?As?LongPrivate?Const?MF_BYPOSITION?=?&H400&?Private?Sub?Form_Load()Dim?hwndMenu?As?LongDim?c?As?LonghwndMen

4、u?=?GetSystemMenu(Me.hwnd,?0)c?=?GetMenuItemCount(hwndMenu)DeleteMenu?hwndMenu,?c?-?1,?MF_BYPOSITIONc?=?GetMenuItemCount(hwndMenu)DeleteMenu?hwndMenu,?c?-?1,?MF_BYPOSITIONEnd?Sub啟動控制面板大全-16-'打開控制面板Call?Shell("rundll32.exe?shell32.dll,Control_RunDLL",?9)'輔助選項(xiàng)?屬性-鍵盤Call?Shell("ru

5、ndll32.exe?shell32.dll,Control_RunDLL?access.cpl,,1",?9)'輔助選項(xiàng)?屬性-聲音Call?Shell("rundll32.exe?shell32.dll,Control_RunDLL?access.cpl,,2",?9)'輔助選項(xiàng)?屬性-顯示Call?Shell("rundll32.exe?shell32.dll,Control_RunDLL?access.cpl,,3",?9)'輔助選項(xiàng)?屬性-鼠標(biāo)Call?Shell("rundll32.exe?shell32.dll,Control_RunD

6、LL?access.cpl,,4",?9)'輔助選項(xiàng)?屬性-常規(guī)Call?Shell("rundll32.exe?shell32.dll,Control_RunDLL?access.cpl,,5",?9)'添加/刪除程序?屬性-安裝/卸載Call?Shell("rundll32.exe?shell32.dll,Control_RunDLL?Appwiz.cpl,,1",?9)'添加/刪除程序?屬性-Windows安裝程序Call?Shell("rundll32.exe?shell32.dll,Control_RunDLL?Appwiz.cpl,,2"

7、,?9)'添加/刪除程序?屬性-啟動盤Call?Shell("rundll32.exe?shell32.dll,Control_RunDLL?Appwiz.cpl,,3",?9)'顯示?屬性-背景Call?Shell("rundll32.exe?shell32.dll,Control_RunDLL?desk.cpl,,0",?9)'顯示?屬性-屏幕保護(hù)程序Call?Shell("rundll32.exe?shell32.dll,Control_RunDLL?desk.cpl,,1",?9)'顯示?屬性-外觀Call?Shell("rundll32.e

8、xe?shell32.dll,Control_RunDLL?desk.cpl,,2",?9)'顯示?屬性-設(shè)