组合框的高度调整
火山编程实现组合框的高度调整https://www.leybc.cn/thread-309-1-1.html
(出处: 火山编程教程培训交流论坛-乐易网络)
<火山程序 类型 = "通常" 版本 = 1 />
方法 置组合框高度 <折叠>
参数 参_组合框 <类型 = 组合框>
参数 参_高度 <类型 = 整数>
{
变量 nHeight <类型 = 变整数>
nHeight = 参_组合框.发送信息 (0x154, -1, 0)
调试输出 (nHeight)
@ RECT rc;
@ ::GetWindowRect((HWND)@<参_组合框>.GetWtlWndHandle(),&rc);
@ @<nHeight> = rc.bottom - rc.top-@<nHeight> ;
nHeight = 参_高度 - nHeight
参_组合框.发送信息 (0x153, -1, nHeight)
参_组合框.发送信息 (0x153, 0, nHeight)
}
<火山程序 类型 = "通常" 版本 = 1 />
方法 组合框_置高度 <公开 静态 折叠 @嵌入式方法 = "">
参数 窗口句柄 <类型 = 变整数 "">
参数 高度 <类型 = 整数>
{
@ SendMessage ((HWND)@<窗口句柄>, CB_SETITEMHEIGHT, (WPARAM)-1, (LPARAM)@<高度>)
}
方法 组合框_取高度 <公开 静态 类型 = 整数 折叠 @嵌入式方法 = "">
参数 窗口句柄 <类型 = 变整数 "">
{
@ (INT)SendMessage ((HWND)@<窗口句柄>, CB_GETITEMHEIGHT, (WPARAM)-1, NULL)
}
这个我老早之前就知道了。。
折戟沉沙 发表于 2024-12-25 18:59
这个我老早之前就知道了。。
这个命令试了，不错，就是文本纵向不居中，有些美中不足！
像这种基础配置官方竟然不支持 storey 发表于 2024-12-25 19:13
这个命令试了，不错，就是文本纵向不居中，有些美中不足！
mfc就这德行。。没办法 折戟沉沙 发表于 2024-12-25 18:59
这个我老早之前就知道了。。
这玩意 易语言遍地都是 火山没人发 所以 发出来了
页:
[1]