一个浮动窗口和窗口按钮切换的参考代码

1、参考代码1 Module1.Bas模块代码如下： Option ExplicitDeclare Function GetMenu Lib user32 (ByVal hwnd As Long) As LongDeclare Function GetSubMenu Lib user32 (ByVal hMenu As Long, ByVal nPos As Long) As LongDeclare Function GetMenuItemID Lib user32 (ByVal hMenu As Long, ByVal nPos As Long) As LongDeclare Function

2、ModifyMenu Lib user32 Alias ModifyMenuA (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As LongDeclare Function CreateCompatibleDC Lib gdi32 (ByVal hdc As Long) As LongDeclare Function DeleteDC Lib gdi32 (ByVal hdc As Long) As Lon

3、g2Declare 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

4、 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 = &H400&Public Const MF_BITMAP = &H4&3 Form1程序代码如下：Private Sub

5、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 = 04 nWidth = Picture1(nLoopCtr).Width Screen.TwipsPerPixelX nHeight = Picture1(nLoopCtr).Height

6、Screen.TwipsPerPixelY hMenuID = GetSubMenu(GetMenu(Me.hwnd), 0) 获取菜单的位置 hTempDC = CreateCompatibleDC(Picture1(nLoopCtr).hdc) For nLoopCtr = 0 To 3这个循环把图片放入菜单里5hBitmap = CreateCompatibleBitmap(Picture1(nLoopCtr).hdc, nWidth, nHeight) lTempID = SelectObject(hTempDC, hBitmap) lResult = BitBlt(hTempDC,

7、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)6 Next nLoopCtr lResult = DeleteDC(hTempDC)End Sub

8、Private Sub MnuMain_Select_Click(Index As Integer) 处理菜单选择事件 Select Case Index Case 0 Label1.Caption = 选中-打开7 Case 1 Label1.Caption = 选中-关于 Case 2 Label1.Caption = 选中-帮助 Case 3 Label1.Caption = 选中-退出 DoEvents End End SelectEnd Sub84.2.2 窗口设计技术1浮动窗口的设计 在软件设计时，为了保证含有重要信息的窗口不被其他窗口覆盖，就要用到浮动窗口技术，建立一个“总在最前面”(TopMost)的窗口。下面我们用一个实例介绍这类窗口的制作。(1) 建立FORM1、FORM2。(2) 在FORM1中放置一个Pict