树型框模块源码 怎么加入 是否加粗 检查框状态

独倚斜阳

我发现就他这个树型框模块多级目录和文件一起加载不卡，
其他的我不管外部框或者字节集都很卡
原生的我一级一级预读 选择才读下一级速度和他一次性全读差不多
怎么修改，让他支持原来原生的命令 原生命令 加入项目末尾还有两参数  是否加粗，检查框状态(整数型)  
他是全程发送消息实现的
类_树型框.加入项目 ("父项目索引[整数型]", "项目文本[文本型]", "图片索引[整数型]", "选中图片索引[整数型]", "项目数值[整数型]")

  

子程序名	返回值类型	公开	备 注
加入项目	整数型
参数名	类 型	参考	可空	数组	备 注
父项目索引
项目文本	文本型
图片索引
选中图片索引
项目数值

如果真 (是否为空 (父项目索引) 或 父项目索引 ≤ 0)
父项目索引 ＝ #TVI_ROOT
' 本源码来自易语言源码网 [url]www.e5a5x.com[/url]  欢迎使用
返回 (InsertItem (位或 ( #TVIF_TEXT, #TVIF_IMAGE, #TVIF_SELECTEDIMAGE, #TVIF_PARAM ), 项目文本, 图片索引, 选中图片索引, 0, 0, 项目数值, 父项目索引, #TVI_LAST ))

.版本 2<br /> <br /> .子程序 加入项目, 整数型, 公开<br /> .参数 父项目索引, , 可空<br /> .参数 项目文本, 文本型, 可空<br /> .参数 图片索引, , 可空<br /> .参数 选中图片索引, , 可空<br /> .参数 项目数值, , 可空<br /> <br /> .如果真 (是否为空 (父项目索引) 或 父项目索引 ≤ 0)<br />     父项目索引 ＝ #TVI_ROOT<br />     ' 本源码来自<a href="http://bbs.125.la/forum-98-1.html" target="_blank" class="relatedlink">易语言源码</a>网 <a href="http://www.e5a5x.com" rel="nofollow" target="_blank">www.e5a5x.com</a>  欢迎使用<br /> .如果真结束<br /> 返回 (InsertItem (位或 (#TVIF_TEXT, #TVIF_IMAGE, #TVIF_SELECTEDIMAGE, #TVIF_PARAM), 项目文本, 图片索引, 选中图片索引, 0, 0, 项目数值, 父项目索引, #TVI_LAST))

  

子程序名	返回值类型	公开	备 注
InsertItem	整数型
参数名	类 型	参考	可空	数组	备 注
nMask
lpszItem	文本型
nImage
nSelectedImage
nState
nStateMask
lParam
hParent
hInsertAfter

变量名	类 型	静态	数组	备 注
tvis	TVINSERTSTRUCTA

tvis.hParent ＝ hParent
tvis.hInsertAfter ＝ hInsertAfter
tvis.item.mask ＝ nMask
tvis.item.pszText ＝ lpszItem
tvis.item.iImage ＝ nImage
tvis.item.iSelectedImage ＝ nSelectedImage
tvis.item.state ＝ nState
tvis.item.stateMask ＝ nStateMask
tvis.item.lParam ＝ lParam
返回 (_InsertItem (tvis))

.版本 2<br /> <br /> .子程序 InsertItem, 整数型, 公开<br /> .参数 nMask<br /> .参数 lpszItem, 文本型<br /> .参数 nImage<br /> .参数 nSelectedImage<br /> .参数 nState<br /> .参数 nStateMask<br /> .参数 lParam<br /> .参数 hParent<br /> .参数 hInsertAfter<br /> .局部变量 tvis, TVINSERTSTRUCTA<br /> <br /> tvis.hParent ＝ hParent<br /> tvis.hInsertAfter ＝ hInsertAfter<br /> tvis.item.mask ＝ nMask<br /> tvis.item.pszText ＝ lpszItem<br /> tvis.item.iImage ＝ nImage<br /> tvis.item.iSelectedImage ＝ nSelectedImage<br /> tvis.item.state ＝ nState<br /> tvis.item.stateMask ＝ nStateMask<br /> tvis.item.lParam ＝ lParam<br /> 返回 (_InsertItem (tvis))

  

子程序名	返回值类型	公开	备 注
_InsertItem	整数型
参数名	类 型	参考	可空	数组	备 注
tvis	TVINSERTSTRUCTA

返回 (SendMsg_InsertStruct (m_hWnd, #TVM_INSERTITEM, 0, tvis))

.版本 2<br /> <br /> .子程序 _InsertItem, 整数型<br /> .参数 tvis, TVINSERTSTRUCTA<br /> <br /> 返回 (SendMsg_InsertStruct (m_hWnd, #TVM_INSERTITEM, 0, tvis))

易语言树型框类模块源码.e (20.99 KB, 下载次数: 3)

5 天前 上传

点击文件名下载附件

cunanhai

自问自答 单人对口相声

独倚斜阳

已经解决 速度和精易外部树型框一样 上面那个模块很多命令的那个索引不知道咋取 不是窗口组件句柄也不是树型框的索引 没看懂

看了精易模块的源码  和上面那个模块用的差不多的消息和api
精易的 加入项目x 这里的字节集要用 编码_Ansi到Unicode（）  不然会乱码  

chenboss

独倚斜阳 发表于 2024-11-16 06:21
已经解决 速度和精易外部树型框一样 上面那个模块很多命令的那个索引不知道咋取 不是窗口组件句柄也不是树 ...

干得漂亮