再谈FreeBasic下通过WM_DRAWITEM消息实现按钮自绘

FreeBasic编程：控件自绘实现WM_DRAWITEM消息详解

原创

已于 2022-11-17 09:47:53 修改 · 378 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#经验分享 #windows #开发语言 #青少年编程

于 2022-11-16 15:34:23 首次发布

本文介绍了如何使用FreeBasic编程实现控件自绘，特别是针对按钮控件在WM_DRAWITEM消息下的自绘方法。通过添加BS_OWNERDRAW样式，根据DRAWITEMSTRUCT结构的状态值绘制不同效果，如默认、焦点和选中状态。同时讲解了处理鼠标移入移出事件以实现视觉反馈，并提供了示例代码进行详细说明。

前言：

由于网上对于FreeBaisc编程实现控件自绘的文章较少，所以本人在此分享个人FB编程经验。

控件的自绘除了自行处理WM_NOTIFY消息下的NM_CUSTOMDRAW状态，还可以在WM_DRAWITEM消息下实现自绘功能。主要区别在于NM_CUSTOMDRAW具有鼠标热点跟踪事件，而WM_DRAWITEM消息需要自行处理鼠标的移入移除效果。

下面以按钮控件举例，介绍下如何在WM_DRAWITEM消息中完成按钮的自绘。

一、给按钮控件添加BS_OWNERDRAW样式，然后在窗口过程中即可接收到WM_DRAWITEM消息，在此消息中wParam为一个指向DRAWITEMSTRUCT结构的地址。判断itemAction状态值是否为ODA_DRAWENTIRE或ODA_FOCUS或ODS_SELECTED，来按需绘制自己的按钮样式。

case WM_DRAWITEM
  dim idCtl as UINT = wParam
  dim lpdis as DRAWITEMSTRUCT ptr = cPtr( DRAWITEMSTRUCT ptr, lParam )
            
  select case( idCtl )
    case IDC_BUTTON1
      if lpdis->itemAction = ODA_DRAWENTIRE then
         '
         ' 这里写控件默认时的按钮效果
         '
      end if

      if lpdis->itemAction = ODA_FOCUS then
         ' 检查是否出于获得焦点下
         if lpdis->itemState = ODS_FOCUS then
            '
            ' 这里写控件获得焦点时的按钮效果
            '
         end i