【文件属性】：
文件名称：个人开发的VB窗体修饰控件集，打包下载.rar
文件大小：93KB
文件格式：RAR
更新时间：2022-07-29 20:52:36
VB源码-控件组件
个人开发的VB窗体修饰控件集，内含漂亮按钮、ListView、下拉列表、TAB标签选项卡、树形控件、窗体滑动菜单、分组菜单，可折叠展开的菜单等，相信这些控件对于从事vb6编程的朋友来说，是相当实用的。
某内部控件代码释义：
Private m_List() As gListStruct ‘保存各组列表框列表项的内容,通过二维数组实现
Private m_Cnt() As Long ‘保存各组列表框的数目
Private m_Idx() As Long ‘保存各组列表框选中项的索引值
Private m_GroupName() As String ‘保存各个分组标题
Private m_IsSpread() As Boolean ‘各个分组列表框是否展开
Private m_GroupCnt As Long ‘分组的数目
Private m_TotalCnt As Long ‘整个个分组列表框的元素数目(包括正常列表项和分组标题两种元素,这个数目直变化)
Private m_GroupIdx() As Long ‘保存各个分组标题在整个分组列表框中的位置(该值和m_TotalCnt一样会变化)
Private m_PageCount As Long ‘整个分组列表框中一页中的最大元素数目(包括正常列表项和分组标题两种元素)
Private m_ItemHeight As Long ‘列表项的高度
Private m_HoverIndex As Long ‘鼠标所在位置列表项的索引号,-1表示不在任何一个列表项上
Private m_rel As Long ‘移除Item或Group时,记录滚动条的偏移值,在tmrInit里面处理,防止重复画滚动条
Private m_DisMode As GroupListMode ‘显示模式(0---无图标 1---小图标 2---大图标)
【文件预览】：
自制控件集(修正窗体闪烁bug 2011-09-04)
----VeryHuo.Com()
--------SubclassMain.bas(5KB)
--------YVScroll.ctl(32KB)
--------YList.ctx(786B)
--------liehuo.net.txt(41B)
--------程序说明.txt(1KB)
--------YCheck.ctl(23KB)
--------Form1.frm(23KB)
--------YHScroll.ctl(32KB)
--------烈火下载站.url(191B)
--------MemDC.bas(6KB)
--------工程1.vbp(1KB)
--------YCommand.ctx(786B)
--------YList.ctl(45KB)
--------YVScroll.ctx(786B)
--------YTreeView.ctl(65KB)
--------YOption.ctl(24KB)
--------Common.bas(670B)
--------MdlCreateLogFont.bas(2KB)
--------YCombo.ctx(786B)
--------YHScroll.ctx(786B)
--------YCombo.ctl(30KB)
--------YCommand.ctl(24KB)
--------YListView.ctl(74KB)
--------YGroupList.ctl(48KB)
--------MdlSmoothDraw.bas(11KB)
--------YTab.ctl(41KB)
--------工程1.vbw(1KB)
--------YProgress.ctl(22KB)
--------YOption.ctx(786B)
--------MdlGDI.bas(43KB)
--------YForm.ctl(29KB)
--------YText.ctl(14KB)
--------YCheck.ctx(786B)
--------YPrompt.ctl(12KB)
--------工程1.RES(49KB)
--------YFrame.ctl(7KB)