当前位置: 王朝网络 >> other >> ToolBar的模样自己画（五）

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

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。