VC ListBox添加水平滚动条

在MFC中，用列表框（CListBox）来显示多个字符串是一种很方便的方法。
但缺省的列表框水平滚动条不够智能——这里智能的含义是：在应该出现的时候
出现，不应该出现的时候消失，而且应能自动调节自己的大小。本文通过实例
说明了存在的问题和解决办法。  

----   一、问题演示  

----   首先用Visual   Studio应用向导创建工程CustomCListBox。这是一个基于
对话框的应用，向导提供的所有可选参数均采用其缺省值。  

----   在资源编辑器中将对主话框字体设为宋体12，插入一个CListBox控制，
设其ID为IDC_LLISTTEST，大小为125   X   84。   请确认列表框的垂直滚动条、
水平滚动条有效，取消其排序风格。  

----   启动Class   Wizard，选择Member   Variables选项卡，为列表框加入对应
的成员变量m_lListTest，在Category中选择Control。  


----   接下来在Workspace窗格中选择ClassView，扩展CCustomCListBoxDlg类
并双击OnInitDialog()，在编辑窗格中找到注释行“TODO:   Add   extra
initialization   here”，在该行下面加入以下内容：  

m_lListTest.AddString(_T( "One "));
m_lListTest.AddString(_T( "Two "));
m_lListTest.AddString(_T( "Three "));
m_lListTest.AddString(_T( "Four "));
m_lListTest.AddString(_T( "Five "));
m_lListTest.AddString(_T( "Six "));
m_lListTest.AddString(_T( "北国风光，千里冰封，万里雪飘。 "));
m_lListTest.AddString(_T( "Eight "));
m_lListTest.AddString(_T( "Nine "));
m_lListTest.AddString(_T( "Ten "));

----   编译并运行这个工程，可以发现列表框能够正确显示全部内容。  

----   如果在上述m_lListText.AddString(_T "Ten "))后面加入一行：  

m_lListTest.AddString(_T( "Eleven "));

----   重新编译并运行该工程，可以发现出现了一个垂直滚动条。垂直滚动条
的出现使得列表框水平方向有效显示宽度变小，第七行的内容被切割而不能完
整显示。但此时水平滚动条并没有自动出现，第七行被切割部分就无法看到了。  

----   如果我们删除最后加入的语句，把第七行汉字加长到超出列表框显示宽
度为止，也可以发现水平滚动条不会自动出现。被切割部分仍旧无法看到。  

----   由此可知，CListBox的水平滚动条并不象垂直滚动条那样“聪明”：垂
直滚动条总是能够在需要它的时候自动出现，并能够自动调节自身大小，而水
平滚动条不能。  

----   二、解决问题   //派生类可以在基类上添加新的功能，或者修改原有功能。个人理解；

----   为提高代码的可重用性，可以创建CListBox的派生类，在派生类中实现
“智能”水平滚动条。需要考虑的主要问题包括：跟踪最大字符串宽度（应能
适应不同场合下的字体变化），必要时计算垂直滚动条宽度，自动显示和调节
水平滚动条的大小。  

----   选菜单   Insert/New   Class，设新创建类的名字为CDJListBox，其基类为
CListBox，其它选项采用缺省值。单击OK，Visual   Studio自动生成
DJListBox.cpp和DJListBox.h两个文件。  

----   接下来将主对话框的列表框改为CDJListBox类型，即在CLassView扩展
CCustomListBoxDlg类并双击m_lListTest成员，在编辑窗格，修改  

CListBox   m_lListTest;

----   为：  

CDJListBox   m_lListTest;

----   然后，在类声明代码之前，插入  

#include   "DJListBox.h "

----   此时如果重新编译并运行，是无法看到任何实质性的改变的，因为我们
并没有修改CDJListBox。所有对于CDJListBox的调用都直接传递给基类
CListBox了。  

----   跟踪字符串最大宽度可以通过覆盖CListBox::AddString()实现。打开
DJListBox.h，紧接类的析构函数加入如下声明：  

int   AddString(   LPCTSTR   lpszItem   );

----   并在实现文件DJListBox.cpp加入该函数框架：  

int   CDJListBox::AddString(LPCTSTR   lpszItem)
{
//此处加入字符串宽度跟踪、水平滚动条显示等代码
}

----   字符串宽度跟踪可以用整形成员变量m_nMaxWidth实现。在DjListBox.h
的protected声明区内，加入以下一行：  

int   m_nMaxWidth;

----   在DJListBox.cpp文件，找到CDJListBox的建构函数，为这个最大宽度
作初始化：  

m_nMaxWidth   =   0;

----   现在可以改动新加入的AddString()了。先应该调用基类AddString()，
并用nRet记录其返回值：  

int   nRet   =   CListBox::AddString(lpszItem);

