下拉组合框自绘背景

独影枫

炫语言IDE风格的组合框，学习团总后记录一下，组合框1团总是写的纯代码

qq86339218

感谢分享...学到了

下面是学到的用在火山的
程序集变量

1. <火山程序 类型 = "通常" 版本 = 1 />
   
2. 
   
3. 变量 集_组合框_列表框 <类型 = 炫彩列表框>
   

复制代码

1. <火山程序 类型 = "通常" 版本 = 1 />
   
2. 
   
3. 方法 炫彩组合框_组合框_弹出列表 <接收事件 类型 = 整数>
   
4. 参数 来源对象 <类型 = 炫彩组合框 注释 = "提供事件产生的具体来源对象">
   
5. 参数 标记值 <类型 = 整数 注释 = "用户调用"挂接事件"命令时所提供的"标记值"参数值,非此方式挂接事件则本参数值固定为0.">
   
6. 参数 组合框句柄 <类型 = 变整数>
   
7. 参数 窗口句柄 <类型 = 变整数>
   
8. 参数 列表框句柄 <类型 = 变整数>
   
9. 参数 是否拦截 <类型 = 逻辑型类 注释 = "是否拦截.值=真">
   
10. {
    
11.     变量 局部_背景管理器 <类型 = 炫彩背景管理器>
    
12.     如果 (来源对象 == 组合框_搜索类型)
    
13.     {
    
14.         集_组合框_列表框.句柄 = 列表框句柄
    
15.         局部_背景管理器.句柄 = 资源_取背景管理器 ("ID_组合框_弹出列表")
    
16.         集_组合框_列表框.背景管理器 = 局部_背景管理器
    
17.         集_组合框_列表框.自动注册事件 ()
    
18.         集_组合框_列表框.显示垂直滚动条 (假)
    
19.         集_组合框_列表框.显示水平滚动条 (假)
    
20. 
    
21. 
    
22. 
    
23.     }
    
24.     返回 (0)
    
25. }
    
26. 
    
27. 方法 炫彩列表框_列表框_项模板创建完成 <接收事件 类型 = 整数>
    
28. 参数 来源对象 <类型 = 炫彩列表框 注释 = "提供事件产生的具体来源对象">
    
29. 参数 标记值 <类型 = 整数 注释 = "用户调用"挂接事件"命令时所提供的"标记值"参数值,非此方式挂接事件则本参数值固定为0.">
    
30. 参数 列表框句柄 <类型 = 变整数>
    
31. 参数 项目结构 <类型 = 列表框_项结构1>
    
32. 参数 项目标识 <类型 = 整数 注释 = "0:状态改变; 1:新模板实例; 2:旧模板复用">
    
33. 参数 是否拦截 <类型 = 逻辑型类 注释 = "是否拦截.值=真">
    
34. {
    
35.     变量 局部_形状文本 <类型 = 形状文本>
    
36.     如果 (来源对象 == 集_组合框_列表框)
    
37.     {
    
38.         局部_形状文本.句柄 = 集_组合框_列表框.取模板对象 (项目结构.项索引, 1)
    
39.         如果 (炫彩_取对象类型 (局部_形状文本.句柄) == 元素类型.形状对象_文本)
    
40.         {
    
41.             局部_形状文本.置文本颜色 (颜色类.白色, )
    
42. 
    
43.         }
    
44. 
    
45.     }
    
46.     返回 (0)
    
47. 
    
48. }
    

复制代码

天雨时晴

感谢分享