ToolBar的模样自己画（三）

'类中的各种属性与方法，主要用于外部调用 Friend Property Let BorderColor(ByVal vData As Long) If m_lngBrdColor <&

'几个GDI绘图函数功能的封装，有一定通用性，有些是我平时自己就喜欢用的模块。 Private Function NewMyHdc(dHdc As Long, w As Long, h As Long

'最后一部分，也是最核心的消息处理代码与主绘图过程 Friend Function MsgProc(lParam As Long, MouseDown As Boolean) As Long

进入正题了，下面就该是类中的代码了，因为主要是利用API，所以声明很多，耐心点吧！ '类模块中的代码:类名cToolbar Option Explicit Private Const CDDS_ITE

'类中的各种属性与方法，主要用于外部调用 Friend Property Let BorderColor(ByVal vData As Long) If m_lngBrdColor <&

进入正题了，下面就该是类中的代码了，因为主要是利用API，所以声明很多，耐心点吧！ '类模块中的代码:类名cToolbar Option Explicit Private Const CDDS_ITE

MS的ToolBar是是最容易找到找的工具栏控件了，简单方便实用，但它的缺点也是明显的，样式古板，与这个时代有点不合拍。为解决这个问题，我专门写了一个类。 其实ToolBar提供了一个Cust

'最后一部分，也是最核心的消息处理代码与主绘图过程 Friend Function MsgProc(lParam As Long, MouseDown As Boolean) As Long

'几个GDI绘图函数功能的封装，有一定通用性，有些是我平时自己就喜欢用的模块。 Private Function NewMyHdc(dHdc As Long, w As Long, h As Long

MS的ToolBar是是最容易找到找的工具栏控件了，简单方便实用，但它的缺点也是明显的，样式古板，与这个时代有点不合拍。为解决这个问题，我专门写了一个类。 其实ToolBar提供了一个Cust