----   接下来调用GetScrollInfo()以获得垂直滚动条的相关信息。这些信息是
通过一个SCROLLINFO结构传递的，下面是对该结构初始化并调用
GetScrollInfo()的代码：  

SCROLLINFO   scrollInfo;
memset(&scrollInfo,   0,   sizeof(SCROLLINFO));
scrollInfo.cbSize   =   sizeof(SCROLLINFO);
scrollInfo.fMask   =   SIF_ALL;
GetScrollInfo(SB_VERT,   &scrollInfo,   SIF_ALL);

----   在调试器内观察SCROLLINFO，可以发现要获得nMax和nPage的正确数值，
列表框至少应含有一个字符串。SCROLLINFO的成员nPage保存了列表框“每页”
能够显示的项目数，nMax是列表框内项目总数。当nMax大于或等于nPage，就
出现了垂直滚动条。我们需要知道垂直滚动条的宽度以正确计算列表框的有效
显示宽度。这里使用一个初始值为0的整数nScrollWidth表示，并在垂直滚动条
显示时将它赋值：  

int   nScrollWidth   =   0;
if(GetCount()   >   1   &&   ((int)scrollInfo.nMax  
>   =   (int)scrollInfo.nPage))
{
nScrollWidth   =   GetSystemMetrics(SM_CXVSCROLL);
}

----   接下来声明一个SIZE变量sSize，并实例化对话框的CClientDC：  

SIZE   sSize;
CClientDC   myDC(this);

----   对话框所采用的字体，有可能是缺省字体，也有可能是有目的的选择。
在对话框编辑器中右击对话框，并选择Properties可以查看当前值。虽然
MyDC是从列表框取得的，但列表框字体信息并未包含在MyDC中。也就是说，
对话框创建时所用字体并没有“选入”CClientDC。要从
GetTextExtentPoint32()获得真正的字符串大小，应该先调用GetFont()获
得列表框的字体信息，然后将此字体选入MyDC，代码为：  

CFont*   pListBoxFont   =   GetFont();
if(pListBoxFont   !=   NULL)
{
CFont*   pOldFont   =  
myDC.SelectObject(pListBoxFont);

----   现在可以调用GetTextExtendPoint32()函数来获得字符串的宽度了。
字符串的宽度由sSize结构的cx成员返回，将该值和已有最大宽度相比较：  

GetTextExtentPoint32(myDC.m_hDC,  
lpszItem,   strlen(lpszItem),   &sSize);
m_nMaxWidth   =   max(m_nMaxWidth,   (int)sSize.cx);

----   剩下的重要工作之一，就是设置水平滚动条的大小了。这可以通过调
用SetHorizontalExtent()完成。如果传递给它的整形参数比列表框本身宽度小，
则水平滚动条被隐藏。  

----   这里有一个容易被忽略的地方。如果仔细观察CListBox，可以发现文
本左边有一栏小小的空白，它的大小为3   。这部分宽度应该加到文本宽度
上。如果希望在文本右边也同样空出一栏，则可以在文本宽度上再加3。  

SetHorizontalExtent(m_nMaxWidth   +   3);

----   在结束之前，我们需要为MyDC选入原有字体。原有字体保存在pOldFont
中：  

myDC.SelectObject(pOldFont);   }

return   nRet;

----   编译并执行新的代码，可以看到水平滚动条终于能够自动显示了。  

----   三、其它问题  

----   在实际应用中，凡是改变列表框内容的函数都可能影响水平滚动条的显
示要求，因而也必须加以定制。但其基本过程——计算文本宽度并按指定大
小显示滚动条等，和上述讨论过程是相似的。  

----   CListBox类能够改变列表内容的方法除AddString()外，还有
DeleteString()，InsertString()，ResetContent()。其中InsertString()用
于在指定位置插入字符串，在本文讨论的主题内它和AddString()是一样的。  

----   DeleteString()删除一个字符串，在派生类中其参考代码如下：  

int   CDJListBox::DeleteString(UINT   nIndex)
{
RECT   lRect;
GetWindowRect(&lRect);

int   nRet   =   CListBox::DeleteString(nIndex);

int   nBoxWidth   =   lRect.right   -   lRect.left;
m_nMaxWidth   =   nBoxWidth;

SIZE   sSize;
CClientDC   myDC(this);

int   i;
char   szEntry[257];

for   (i   =   0;   i   nBoxWidth)   //   显示水平滚动条
{
ShowScrollBar(SB_HORZ,   TRUE);
SetHorizontalExtent(m_nMaxWidth);
}  
else  
{
ShowScrollBar(SB_HORZ,   FALSE);
}
return   nRet;
}

----   ResetContent()用于清除列表框的全部内容。在派生类中其参考代码如下：  

void   CDJListBox::ResetContent()
{
CListBox::ResetContent();

m_nMaxWidth   =   0;
SetHorizontalExtent(0);

}