資源描述：
《vb常用代碼總結(jié)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。
1、我用UltralSO編輯了下ISO文件：Setup-->setup.sdb文件提取出來編輯，將[ProductKey]T2CRQGDKBVW7KJR8C6CKXMW3D改成[ProductKey]PYHYPWXB3BB2CCMV9DX9VDY8T這樣，安裝的時(shí)候就默認(rèn)是這個(gè)正版的序列號了。還有一種方法就是，不改這個(gè)文件，安裝后，再添加刪除程序的時(shí)候可以輸入序列號：PYHYP-WXB3B-B2CCM-V9DX9-VDY8T也可以變成正版。VB常川代碼總結(jié)移動(dòng)無標(biāo)題欄的窗^(borderstyle=none)dimmouseXasintegerdimmouseYasinteger
2、dimmoveXasintegerdimmoveYasintegerdimdownasbooleanform_mousedown:'mousedown事件down=truemouseX=xmouseY=yform_mouseup:'mouseup事件down二falseform_mousemoveifdown二truethenmoveX=me」eft?mouseX+XmoveY=me.top-mouseY+Yme.movemoveX,moveYendif**************************************************************
3、*********閃爍控件比如要閃爍一個(gè)label（標(biāo)簽）添加一個(gè)時(shí)鐘控件間隔請根據(jù)實(shí)際盂要設(shè)置enabled屬性設(shè)為true代碼為:labell.visible=notlabell.visible禁止使用Alt+F4關(guān)閉窗口PrivateDeclareFunctionDeleteMenuLibHuser32n(ByVaihMenuAsLong,ByVainPositionAsLong,ByVaiwFlagsAsLong)AsLongPrivateDeclareFunctionGetMenultemCountLibHuser32H(ByVaihMenuAsLong)AsLon
4、gPrivateConstMF_BYPOSITION=&H400&PrivateSubForm_Load()DimhwndMenuAsLongDimcAsLonghwndMenu二GetSystemMenu(Me.hwnd,0)c=GetMenultemCount(hwndMenu)DeleteMenuhwndMenu,c?1,MF_BYPOSITIONc=GetMenultemCount(hwndMenu)DeleteMenuhwndMenu,c-1,MF_BYPOSITIONEndSub*******************************************
5、****************************啟動(dòng)控制面板大全，打開控制面板CallShell("rundll32.exeshell32.dll,Control_RunDLL",9)'輔助選項(xiàng)屬性■鍵盤CallShell(Hrundll32.exeshell32.dll,Control_RunDLLaccess.cpl^l1'/9)'輔助選項(xiàng)屬性■聲音CallShell("rundll32.exeshell32.dll,Control_RunDLLaccess.cpl〃2”,9)'輔助選項(xiàng)屬性?顯示CallShell("rundll32.exeshell32.dll
6、,Control_RunDLLaccess.cpl?3"z9)'輔助選項(xiàng)屬性-鼠標(biāo)CallShell("rundll32.exeshell32.dll,Control_RunDLLaccess.cpl?4"z9)'輔助選項(xiàng)屬性?常規(guī)CallShell("rundll32.exeshell32.dll,Control_RunDLLaccess.cpl〃5”，9)添加/刪除程序?qū)傩?安裝御載CallShell("rundll32.exeshell32.dll,Control_RunDLLAppwiz.cpl?l",9)'添加/刪除程序?qū)傩?Windows安裝程序CallShell
7、("rundll32.exeshell32.dll,Control_RunDLLAppwi乙cpl〃2",9)?添加/刪除程序?qū)傩?啟動(dòng)盤CallShell("rundll32.exeshell32.dll,Control_RunDLLAppwiz.cpl?3"z9)，顯示屬性-背景CallShell("rundll32.exeshell32.dll/Control_RunDLLdesk.cpLO",9)，顯示屬性■屏幕保護(hù)程序CallShell("rundll32.exeshell32.dll,Con
