一个浮动窗口与窗口按钮切换的参考代码.pptVIP

参考代码 Declare Function CreateCompatibleBitmap Lib gdi32 (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long’ 创建一幅与设备有关位图,它与指定的设备场景兼容Declare Function SelectObject Lib gdi32 (ByVal hdc As Long, ByVal hObject As Long) As Long’ 得到以前选入设备场景的句柄Declare Function BitBlt Lib gdi32 (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As LongPublic Const SRCCOPY = HCC0020Public Const MF_BYPOSITION = H400Public Const MF_BITMAP = H4 Form1程序代码如下：Private Sub Form_Load()Dim nLoopCtr As IntegerDim lResult As LongDim hTempDC As LongDim nWidth As IntegerDim nHeight As IntegerDim lTempID As LongDim hMenuID As LongDim lItemCount As LongDim hBitmap As LongnLoopCtr = 0 nWidth = Picture1(nLoopCtr).Width \ Screen.TwipsPerPixelX nHeight = Picture1(nLoopCtr).Height \ Screen.TwipsPerPixelY hMenuID = GetSubMenu(GetMenu((Me.hwnd)), 0) 获取菜单的位置 hTempDC = CreateCompatibleDC(Picture1(nLoopCtr).hdc) For nLoopCtr = 0 To 3这个循环把图片放入菜单里 hBitmap = CreateCompatibleBitmap(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 Or MF_BITMAP, GetMenuItemID(hMenuID, nLoopCtr), hBitmap) Next nLoopCtr lResult = DeleteDC(hTempDC)End SubPrivate Sub MnuMain_Select_Click(Index As Integer) 处理菜单选择事件 Select Case Index Case 0 Label1.Caption = 选中---打开 Case 1 Label1.Caption = 选中---关于 Case 2 Label1.Caption = 选中---帮助 Case 3 Label1.Caption = 选中---退出 DoEvents End End SelectEnd Sub 4.2.2 窗口设计技术　　1．浮动窗口的设计　 在软件设计时，为了保证含有重要信息的窗口不被其他窗口覆盖，就要用到浮动窗口技术，建立一个“总在最前面”(TopMost)的窗口。下面我们用一个实例介绍