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 創(chuàng)建一幅與設(shè)備有關(guān)位圖,它與指定的設(shè)備場景兼容Declare Function SelectObject Lib gdi32 (ByVal hdc As Long, ByVal hObject As Long) As Long 得到以前選入設(shè)備場景的句柄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這個循環(huán)把圖片放入菜單里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 = 選中-關(guān)于 Case 2 Label1.Caption = 選中-幫助 Case 3 Label1.Caption = 選中-退出 DoEvents End End SelectEnd Sub84.2.2 窗口設(shè)計技術(shù)1浮動窗口的設(shè)計 在軟件設(shè)計時，為了保證含有重要信息的窗口不被其他窗口覆蓋，就要用到浮動窗口技術(shù)，建立一個“總在最前面”(TopMost)的窗口。下面我們用一個實例介紹這類窗口的制作。(1) 建立FORM1、FORM2。(2) 在FORM1中放置一個Pict