VC6中实现DataGid用shift+鼠标左键选取n条记录(附VB参考)

最新推荐文章于 2024-01-28 21:33:28 发布

xuejiming

最新推荐文章于 2024-01-28 21:33:28 发布

阅读量1k

点赞数

分类专栏：编程技巧文章标签： vb datagrid integer bookmarks collections 微软

本文链接：https://blog.csdn.net/xuejiming/article/details/3886263

版权

这篇博客介绍了如何在VC6中通过监听Shift+鼠标左键点击来实现DataGrid控件中选取连续的多条记录，涉及到SelBookmarks集合的Add方法和GetBookmark函数的应用。同时提供了VB程序参考，利用GetKeyState API判断Shift键状态，并根据当前活跃记录位置进行增删选择。

摘要由CSDN通过智能技术生成

以下是VC6程序片段：

void CDataGrid::OnLButtonDown(UINT nFlags, CPoint point)
{
// TODO: Add your message handler code here and/or call default
//MessageBox("Lb");
if(nFlags==MK_SHIFT + MK_LBUTTON)
{
//MessageBox("Lb+shift");
m_dForePos=this->GetBookmark().date;
}
CWnd::OnLButtonDown(nFlags, point);
}

void CDataGrid::OnLButtonUp(UINT nFlags, CPoint point)
{
// TODO: Add your message handler code here and/or call default
if(nFlags==MK_SHIFT)
{
  //MessageBox("Lb+shift");
  m_dNowPos=this->GetBookmark().date;
  if(m_dNowPos>m_dForePos)
  {
   for(double d=m_dForePos;d<=m_dNowPos;d++)
   {
    CSelBookmarks(this->GetSelBookmarks()).Add(_variant_t(d));
   }
  }

if(m_dNowPos<m_dForePos)