2011年計算機等考二級VB輔導(dǎo)知識技巧總結(jié)(14)

　　將如下的代碼添加到Form1的Form_Load事件中：

　　Private Sub Form_Load()

　　Dim nLoopCtr As Integer

　　Dim lResult As Long

　　Dim hTempDC As Long

　　Dim nWidth As Integer

　　Dim nHeight As Integer

　　Dim lTempID As Long

　　Dim hMenuID As Long

　　Dim lItemCount As Long

　　Dim hBitmap As Long

　　nWidth = Picture1(nLoopCtr).Width \ Screen.TwipsPerPixelX

　　nHeight = Picture1(nLoopCtr).Height \ Screen.TwipsPerPixelY

　　hMenuID = GetSubMenu(GetMenu((Me.hwnd)), 1)

　　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)

　　mnuFaceSel(nLoopCtr).Caption = ""

　　lResult = ModifyMenu(hMenuID, nLoopCtr, MF_BYPOSITION Or MF_BITMAP,

　　GetMenuItemID(hMenuID, nLoopCtr), hBitmap)

　　Next nLoopCtr

　　lResult = DeleteDC(hTempDC)

　　End Sub

　　將如下的代碼添加到“退出”子菜單的單擊事件中：

　　Private Sub mnuExit_Click(Index As Integer)

　　Select Case Index

　　Case 0

　　Unload Me

　　End Select

　　End Sub

　　運行該樣例程序，單擊“臉譜”菜單，則會看到由4個臉譜圖標所形成的位圖子菜單項，如圖1所示。單擊“文件”\“退出”菜單可退出應(yīng)用程序。

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB基礎(chǔ)教程匯總

　　2011計算機等考二級VB輔導(dǎo)知識技巧匯總