总是白色的,难看

解决方案 »

  1.   

    子类自己画
    或在父窗体中处理WM_CTLCOLORSCROLLBAR消息
      

  2.   

    http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/scrollbars/scrollbarreference/scrollbarmessages/wm_ctlcolorscrollbar.asp
    你看看把,我没试
    框架如下
    http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q244/2/36.ASP&NoWebContent=1
      

  3.   

    把上面的代码中的部分换成这个即可
       If uMsg <> WM_CTLCOLORSCROLLBAR Then
          Debug.Print uMsg, hw
          WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
       else
          WindowProc=CreateSolidBrush(vbBlue)
       End If