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

以下是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)