技术宅的结界

 找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 113|回复: 0
收起左侧

【VFB】自绘窗口与自绘控件(VFB教程4-3)

[复制链接]

47

主题

67

帖子

590

积分

用户组: 大·技术宅

UID
3260
精华
7
威望
12 点
宅币
463 个
贡献
1 次
宅之契约
0 份
在线时间
19 小时
注册时间
2017-12-26
发表于 2018-2-27 11:00:18 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有帐号?立即注册→加入我们

x

此处为VisualFreeBasic编程教程(从零开始学或VB进阶)的子章节部分,全部目录点链接。

看到许多漂亮的UI,许多人第一时间想到控件,可是那有人写好东西给你白用啊!

需要个性,需要漂亮,那就需要自己画了。

你所看到的,控件、窗口,等等一切,都是画上去的,可以说,是一笔一划,1个1个画的。

当然还有图片,文字。这一切操作系统给你画了,如果我们自己画,应该从何开始呢?

这就是我要说的,自绘

每个窗口或控件,啥时需要画画,操作系统会通知你,就是

1519020079339837.jpg

你自己画好后,就返回 Function=True ,系统就知道你自己画了,系统就不画了,

自绘固定模式模版,除了自己画画,其它就固定

你也可以不用内存DC,直接画,但效率低。

[Visual Basic] 纯文本查看 复制代码
  Dim nDC As hDC                 '控件或窗口的DC [/p]  Dim ps As PAINTSTRUCT          '绘画范围,就是排除被遮挡部分,系统处理,我们只要这么写就可以了。
  Dim As Long w,h,x,a
  nDC=BeginPaint(hWndControl,@ps) '获取需要绘画DC,推荐此方法,绘图效率高
  FF_Control_GetSize( hWndControl, w, h )
  Dim pMemBmp As CMemBmp = CMemBmp(w,h,nDC,,&HFF80FF)  '创建内存DC,先画内存DC,加速画画速度,避免产生闪耀 
  '需要内存DC类,必须在 FF_AppStart 模块里加   #include Once  "afx\CMemBmp.inc"
  '自己画画  ================================
  TextOut1 ( pMemBmp.GetMemDC,10,10,"漂亮的,个性的要自绘")
  TextOut1 ( pMemBmp.GetMemDC,10,40,"自绘固定模式例题")
  '自己画画完成 =========================
  BitBlt ndc,0,0,w,h,pMemBmp.GetMemDC,0,0,SrcCopy '将内存DC,输出到控件
  EndPaint(hWndForm,@ps) '完成绘图
  Function=True

Dim pMemBmp As CMemBmp = CMemBmp(w,h,目标DC,底色)

除了画画,当然还要使用,就必须处理鼠标事件,但是系统没提供鼠标移出事件

自绘第2模版,在自定义消息里

[Visual Basic] 纯文本查看 复制代码
Function FORM1_PICTURE1_CUSTOM ( _[/p]                               ControlIndex  As Long,  _     ' 控件数组索引
                               hWndForm      As HWnd, _      ' 窗体句柄
                               hWndControl   As HWnd, _      ' 控件句柄
                               wMsg          As UInteger,  _  ' 消息类型
                               wParam        As wParam, _    ' 第一个消息参数
                               lParam        As lParam   _   ' 第二个消息参数
                               ) As Long
Dim entTrack As tagTRACKMOUSEEVENT
Select Case  wMsg
    Case WM_MOUSELEAVE   '鼠标出窗口
'            鼠标在按钮 =0
'            鼠标按下=0
            FF_Redraw(hWndControl) '重绘控件
    Case WM_NCHITTEST        '启用鼠标出窗口检查 
        entTrack.cbSize=SizeOf(tagTRACKMOUSEEVENT)
        entTrack.dwFlags=TME_LEAVE
        entTrack.hwndTrack=hWndControl
        entTrack.dwHoverTime =HOVER_DEFAULT
        TrackMouseEvent @entTrack  
    Case  WM_ERASEBKGND 
         Function=1  '防止擦除背景
End Select
End Function

以上是,自己控制全部的画画和鼠标,数据处理等,一般用在 窗口和 Picture1 控件

