真正的自绘列表框。

神女软件定制

简单弄了滚动条和鼠标滚轮响应，可以发送消息添加条目，和删除条目。
显示效果就是简陋的一个条目矩形，里面显示条目内容……

还有一些基本的，比如应该当前有一个条目是焦点，突出显示，并且可以上下键来移动这个焦点，这些繁琐的步骤没弄了。
设置字体啊，颜色啥的都没开放接口。硬编码。

因为问答区有个人问了自绘控件怎么自己弄滚动条：https://bbs.125.la/forum.php?mod ... 14669184&extra=

仅供学习参考下……

全部代码：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
cx_窗口过程	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
jb_temp	文本型
i	整数型

cx_窗口过程 ＝ sn_SetWindowLong (_启动窗口.取窗口句柄 (), -4, 取子程序地址 (&wndproc))  ' -4=#GWL_WNDPROC
计次循环首 (30, i)
jb_temp ＝ 格式化文本 (“新条目 - %d”, i)
_启动窗口.发送信息 (1025, 0, 取变量数据地址 (jb_temp))  ' 1025=#WM_USER+1
计次循环尾 ()

子程序名	返回值类型	公开	备 注
wndproc	整数型
参数名	类 型	参考	可空	数组	备 注
hwnd
msg
wp
lp

变量名	类 型	静态	数组	备 注
jbs_条目	文本型		0
rcClient	RECT
op	整数型
si	SCROLLINFO
ps	PAINTSTRUCT
hdc	整数型
i	整数型
rcItem	RECT

判断 (msg ＝ 1025)
加入成员 (jbs_条目, 指针到文本 (lp))
sn_SendMessage (hwnd, 5, 0, 0)
sn_InvalidateRect_int (hwnd, 0, 1)
判断 (msg ＝ 1026)
删除成员 (jbs_条目, 1, )
sn_SendMessage (hwnd, 5, 0, 0)
sn_InvalidateRect_int (hwnd, 0, 1)
判断 (msg ＝ 5)  ' #WM_SIZE
sn_GetClientRect (hwnd, rcClient)
si.cbSize ＝ 28
si.fMask ＝ 位或 (1, 2)  ' 1=#SIF_RANGE，2=#SIF_PAGE
si.nMax ＝ 30 × 取数组成员数 (jbs_条目)
si.nPage ＝ rcClient.Bottom － rcClient.Top  ' 当前页面为当前窗口像素高度
sn_SetScrollInfo (hwnd, 1, si, 真)  ' 1=#SB_VERT
判断 (msg ＝ 277)  ' #WM_VSCROLL
si.cbSize ＝ 28
si.fMask ＝ 23  ' 23=#SIF_ALL
sn_GetScrollInfo (hwnd, 1, si)  ' 1=#SB_VERT
op ＝ 位与 (65535, wp)
判断 (op ＝ 6)  ' 6=#SB_TOP
si.nPos ＝ si.nMin
判断 (op ＝ 7)  ' 7=#SB_BOTTOM
si.nPos ＝ si.nMax
判断 (op ＝ 0)  ' 0=#SB_LINEUP
si.nPos ＝ si.nPos － 30  ' 每次+-30个像素
判断 (op ＝ 1)  ' 1=#SB_LINEDOWN
si.nPos ＝ si.nPos ＋ 30
判断 (op ＝ 2)  ' 2=#SB_PAGEUP
si.nPos ＝ si.nPos － si.nPage
判断 (op ＝ 3)  ' 3=#SB_PAGEDOWN
si.nPos ＝ si.nPos ＋ si.nPage
判断 (op ＝ 5)  ' 5=#SB_THUMBTRACK
si.nPos ＝ si.nTrackPos
返回 (0)
sn_SetScrollInfo (hwnd, 1, si, 真)
sn_InvalidateRect_int (hwnd, 0, 1)
返回 (0)
判断 (msg ＝ 522)  ' 522=#WM_MOUSEWHEEL
si.cbSize ＝ 28
si.fMask ＝ 23  ' 23=#SIF_ALL
sn_GetScrollInfo (hwnd, 1, si)  ' 1=#SB_VERT
如果 (wp ＞ 0)
si.nPos ＝ si.nPos － 30
si.nPos ＝ si.nPos ＋ 30
sn_SetScrollInfo (hwnd, 1, si, 真)
sn_InvalidateRect_int (hwnd, 0, 1)
判断 (msg ＝ 15)  ' 15=#WM_PAINT
si.cbSize ＝ 28
si.fMask ＝ 23  ' 23=#SIF_ALL
sn_GetScrollInfo (hwnd, 1, si)  ' 1=#SB_VERT
hdc ＝ sn_BeginPaint (hwnd, ps)
sn_PatBlt (hdc, 0, 0, rcClient.Right, rcClient.Bottom, 16711778)  ' 16711778=#WHITENESS
sn_SetWindowOrgEx_int (hdc, 0, si.nPos, 0)
sn_SelectObject (hdc, sn_GetStockObject (17))  ' 17=#DEFAULT_GUI_FONT
计次循环首 (取数组成员数 (jbs_条目), i)
rcItem.Left ＝ 0
rcItem.Top ＝ 30 �� (i － 1)
rcItem.Bottom ＝ 30 × i
rcItem.Right ＝ rcClient.Right
sn_Rectangle (hdc, rcItem.Left, rcItem.Top, rcItem.Right, rcItem.Bottom)
sn_InflateRect (rcItem, -1, -1)
sn_DrawText (hdc, jbs_条目 [i], -1, rcItem, 位或 (4, 32))  ' 4=#DT_VCENTER，32=#DT_SINGLELINE
计次循环尾 ()
sn_EndPaint (hwnd, ps)
返回 (0)
返回 (sn_CallWindowProc (cx_窗口过程, hwnd, msg, wp, lp))
返回 (0)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
jb_temp	文本型

