首 页 ┆ 源码下载 ┆ IT学院 ┆ 字体下载 ┆ 模板下载 ┆ 源码发布 ┆ 广告合作 ┆ 网站地图 ┆ 虚拟主机 ┆ 中文域名
► 设为首页
► 加入收藏
► 联系我们
源码下载 >> ASP源码 | PHP源码 | ASP.net源码 | JSP源码 | CGI源码 | VC/C++源码 | VB源码 | Delphi源码 | Flash源码
文章学院 >> 网络编程 | 网页设计 | 图形图象 | 数据库 | 服务器 | 网络媒体 | 网络安全 | 操作系统 | 办公软件 | 软件开发 | 黑客知识
字体下载 >> 精制字体 | 非英字体 | 艺术字体 | 著名字体 | 哥特式 | 简单字体 | 手写体 | 节假日 | 图案字体 | 精度像素 | 中文字体
模板下载 >> 企业门户 | 数码网络 | 休闲娱乐 | 影视音乐 | 旅游名胜 | 文化艺术 | 电子商务 | 个性展示 | 登陆导航 | Flash模板
►►您当前的位置:源码园 → IT学院 → 软件开发 → VC编程 → 文章内容

VC控件 TreeCtrl 与 ListCtrl 演示

作者:佚名  来源:网上收集  发布时间:2007-3-27 10:14:39
 

VC控件 TreeCtrl 与 ListCtrl 演示
VC6,xp下编译通过。
   
VC初学者,如有不足之处,请来信指教(waysen01@st.lzu.edu.cn)。


作者:兰州大学现物系 王景生

下载源代码


这个例子类似于 Windows 的资源管理器,程序运行界面如图一所示:


图一

主要用到的类有:
CListCtrl,CTreeCtrl,CImageList,CFileFind 和函数SHGetFileInfo()

简述步骤如下:
1、增加 TreeCtrl 的 TVS_HASBUTTONS,TVS_HASLINES、TVS_LINESATROOT Style,代码如下:

DWORD dwStyle = GetWindowLong(m_tree.m_hWnd,GWL_STYLE);    dwStyle |= TVS_HASBUTTONS | TVS_HASLINES | TVS_LINESATROOT;    SetWindowLong(m_tree.m_hWnd,GWL_STYLE,dwStyle);
2、为TreeCtrl添加Root项:
m_hRoot = m_tree.InsertItem("我的电脑");     InsertItem()的函数原形为     HTREEITEM InsertItem( LPCTSTR lpszItem, HTREEITEM hParent = TVI_ROOT,      HTREEITEM hInsertAfter = TVI_LAST );
3、获取本地逻辑驱动器,并添加:
void CTreeViewDlg::GetLogicalDrives(HTREEITEM hParent)    {         size_t szAllDriveStrings = GetLogicalDriveStrings(0,NULL);char *pDriveStrings = new char[szAllDriveStrings + sizeof(_T(""))];GetLogicalDriveStrings(szAllDriveStrings,pDriveStrings);size_t szDriveString = strlen(pDriveStrings);while(szDriveString > 0){m_tree.InsertItem(pDriveStrings,hParent);pDriveStrings += szDriveString + 1;szDriveString = strlen(pDriveStrings);}    }
4、添加TVN_EXPANDED消息处理函数,当一项展开时,为其子项添加下一级目录:
void CTreeViewDlg::OnItemexpandedTree(NMHDR* pNMHDR, LRESULT* pResult)     {NM_TREEVIEW* pNMTreeView = (NM_TREEVIEW*)pNMHDR;// TODO: Add your control notification handler code hereTVITEM item = pNMTreeView->itemNew;if(item.hItem == m_hRoot)return;        HTREEITEM hChild = m_tree.GetChildItem(item.hItem);while(hChild){AddSubDir(hChild);hChild = m_tree.GetNextItem(hChild,TVGN_NEXT);}*pResult = 0;    }
AddSubDir函数功能添加子项,具体代码见示例。

5、添加TVN_SELCHANGED消息处理函数,在这个函数里,用GetFullPath()取得选中项的绝 路径(GetFullPath()具体代码看示例),在ListCtrl中添加文件而非文件夹的图标:
void CTreeViewDlg::OnSelchangedTree(NMHDR* pNMHDR, LRESULT* pResult)     {m_list.DeleteAllItems();NM_TREEVIEW* pNMTreeView = (NM_TREEVIEW*)pNMHDR;TVITEM item = pNMTreeView->itemNew;if(item.hItem == m_hRoot)return;CString str = GetFullPath(item.hItem);        if(str.Right(1) != "\\")   str += "\\";str += "*.*";CFileFind file;BOOL bContinue = file.FindFile(str);while(bContinue){bContinue = file.FindNextFile();if(!file.IsDirectory() && !file.IsDots()){    SHFILEINFO info;CString temp = str;int index = temp.Find("*.*");temp.Delete(index,3);    SHGetFileInfo(temp + file.GetFileName(),    0,    &info,sizeof(&info),    SHGFI_DISPLAYNAME | SHGFI_ICON);    int i = m_ImageList.Add(info.hIcon);    m_list.InsertItem(i,info.szDisplayName,i);}}*pResult = 0;    }
    这只是一个简单的例子,你可以在 ListCtrl 中添加鼠标双击消息的处理函数,用 Process 打开该选中的文件; 该示例在
[] [返回上一页] [打 印]
  • 上一篇文章:在MDI程序中实现类似WPS2000的文件切换标签
  • 下一篇文章:可设置单元格颜色的ClistCtrl类

  • 相关文章:
  • [图文]VC控件 TreeCtrl 与 ListCtrl 演示
关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 - 源码发布
Copyright © 2003-2009 Ymyasp.Com. All Rights Reserved .
备案序号:粤ICP备07029071号