控件使用
文章平均质量分 78
homezj
这个作者很懒,什么都没留下…
展开
-
ToolBar的模样自己画(二)
进入正题了,下面就该是类中的代码了,因为主要是利用API,所以声明很多,耐心点吧!类模块中的代码:类名cToolbarOption ExplicitPrivate Const CDDS_ITEM As Long = &H10000Private Const CDDS_PREPAINT As Long = &H1Private Const CDDS_ITEMPREPAINT As Long = (原创 2005-04-12 19:07:00 · 1353 阅读 · 0 评论 -
ToolBar的模样自己画(一)
MS的ToolBar是是最容易找到找的工具栏控件了,简单方便实用,但它的缺点也是明显的,样式古板,与这个时代有点不合拍。为解决这个问题,我专门写了一个类。 其实ToolBar提供了一个CustomDraw功能,MS为你已搭好了ToolBar的框架,只是ToolBar的模样交给你自己绘,很简单地,就可以用任意你想要的模样,使用ToolBar的所有功能,这比自己做ToolBar是不是更容原创 2005-04-12 19:03:00 · 1954 阅读 · 4 评论 -
ToolBar的模样自己画(四)
几个GDI绘图函数功能的封装,有一定通用性,有些是我平时自己就喜欢用的模块。Private Function NewMyHdc(dHdc As Long, w As Long, h As Long, Optional Bm As Long) As MemHdc With NewMyHdc .hdc = CreateCompatibleDC(dHdc) If Bm原创 2005-04-12 19:20:00 · 2249 阅读 · 0 评论 -
ToolBar的模样自己画(三)
类中的各种属性与方法,主要用于外部调用Friend Property Let BorderColor(ByVal vData As Long) If m_lngBrdColor m_lngBrdColor = vData If m_lngBrdStyle > 3 Then Refresh End IfEnd PropertyFriend Property原创 2005-04-12 19:17:00 · 2254 阅读 · 0 评论 -
ToolBar的模样自己画(五)
最后一部分,也是最核心的消息处理代码与主绘图过程Friend Function MsgProc(lParam As Long, MouseDown As Boolean) As Long Dim tHDR As NMHDR Dim className As String * 32 Dim retval As Long CopyMemory tHDR, ByVal lPar原创 2005-04-12 19:23:00 · 2717 阅读 · 0 评论