[求助]Panel 边框颜色 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有啥办法能看到呢?

把挡住panel的控件缩小

有办法加大边框吗？

只能把挡住panel的控件缩小，或者把panel设置大一点

Dim controlname As String

If TypeOf e.sender Is WinForm.Panel Then

controlname = e.sender.name

ElseIf e.sender.parent IsNot Nothing Then

If TypeOf e.sender.Parent Is WinForm.Panel Then

controlname = e.sender.parent.name

End If

Vars("序号") = controlname

Dim l As Integer = Tables("桌台信息").Rows.Count

For i As Integer = 0 To l - 1

Dim r As Row = Tables("桌台信息").Rows(i)

Forms("菜单").Controls(r("序号")).BorderStyle = BorderStyle.None

Forms("菜单").Controls(r("序号")).BackColor = Color.Lightgray

If TypeOf e.sender Is WinForm.PictureBox Then

Dim tt As system.windows.forms.panel = Forms("菜单").Controls(controlname).basecontrol

AddHandler tt.paint, AddressOf panel_paint

tt.refresh

End If

把panel设置大一点了，但以前选过的边柜不消失

Forms("菜单").Controls(r("序号")).BorderStyle = BorderStyle.None

Forms("菜单").Controls(r("序号")).BackColor = Color.Lightgray 这个语句不管用吗？

解除上次选定控件的事件：https://www.baidu.com/s?wd=vb.net%20RemoveHandler

Dim tt As system.windows.forms.panel = Forms("菜单").Controls(上次选定的panel控件).basecontrol

RemoveHandler tt.paint, AddressOf panel_paint

     Dim controlname As String
    If TypeOf e.sender Is WinForm.Panel Then
        controlname = e.sender.name
    ElseIf e.sender.parent IsNot Nothing Then
        If TypeOf e.sender.Parent Is WinForm.Panel Then
            controlname = e.sender.parent.name
        End If
    End If

    '    If Tables("main").Current("所选桌台") > "" Then
    Dim hf As system.windows.forms.panel = Forms("菜单").Controls(Tables("main").Current("所选桌台")).basecontrol
    RemoveHandler hf.paint, AddressOf panel_paint
    '    End If

    Vars("序号") = controlname
    Dim l As Integer = Tables("桌台信息").Rows.Count
    For i As Integer = 0 To l - 1
        Dim r As Row = Tables("桌台信息").Rows(i)
        Forms("菜单").Controls(r("序号")).BorderStyle = BorderStyle.None
        Forms("菜单").Controls(r("序号")).BackColor = Color.Lightgray
    Next

    If TypeOf e.sender Is WinForm.PictureBox Then
        Dim tt As system.windows.forms.panel = Forms("菜单").Controls(controlname).basecontrol
        AddHandler tt.paint, AddressOf panel_paint
        tt.refresh
    End If
    If TypeOf e.sender Is WinForm.PictureBox Then
        e.Form.Controls("TextBox1").Text = Vars("序号")
        Dim zt As DataRow = DataTables("桌台信息").SQLFind("序号='" & Vars("序号") & "'")
        e.Form.Controls("xz").Text = zt("桌台号") & zt("图标类型")
        Tables("main").Current("所选桌台") = controlname
        Tables("main").save
    End If

我是这样写的，不好用，老师

和表格当前行没有半毛钱的关系。在点击事件里使用全局变量记录一下鼠标点击的是哪个panel

我用Tables("main").Current("所选桌台") 这个字段记录，之前点的是哪个panel

主题：[求助]Panel 边框颜色