为了方便使用,系统也为我们提供了自绘控件的方法,此时,我们只负责画画,其它原控件功能不变

1519021205526322.jpg

Lits\Combo\Button\ListView\Menu\Static\Tab 系统都为我们提供了自绘接口

下面就说说List,其它的可以看MSDN

需要在控件的父窗口,自定义里

[Visual Basic] 纯文本查看 复制代码
Function FORM1_CUSTOM ( _[/p]                      hWndForm      As HWnd, _      ' 窗体句柄
                      wMsg          As UInteger,  _  ' 消息类型
                      wParam        As wParam, _    ' 第一个消息参数
                      lParam        As lParam   _   ' 第二个消息参数
                      ) As Long
    Dim i      As Long
    Dim c      As Long
    Dim itd    As Long
    Dim rc     As Rect
    Dim lpdis  As DRAWITEMSTRUCT Ptr
    Dim wszTxt As WString * 300
    Dim TEXTMARGIN As Long 
    TEXTMARGIN =AfxScaleX(30) ' 文本左边的距
    Select Case wMsg
     Case WM_DRAWITEM    ' 在所有者描述的控件中绘制项目
        If wParam = IDC_FORM1_LIST1 Then    ' 控件 ID ,要描绘什么
            lpdis =Cast(Any Ptr, lParam)       ' CBLPARAM 指向 DRAWITEMSTRUCT 结构
            If lpdis->itemID = &HFFFFFFFF Then Exit Function '如果列表为空
            rc = lpdis->rcItem
 
            Select Case lpdis->itemAction
            Case ODA_DRAWENTIRE, ODA_SELECT '要绘画消息
 
                If (lpdis->itemState And ODS_SELECTED) = 0 Then                ' 未选中
                    FillRect lpdis->hDC, @rc, GetSysColorBrush(COLOR_WINDOW)    ' 清晰的背景
                    SetBkColor lpdis->hDC, GetSysColor(COLOR_WINDOW)           ' 文本背景
                    SetTextColor lpdis->hDC, GetSysColor(COLOR_WINDOWTEXT)     ' 文本颜色
                Else                                                            ' 处于选中状态
                    rc.Right = TEXTMARGIN - 2                                 ' 调整矩形的右边
                    FillRect lpdis->hDC, @rc, GetSysColorBrush(COLOR_3DFACE)    ' 位图背景
                    rc.Left = TEXTMARGIN - 2                                  ' 调整左边的矩形
                    rc.Right = lpdis->rcItem.Right                            ' 和右侧的矩形
                    FillRect lpdis->hDC, @rc, GetSysColorBrush(COLOR_HIGHLIGHT) ' "选定"的背景
                    SetBkColor lpdis->hDC, GetSysColor(COLOR_HIGHLIGHT)        ' 文本背景
                    SetTextColor lpdis->hDC, GetSysColor(COLOR_HIGHLIGHTTEXT)  ' 文本颜色
                End If
 
                ' Get/绘制当前项的文本
                ' 轻微调整文本位置
                 rc.Top +=1
                rc.Left= AfxScaleX(2)
                Dim hicon As  HICON  = LoadIcon(App.hInstance,"IMAGE_COPY") '从资源里加载图标
                DrawIconEx lpdis->hDC,rc.Left, rc.Top,hicon,16,16,0,0,DI_NORMAL     '描绘图标
                DestroyIcon hicon                                             '用后,句柄必须销毁
                rc.Left = TEXTMARGIN
                Dim   ttt(2) As String ={"这是自绘List","在窗口样式里设置自绘","这里的内容是在属性里添加的"} '给数组赋值
                DrawText lpdis->hDC, ttt(lpdis->itemID), Len(ttt(lpdis->itemID)), @rc, DT_SINGLELINE Or DT_LEFT Or DT_VCENTER
                Function = True
                Exit Function
            End Select
        End If
   End Select
End Function




本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|技术宅的结界 ( 滇ICP备16008837号|网站地图

GMT+8, 2018-7-18 14:57 , Processed in 0.080126 second(s), 17 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表