[浏览完整版]
标题：[求助]Panel 边框颜色
1楼
hunanwl 发表于：2018/6/7 20:36:00Panel 边框颜色 如何设定
[此贴子已经被作者于2018/6/7 20:36:29编辑过]
2楼
有点甜 发表于：2018/6/7 20:48:00全局代码
Public Sub panel_Paint(sender As Object, e As windows.forms.PaintEventArgs)
windows.forms.ControlPaint.DrawBorder(e.Graphics, sender.ClientRectangle, Color.White, 10, windows.forms.ButtonBorderStyle.Solid, Color.White, _
10, windows.forms.ButtonBorderStyle.Solid, Color.DimGray, 10, windows.forms.ButtonBorderStyle.Solid, Color.DimGray, _
10, windows.forms.ButtonBorderStyle.Solid)
End Sub
绑定事件
Dim p As windows.forms.panel = e.form.controls("panel1").basecontrol
addhandler p.paint, addressof panel_paint
p.refresh
3楼
xxfoxtable 发表于：2023/10/9 9:59:00
此主题相关图片如下：2.png
放全局变量里，报错
4楼
有点蓝 发表于：2023/10/9 10:12:00windows.forms
改为
system.windows.forms
5楼
xxfoxtable 发表于：2023/10/9 10:58:00 AddHandler p.paint, AddressOf panel_paint
p.refresh
能把边框加粗吗？
6楼
有点蓝 发表于：2023/10/9 11:19:007楼
xxfoxtable 发表于：2023/10/9 13:54:00 对小白来说，看这个难点大呀
8楼
有点蓝 发表于：2023/10/9 14:10:00把2楼里的数字改改呗
9楼
xxfoxtable 发表于：2023/10/9 18:45:00Public Sub panel_Paint(sender As Object, e As system.windows.forms.PaintEventArgs) '给panel加边框颜色
system.windows.forms.ControlPaint.DrawBorder(e.Graphics, sender.ClientRectangle, Color.blue, 20, system.windows.forms.ButtonBorderStyle.Solid, Color.blue, _
20, system.windows.forms.ButtonBorderStyle.Solid, Color.blue, 20, system.windows.forms.ButtonBorderStyle.Solid, Color.blue, _
20, system.windows.forms.ButtonBorderStyle.Solid)
End Sub
If TypeOf e.sender Is WinForm.PictureBox Then
Dim p As system.windows.forms.panel = Forms("菜单").Controls(controlname).basecontrol
AddHandler p.paint, AddressOf panel_paint
p.refresh
End If
老师，我是这样写的，没有效果啊
10楼
有点蓝 发表于：2023/10/9 20:34:00测试没有问题。应该是图片框把整个panel挡住了，看不到有边框