zoukankan      html  css  js  c++  java
  • 支持Office Xp/2003样式的扁平ComboBox控件


    0 导论

    首先,在网上可以找到很多这样实现扁平效果的ComboBox代码.我试着实现了一个比较简单的ComboBox控件,但是它却有很多的功能.

    正如截图所示,你会发现在此控件中,我集成有如下的功能:支持大号字体,从右至左显示文字,两种下拉样式,当然还包括支持Office Xp/2003两种样式.

    1 两种不同样式下的状态

        捕捉_2.jpg
       从上到下依次是
    :正常状态,输入焦点时,不起作用,下拉状态.

    2 如何使用代码


    FlatComboBox
    是一个继承于.NetFrameworkWindows.Forms.ComboBox的用户控件
    通过重写类库中的WinProc来激活MouseMove等事件

     1Protected Overrides Sub WndProc(ByRef m As _
     2                       System.Windows.Forms.Message)
     3        MyBase.WndProc(m)
     4        Select Case m.Msg
     5
     6            Case &HF
     7                'WM_PAINT
     8
     9                '"simple" is not currently supported
    10                If Me.DropDownStyle = _
    11                           ComboBoxStyle.Simple Then Exit Sub
    12
    13                '==========START DRAWING===========
    14                g = Me.CreateGraphics
    15                'clear everything
    16                If Me.Enabled Then
    17                    g.Clear(Color.White)
    18                Else
    19                    g.Clear(Color.FromName("control"))
    20                End If
    21                'call the drawing functions
    22                DrawButton(g)
    23                DrawArrow(g)
    24                DrawBorder(g)
    25                DrawText(g)
    26                '===========STOP DRAWING============
    27
    28            Case 78&H7, &H8, &H200, &H2A3
    29                'CMB_DROPDOWN, CMB_CLOSEUP, WM_SETFOCUS, 
    30                'WM_KILLFOCUS, WM_MOUSEMOVE,  
    31                'WM_MOUSELEAVE (if you move the mouse fast over
    32                'the combobox, mouseleave doesn't always react)
    33
    34                UpdateState()
    35        End Select
    36End Sub

    37


    通过Public属性来切换两种样式(Xp/2003):

     1'Property to let the user change the style
     2    Public Property FlatComboStyle() As styles
     3        Get
     4            Return style
     5        End Get
     6        Set(ByVal Value As styles)
     7            style = Value
     8        End Set
     9    End Property

    10
    ps:本控件由vb.net实现.  可以通过在线转化工具很容易的转化成C#代码
    原文出处:http://www.codeproject.com/vb/net/FlatComboBox.asp
      源代码下载    Demo下载 
  • 相关阅读:
    [Objective-C语言教程]结构体(17)
    [Objective-C语言教程]字符串(16)
    [Swift]LeetCode827. 最大人工岛 | Making A Large Island
    [Swift]LeetCode826. 安排工作以达到最大收益 | Most Profit Assigning Work
    转 由一次磁盘告警引发的血案:du 和 ls 的区别
    Ant 参考
    转 Problem: AnyConnect was not able to establish a connection to the specified secu
    转 oracle 如何停下oracle 服务
    转: Windows如何打开和使用事件查看器管理计算机
    转: oracle 存储过程 执行动态 实现sql
  • 原文地址:https://www.cnblogs.com/finesite/p/275185.html
Copyright © 2011-2022 走看看