自制的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---大图标)
1