组合框的高度调整

乐易论坛

火山编程实现组合框的高度调整
https://www.leybc.cn/thread-309-1-1.html
(出处: 火山编程教程培训交流论坛-乐易网络)

1. <火山程序 类型 = "通常" 版本 = 1 />
   
2. 
   
3. 方法 置组合框高度 <折叠>
   
4. 参数 参_组合框 <类型 = 组合框>
   
5. 参数 参_高度 <类型 = 整数>
   
6. {
   
7.     变量 nHeight <类型 = 变整数>
   
8.     nHeight = 参_组合框.发送信息 (0x154, -1, 0)
   
9.     调试输出 (nHeight)
   
10.     @ RECT rc;
    
11.     @ ::GetWindowRect((HWND)@<参_组合框>.GetWtlWndHandle(),&rc);
    
12.     @ @<nHeight> = rc.bottom - rc.top-@<nHeight> ;
    
13.     nHeight = 参_高度 - nHeight
    
14.     参_组合框.发送信息 (0x153, -1, nHeight)
    
15.     参_组合框.发送信息 (0x153, 0, nHeight)
    
16. 
    
17. }

复制代码

折戟沉沙

1. <火山程序 类型 = "通常" 版本 = 1 />
   
2. 
   
3. 方法 组合框_置高度 <公开 静态 折叠 @嵌入式方法 = "">
   
4. 参数 窗口句柄 <类型 = 变整数 "">
   
5. 参数 高度 <类型 = 整数>
   
6. {
   
7.     @ SendMessage ((HWND)@<窗口句柄>, CB_SETITEMHEIGHT, (WPARAM)-1, (LPARAM)@<高度>)
   
8. }
   
9. 
   
10. 方法 组合框_取高度 <公开 静态 类型 = 整数 折叠 @嵌入式方法 = "">
    
11. 参数 窗口句柄 <类型 = 变整数 "">
    
12. {
    
13.     @ (INT)SendMessage ((HWND)@<窗口句柄>, CB_GETITEMHEIGHT, (WPARAM)-1, NULL)
    
14. }
    

复制代码

这个我老早之前就知道了。。

storey

折戟沉沙 发表于 2024-12-25 18:59
这个我老早之前就知道了。。

这个命令试了，不错，就是文本纵向不居中，有些美中不足！

1503123

像这种基础配置官方竟然不支持

创世魂

storey 发表于 2024-12-25 19:13
这个命令试了，不错，就是文本纵向不居中，有些美中不足！

mfc就这德行。。没办法

乐易论坛

折戟沉沙 发表于 2024-12-25 18:59
这个我老早之前就知道了。。

这玩意 易语言遍地都是 火山没人发 所以 发出来了