请问下SGrid2里面的那个拖动一列时,那个显示的随鼠标移动的标头图标是如何实现的,我已经看了原代码,但还是没找出答案。

解决方案 »

  1.   

    终于看到有人也跟我一样在用sGrid了,
      

  2.   

    是拖动一列时,那个列Header就会跟随鼠标移动的那种效果
      

  3.   

    好像就是下面這几句吧:
          lhDCDisp = CreateDC("DISPLAY", ByVal 0&, ByVal 0&, ByVal 0&)
          lhDC = CreateCompatibleDC(lhDCDisp)
          lhBmp = CreateCompatibleBitmap(lhDCDisp, lWidth, lHeight)
          DeleteDC lhDCDisp
          lhBmpOld = SelectObject(lhDC, lhBmp)
          ' Draw the item onto the DC:
          hFontOld = SelectObject(lhDC, m_hFnt)
          DrawGroupedHeaderItem lhDC, lIndex, tR
          SelectObject lhDC, hFontOld
          ' Select the bitmap out:
          SelectObject lhDC, lhBmp
          ' Clear up DC:
          DeleteDC lhDC
          
          ' Add the bitmap to the ImageList:
          ImageList_AddMasked m_hImlDragImageList, lhBmp, &H10101