一个listbox，就可以做出导航菜单和列表菜单！

雨落无声

前言：自己在写程序中常用到listbox这个组件，又需要各种样式的去扩展！遂就写了这么一个扩展绘制基础类！只要你懂一点GDI/GDI+绘制知识，一个接口就能自由的绘制出各种样式的列表

图一这横向的笑脸表情导航菜单和左侧列表菜单均是listbox扩展的！下面这是导航菜单的全部绘制的代码，几句就OK！

  

子程序名	返回值类型	公开	备 注
_ListItemPaint	整数型		以左上角0.0起始点绘制
参数名	类 型	参考	可空	数组	备 注
DC	整数型				MemDC
Index	整数型
Width	整数型
Height	整数型
ItemState	整数型

变量名	类 型	静态	数组	备 注
hBrush	整数型
Graphics	GP图形
bg	字节集
hImage	GP图像

SetTextColor (DC, #白色 )
DrawText (DC, 取项目文本 (Index), -1, MakeRC (0, 50, Width, Height), 位或 ( #DT_CENTER, #DT_VCENTER, #DT_SINGLELINE ))
判断 (ItemState ＝ #项目状态_选中 )
bg ＝ #ico_bg2
判断 (ItemState ＝ #项目状态_悬停 )
bg ＝ #ico_bg1


Graphics.创建自DC (DC)
hImage.创建自字节集 (bg)
Graphics.画图像缩放 (hImage, 0, 5, 80, 75)
hImage.销毁 ()
hImage.创建自字节集 ( #ico_head )
Graphics.画图像 (hImage, 16, 12)
Graphics.销毁 ()
hImage.销毁 ()
返回 (0)

.版本 2<br /> <br /> .子程序 _ListItemPaint, 整数型, 公开, 以左上角0.0起始点绘制<br /> .参数 DC, 整数型, , MemDC<br /> .参数 Index, 整数型<br /> .参数 Width, 整数型<br /> .参数 Height, 整数型<br /> .参数 ItemState, 整数型<br /> .局部变量 hBrush, 整数型<br /> .局部变量 Graphics, GP图形<br /> .局部变量 bg, 字节集<br /> .局部变量 hImage, GP图像<br /> <br /> SetTextColor (DC, #白色)<br /> DrawText (DC, 取项目文本 (Index), -1, MakeRC (0, 50, Width, Height), 位或 (#DT_CENTER, #DT_VCENTER, #DT_SINGLELINE))<br /> .判断开始 (ItemState ＝ #项目状态_选中)<br />     bg ＝ #ico_bg2<br /> .判断 (ItemState ＝ #项目状态_悬停)<br />     bg ＝ #ico_bg1<br /> .默认<br /> <br /> .判断结束<br /> Graphics.创建自DC (DC)<br /> hImage.创建自字节集 (bg)<br /> Graphics.画图像缩放 (hImage, 0, 5, 80, 75)<br /> hImage.销毁 ()<br /> hImage.创建自字节集 (#ico_head)<br /> Graphics.画图像 (hImage, 16, 12)<br /> Graphics.销毁 ()<br /> hImage.销毁 ()<br /> 返回 (0)

还可以自由的绘制带图带文字，甚至带按钮的列表项！



listDrawBase.zip (197.15 KB, 下载次数: 162)

2021-1-15 17:55 上传

点击文件名下载附件
模块是开源的！

18607723336

厉害了大佬  学习了

易语言天蓝蓝

666借鉴神器

ploneljs

66666666666666666666666666

1184798949

谢谢分享

yiyi111122

谢谢分享6

winxsj

大佬666666

石彬亮

横向导航 出错

石彬亮

小小心意，意思一下

牛大马

6666666666666666666666666