jb_temp ＝ 到文本 (取现行时间 ())
_启动窗口.发送信息 (1025, 0, 取变量数据地址 (jb_temp))  ' 1025=#WM_USER+1

子程序名	返回值类型	公开	备 注
_按钮2_被单击

_启动窗口.发送信息 (1026, 0, 1)  ' 1026=#WM_USER+2，删除第一个

i支持库列表	支持库注释
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 cx_窗口过程, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 jb_temp, 文本型<br /> .局部变量 i, 整数型<br /> <br /> cx_窗口过程 ＝ sn_SetWindowLong (_启动窗口.取窗口句柄 (), -4, 取子程序地址 (&wndproc))  ' -4=#GWL_WNDPROC<br /> .计次循环首 (30, i)<br />     jb_temp ＝ 格式化文本 (“新条目 - %d”, i)<br />     _启动窗口.发送信息 (1025, 0, 取变量数据地址 (jb_temp))  ' 1025=#WM_USER+1<br /> .计次循环尾 ()<br /> <br /> .子程序 wndproc, 整数型<br /> .参数 hwnd<br /> .参数 msg<br /> .参数 wp<br /> .参数 lp<br /> .局部变量 jbs_条目, 文本型, 静态, "0"<br /> .局部变量 rcClient, RECT, 静态<br /> .局部变量 op, 整数型<br /> .局部变量 si, SCROLLINFO<br /> .局部变量 ps, PAINTSTRUCT<br /> .局部变量 hdc, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 rcItem, RECT<br /> <br /> .判断开始 (msg ＝ 1025)<br />     加入成员 (jbs_条目, 指针到文本 (lp))<br />     sn_SendMessage (hwnd, 5, 0, 0)<br />     sn_InvalidateRect_int (hwnd, 0, 1)<br /> .判断 (msg ＝ 1026)<br />     删除成员 (jbs_条目, 1, )<br />     sn_SendMessage (hwnd, 5, 0, 0)<br />     sn_InvalidateRect_int (hwnd, 0, 1)<br /> .判断 (msg ＝ 5)  ' #WM_SIZE<br />     sn_GetClientRect (hwnd, rcClient)<br />     si.cbSize ＝ 28<br />     si.fMask ＝ 位或 (1, 2)  ' 1=#SIF_RANGE，2=#SIF_PAGE<br />     si.nMax ＝ 30 × 取数组成员数 (jbs_条目)<br />     si.nPage ＝ rcClient.Bottom － rcClient.Top  ' 当前页面为当前窗口像素高度<br />     sn_SetScrollInfo (hwnd, 1, si, 真)  ' 1=#SB_VERT<br /> .判断 (msg ＝ 277)  ' #WM_VSCROLL<br />     si.cbSize ＝ 28<br />     si.fMask ＝ 23  ' 23=#SIF_ALL<br />     sn_GetScrollInfo (hwnd, 1, si)  ' 1=#SB_VERT<br />     op ＝ 位与 (65535, wp)<br />     .判断开始 (op ＝ 6)  ' 6=#SB_TOP<br />         si.nPos ＝ si.nMin<br />     .判断 (op ＝ 7)  ' 7=#SB_BOTTOM<br />         si.nPos ＝ si.nMax<br />     .判断 (op ＝ 0)  ' 0=#SB_LINEUP<br />         si.nPos ＝ si.nPos － 30  ' 每次+-30个像素<br />     .判断 (op ＝ 1)  ' 1=#SB_LINEDOWN<br />         si.nPos ＝ si.nPos ＋ 30<br />     .判断 (op ＝ 2)  ' 2=#SB_PAGEUP<br />         si.nPos ＝ si.nPos － si.nPage<br />     .判断 (op ＝ 3)  ' 3=#SB_PAGEDOWN<br />         si.nPos ＝ si.nPos ＋ si.nPage<br />     .判断 (op ＝ 5)  ' 5=#SB_THUMBTRACK<br />         si.nPos ＝ si.nTrackPos<br />     .默认<br />         返回 (0)<br />     .判断结束<br />     sn_SetScrollInfo (hwnd, 1, si, 真)<br />     sn_InvalidateRect_int (hwnd, 0, 1)<br />     返回 (0)<br /> .判断 (msg ＝ 522)  ' 522=#WM_MOUSEWHEEL<br />     si.cbSize ＝ 28<br />     si.fMask ＝ 23  ' 23=#SIF_ALL<br />     sn_GetScrollInfo (hwnd, 1, si)  ' 1=#SB_VERT<br />     .如果 (wp ＞ 0)<br />         si.nPos ＝ si.nPos － 30<br />     .否则<br />         si.nPos ＝ si.nPos ＋ 30<br />     .如果结束<br />     sn_SetScrollInfo (hwnd, 1, si, 真)<br />     sn_InvalidateRect_int (hwnd, 0, 1)<br /> .判断 (msg ＝ 15)  ' 15=#WM_PAINT<br />     si.cbSize ＝ 28<br />     si.fMask ＝ 23  ' 23=#SIF_ALL<br />     sn_GetScrollInfo (hwnd, 1, si)  ' 1=#SB_VERT<br />     hdc ＝ sn_BeginPaint (hwnd, ps)<br />     sn_PatBlt (hdc, 0, 0, rcClient.Right, rcClient.Bottom, 16711778)  ' 16711778=#WHITENESS<br />     sn_SetWindowOrgEx_int (hdc, 0, si.nPos, 0)<br />     sn_SelectObject (hdc, sn_GetStockObject (17))  ' 17=#DEFAULT_GUI_FONT<br />     .计次循环首 (取数组成员数 (jbs_条目), i)<br />         rcItem.Left ＝ 0<br />         rcItem.Top ＝ 30 × (i － 1)<br />         rcItem.Bottom ＝ 30 × i<br />         rcItem.Right ＝ rcClient.Right<br />         sn_Rectangle (hdc, rcItem.Left, rcItem.Top, rcItem.Right, rcItem.Bottom)<br />         sn_InflateRect (rcItem, -1, -1)<br />         sn_DrawText (hdc, jbs_条目 <i>, -1, rcItem, 位或 (4, 32))  ' 4=#DT_VCENTER，32=#DT_SINGLELINE<br />     .计次循环尾 ()<br />     sn_EndPaint (hwnd, ps)<br />     返回 (0)<br /> .默认<br />     返回 (sn_CallWindowProc (cx_窗口过程, hwnd, msg, wp, lp))<br /> .判断结束<br /> 返回 (0)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 jb_temp, 文本型<br /> <br /> jb_temp ＝ 到文本 (取现行时间 ())<br /> _启动窗口.发送信息 (1025, 0, 取变量数据地址 (jb_temp))  ' 1025=#WM_USER+1<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> _启动窗口.发送信息 (1026, 0, 1)  ' 1026=#WM_USER+2，删除第一个

123456.e (17.35 KB, 下载次数: 74)

2021-3-4 02:52 上传

点击文件名下载附件

ljx111

感谢分享~~~~~~~~~~~~~~

opq123

感谢分享，很给力！~

钥匙放在那

支持开源~！感谢分享

小叮

支持开源~！感谢分享

ghost12

感谢发布原创作品，一定好好学习，天天向上

zzzyf

#在这里快速回复#        新技能已get√

nydqg

xuexixuexixuexixuexi

a3960382663

支持开源~！感谢分享

zzzyf

#在这里快速回复#新技能已get√