资源描述：
《一个浮动窗口和窗口按钮切换的参考代码》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、参考代码Module1.Bas模块代码如下：OptionExplicitDeclareFunctionGetMenuLib"user32"(ByValhwndAsLong)AsLongDeclareFunctionGetSubMenuLib"user32"(ByValhMenuAsLong,ByValnPosAsLong)AsLongDeclareFunctionGetMenuItemIDLib"user32"(ByValhMenuAsLong,ByValnPosAsLong)AsLongDeclareFunctionModifyMenuLib"user32"Alias"Modify
2、MenuA"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong,ByValwIDNewItemAsLong,ByVallpStringAsAny)AsLongDeclareFunctionCreateCompatibleDCLib"gdi32"(ByValhdcAsLong)AsLongDeclareFunctionDeleteDCLib"gdi32"(ByValhdcAsLong)AsLongDeclareFunctionCreateCompatibleBitmapLib"gdi32"(ByValhdcAsLong,By
3、ValnWidthAsLong,ByValnHeightAsLong)AsLong’创建一幅与设备有关位图,它与指定的设备场景兼容DeclareFunctionSelectObjectLib"gdi32"(ByValhdcAsLong,ByValhObjectAsLong)AsLong’得到以前选入设备场景的句柄DeclareFunctionBitBltLib"gdi32"(ByValhDestDCAsLong,ByValxAsLong,ByValyAsLong,ByValnWidthAsLong,ByValnHeightAsLong,ByValhSrcDCAsLong,ByValx
4、SrcAsLong,ByValySrcAsLong,ByValdwRopAsLong)AsLong PublicConstSRCCOPY=&HCC0020 PublicConstMF_BYPOSITION=&H400& PublicConstMF_BITMAP=&H4&Form1程序代码如下：PrivateSubForm_Load() DimnLoopCtrAsInteger DimlResultAsLong DimhTempDCAsLong DimnWidthAsInteger DimnHeightAsInteger DimlTempIDAsLong DimhMenuIDAsLon
5、g DimlItemCountAsLong DimhBitmapAsLongnLoopCtr=0nWidth=Picture1(nLoopCtr).WidthScreen.TwipsPerPixelXnHeight=Picture1(nLoopCtr).HeightScreen.TwipsPerPixelYhMenuID=GetSubMenu(GetMenu((Me.hwnd)),0)'获取菜单的位置hTempDC=CreateCompatibleDC(Picture1(nLoopCtr).hdc) FornLoopCtr=0To3'这个循环把图片放入菜单里hBitmap=Cre
6、ateCompatibleBitmap(Picture1(nLoopCtr).hdc,nWidth,nHeight)lTempID=SelectObject(hTempDC,hBitmap)lResult=BitBlt(hTempDC,0,0,nWidth,nHeight,(Picture1(nLoopCtr).hdc),0,0,SRCCOPY)lTempID=SelectObject(hTempDC,lTempID)MnuMain_Select(nLoopCtr).Caption=""lResult=ModifyMenu(hMenuID,nLoopCtr,MF_BYPOSITION
7、OrMF_BITMAP,GetMenuItemID(hMenuID,nLoopCtr),hBitmap)NextnLoopCtrlResult=DeleteDC(hTempDC) EndSub PrivateSubMnuMain_Select_Click(IndexAsInteger)'处理菜单选择事件SelectCaseIndex Case0 Label1.Caption="选中---打开"Case1 Label1.Caption="选中---关于" C
