PB设置菜单的背景色 //使用API函数LoadImage()调入BITMAP图像

ls_BitMapFileName = Pic2.Bmp

ll_hBitMap = LoadImage(0, ls_BitMapFileName, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)



//创建位图刷子

ll_BitMapBrush = CreatePatternBrush(ll_hBitmap)



//设置MENUINFO结构

lstr_MenuInfo.cbSize = 28

lstr_MenuInfo.cyMax = 0

lstr_MenuInfo.fMask = MIM_BACKGROUND

lstr_MenuInfo.hbrBack = ll_BitMapBrush



//获取窗口主菜单的句柄

ll_hMainMenu = GetMenu(ll_hwnd)



FOR i = 0 TO 2

　　//获取窗口指定子菜单的句柄

　　ll_hSubMenu = GetSubMenu(ll_hMainMenu, i)

　　//设置菜单信息

　　SetMenuInfo(ll_hSubMenu, lstr_MenuInfo)

　　//重新绘制菜单

　　DrawMenuBar(ll_hwnd)

END FOR



//释放对象

DeleteObject(ll_hBitMap)-Set menu background color