VC6.0中在CSliderCtrl控件移动滑块动态的显示tooltip

最近做的一个项目中需要播放一个文件，需要在拖动“进度条”（用滑块控件模拟的）的过程中动态悬浮显示当前位置处播放文件内的特定内容。下面是使用CToolTipCtl类简单模拟该过程。

1、使用ClassWizard给CSliderCtrl控件关联一个CSliderCtrl类型的成员变量m_ctlSlider，在包含该滑块的对话框类中添加一个CToolTipCtl类型的成员变量m_objToolTip。

2、在包含该滑块的对话框类的OnInitDialog成员函数中添加如下代码：

// TODO: Add extra initialization here
	m_ctlSlider.SetRange(0, 100);
	CSliderCtrl *pSlider = (CSliderCtrl *)GetDlgItem(IDC_SLIDER);
	m_objToolTip.Create(pSlider);

	CString strText;
	strText.Format("%d", pSlider->GetPos());
	m_objToolTip.AddTool(pSlider, strText);

3、给包含该滑块的对话框类添加虚拟函数（在类视图上的该类上右键“Add Virtual Function...”）PreTranslateMessage，在该虚拟函数中添加如下代码：

// TODO: Add your specialized code here and/or call the base class
	m_objToolTip.RelayEvent(pMsg);

4、为了相应移动滑块事件，为包含该滑块的对话框类添加事件响应函数（在类视图上的该类上右键“Add Windows Message Handler...”），在该事件响应函数中添加如下代码：

// TODO: Add your message handler code here and/or call default
	CSliderCtrl *pSlider = (CSliderCtrl *)GetDlgItem(IDC_SLIDER);
	CString strText;
	strText.Format("%d", m_ctlSlider.GetPos());
	m_objToolTip.UpdateTipText(strText, pSlider);

效果图如下（移动滑块的过程中一直有tooltip，类似鼠标拖动调节Windows系统的声音时的效果）：

另外为了在拖动到一定位置处释放鼠标时，执行某种操作（如鼠标拖动调节Windows系统的声音时，释放鼠标时会有个铃响），可以为滑块控件添加消息响应函数（在ClassWizard中为该滑块控件添加NM_RELEASEDCAPTURE消息），在OnReleasedcaptureSlider中添加需要的操作。