文件名称:PB-Set-menu-background-color
- 所属分类：
- SQL Server数据库
- 资源属性：
- [Text]
- 上传时间：
- 2015-11-10
- 文件大小：
- 162kb
- 下载次数：
- 0次
- 提 供 者：
- 花*
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
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
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
(系统自动生成,下载前可以参看下载内容)
下载文件列表
PB设置菜单的背景色\PB设置菜单的背景色\设置菜单背景色\1.jpg
..................\..................\..............\2.jpg
..................\..................\..............\3.jpg
..................\..................\..............\4.jpg
..................\..................\..............\Pic1.bmp
..................\..................\..............\Pic2.bmp
..................\..................\..............\Pic3.bmp
..................\..................\..............\readme.txt
..................\..................\..............\setmenu.pbl
..................\..................\..............\setmenu.pbt
..................\..................\..............\setmenuc.pbw
..................\..................\..............\Thumbs.db
..................\..................\设置菜单背景色
..................\PB设置菜单的背景色
PB设置菜单的背景色