vb常用代碼總結(jié)

1、VB常用代碼總結(jié)常用代碼總結(jié)原文出自木螞蟻社區(qū)本貼地址::bbs.viewthread.phptid=809605移動(dòng)無(wú)標(biāo)題欄的窗體(bderstyle=none)dimmouseXasintegerdimmouseYasintegerdimmoveXasintegerdimmoveYasintegerdimdownasbooleanfm_mousedown:mousedown事件down=truemouseX=xmouseY=yfm_

2、mouseup:mouseup事件down=falsefm_mousemoveifdown=truethenmoveX=me.leftmouseXXmoveY=me.topmouseYYme.movemoveXmoveYendif閃爍控件比如要閃爍一個(gè)label（標(biāo)簽）添加一個(gè)時(shí)鐘控件間隔請(qǐng)根據(jù)實(shí)際需要設(shè)置enabled屬性設(shè)為true代碼為：label1.visible=notlabel1.visible禁止使用AltF4關(guān)閉窗口Pr

3、ivateDeclareFunctionMenuLib“user32“(ByValhMenuAsLongByValnPositionAsLongByValwFlagsAsLong)AsLongPrivateDeclareFunctionGetMenuItemCountLib“user32“(ByValhMenuAsLong)AsLongPrivateConstMF_BYPOSITION=&H400&PrivateSubFm_Load()

4、DimhwndMenuAsLongDimcAsLonghwndMenu=GetSystemMenu(Me.hwnd0)c=GetMenuItemCount(hwndMenu)MenuhwndMenuc1MF_BYPOSITION你可以使用API函數(shù)FindWindow和PostMessage來(lái)尋找一個(gè)窗口并且關(guān)閉它。下面的范例演示如何關(guān)閉一個(gè)標(biāo)題為“Calculat“的窗口。DimwinHwndAsLongDimRetValAsLong

5、winHwnd=FindWindow(vbNullString“Calculat“)Debug.PrintwinHwndIfwinHwnd0ThenRetVal=PostMessage(winHwndWM_CLOSE0&0&)IfRetVal=0ThenMsgBox“Errpostingmessage.“EndIfElseMsgBox“TheCalculatisnotopen.“EndIfFthiscodetowkyoumusthave

6、declaredtheAPIfunctionsinamoduleinyourproject.Youmustputthefollowinginthedeclarationssectionofthemodule.DeclareFunctionFindWindowLib“user32“Alias_“FindWindowA“(ByVallpClassNameAsString_ByVallpWindowNameAsString)AsLongDec

7、lareFunctionPostMessageLib“user32“Alias_“PostMessageA“(ByValhwndAsLongByValwMsgAsLong_ByValwParamAsLonglParamAsAny)AsLongPublicConstWM_CLOSE=&H10如何使Fm的背景圖隨Fm大小改變單純顯示圖形用Image即可而且用Image也正好可解決你的問(wèn)題設(shè)定Image的Stretch=true在加入以下的c