Panel控件有什么特殊的地方吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Panel控件有什么特殊的地方吗？

共有2071人关注过本帖树形打印复制链接主题：Panel控件有什么特殊的地方吗？

Hopenight

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：862 积分：10841 威望：0 精华：0 注册：2016/5/6 14:34:00

Panel控件有什么特殊的地方吗？ 发帖心情

Post By：2017/5/23 17:21:00 [只看该作者]

我在程序中想给Panel边框重绘一下颜色，用自己的处理函数绑定了Panel控件的Paint事件。如下：

Public Shared Sub OwnDrawBorder(ByRef panel As WinForm.Panel)
        Dim panelBase As Panel = panel.BaseControl
        AddHandler panelBase.Paint, AddressOf Panel_DrawBorder
End Sub

Public Sub Panel_DrawBorder(sender As Object, e As PaintEventArgs)
        Dim panel As Panel = CType(sender, Panel)
        Const width As Integer = 1
        ControlPaint.DrawBorder(
                                e.Graphics, panel.ClientRectangle,
                               Color.FromArgb(111, 157, 217), width, ButtonBorderStyle.Solid,
                               Color.FromArgb(111, 157, 217), width, ButtonBorderStyle.Solid,
                               Color.FromArgb(111, 157, 217), width, ButtonBorderStyle.Solid,
                               Color.FromArgb(111, 157, 217), width, ButtonBorderStyle.Solid
                            )
    End Sub

但是跟踪了一下代码，貌似Panel控件的Paint事件并没有被触发。

难道狐表中的Panel控件基类不是标准的Panel控件吗？

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/23 17:56:00 [只看该作者]

你需要刷新控件

Dim p = Forms("窗口1").controls("panel1").basecontrol
p.refresh

Hopenight

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：862 积分：10841 威望：0 精华：0 注册：2016/5/6 14:34:00

Post By：2017/5/23 18:04:00 [只看该作者]

以下是引用有点色在2017/5/23 17:56:00的发言：

你需要刷新控件

Dim p = Forms("窗口1").controls("panel1").basecontrol
p.refresh

试过了，refresh也没用

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/23 18:07:00 [只看该作者]

我测试有效

全局代码

Public Sub OwnDrawBorder(ByRef panel As WinForm.Panel)
Dim panelBase As windows.forms.Panel = panel.BaseControl
AddHandler panelBase.Paint, AddressOf Panel_DrawBorder
msgbox(123)
End Sub

Public Sub Panel_DrawBorder(sender As Object, e As windows.forms.PaintEventArgs)
Dim panel As windows.forms.Panel = sender
Const width As Integer = 1
windows.forms.ControlPaint.DrawBorder( _
e.Graphics, panel.ClientRectangle, _
Color.FromArgb(111, 157, 217), width, Windows.Forms.ButtonBorderStyle.Solid, _
Color.FromArgb(111, 157, 217), width, Windows.Forms.ButtonBorderStyle.Solid, _
Color.FromArgb(111, 157, 217), width, Windows.Forms.ButtonBorderStyle.Solid, _
Color.FromArgb(111, 157, 217), width, Windows.Forms.ButtonBorderStyle.Solid _
)
output.show(Date.now)
End Sub

绑定事件

OwnDrawBorder(e.Form.controls("panel1"))

刷新调用pain事件

Dim a = Forms("窗口1").controls("panel1").basecontrol
a.refresh