[求助]PAN 添加名称和关闭按钮及单击事件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]PAN 添加名称和关闭按钮及单击事件

共有5614人关注过本帖树形打印复制链接主题：[求助]PAN 添加名称和关闭按钮及单击事件

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

[求助]PAN 添加名称和关闭按钮及单击事件 发帖心情

Post By：2017/9/30 10:44:00 [显示全部帖子]

老师，

如何添加名称和关闭按钮及单击事件

Dim pan As WinForm.Panel

pan=e.Form.CreateControl("p1",ControlTypeEnum.Panel)

'问题1 pan.text=DataTables("表C").Datarows(0)("测试")

pan.BackColor=Color.red

pan.TopMost=True

e.Form.Controls("Panel1").AddControl(pan)

问题二

添加按钮

此主题相关图片如下：qq图片20170930104208.png

问题三

添加关闭按钮对应事件

此主题相关图片如下：qq图片20170930104308.png

例子

下载信息 [文件大小：下载次数： ]
点击浏览该文件:复件.foxdb

[此贴子已经被作者于2017/9/30 10:44:43编辑过]

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/10/7 17:00:00 [显示全部帖子]

老师，

能否给做个例子，不会弄啊。

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/10/7 17:20:00 [显示全部帖子]

老师，

下面代码是否适用 PAN 面板呢

'处理按钮点击事件

Protected Overrides Sub OnClick(ByVal e As System.EventArgs)

Functions.Execute("项目_MainPages_CloseClick")

End Sub

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/10/13 20:25:00 [显示全部帖子]

老师，

这块怎么写？

Dim pan As WinForm.Panel

pan=e.Form.CreateControl("p1",ControlTypeEnum.Panel)

'问题1 pan.text=DataTables("表C").Datarows(0)("测试")

pan.BackColor=Color.red

pan.TopMost=True

e.Form.Controls("Panel1").AddControl(pan)

vars("窗口") = e.Form.panel

e.Form.panel.Controls.add(_SysCloseBut)

Dim mp As Windows.Forms.Panel=E.FORM.CONTROLS("P1").BaseControl

mp.Padding = New Point(_SysCloseBut.width,6)

AddHandler mp.Paint, AddressOf MainPages_Paint

此主题相关图片如下：qq图片20171013202359.png

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/10/13 20:52:00 [显示全部帖子]

老师，

想要加一个关闭按钮，不会弄，按照例子弄得，烦您给看下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:pan关闭按钮.table

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/10/13 21:58:00 [显示全部帖子]

多谢老师，

还有这个按钮鼠标不指向的时候是方形，指向的时候是圆形和方形重合，怎么能完美的都变成圆形？

此主题相关图片如下：qq图片20171013215643.png

[此贴子已经被作者于2017/10/13 22:09:06编辑过]

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/10/13 22:00:00 [显示全部帖子]

圆形的部分全局代码是这部分吗？

Private Function GetRoundedRectPath(ByVal rect As Rectangle) As System.Drawing.Drawing2D.GraphicsPath

rect.Offset(1, 1)

Dim RoundRect As New Rectangle(rect.Location, New Size(_Radius - 2 , _Radius - 2))

Dim path As New System.Drawing.Drawing2D.GraphicsPath

path.AddArc(RoundRect, 180, 90) '左上角

RoundRect.X = rect.Right - _Radius '右上角

path.AddArc(RoundRect, 270, 90)

RoundRect.Y = rect.Bottom - _Radius '右下角

path.AddArc(RoundRect, 0, 90)

RoundRect.X = rect.Left '左下角

path.AddArc(RoundRect, 90, 90)

path.CloseFigure()

Return path

End Function

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/10/13 22:18:00 [显示全部帖子]

或者

方形的关闭按钮的颜色和背景PANL的颜色一致也行，怎么写，下面不起作用

'用于绘制pan的关闭按钮

Public Sub MainPages_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)

Dim pg As Windows.Forms.Panel = sender

'Dim pg As C1Command.C1DockingTabPage = Tab.SelectedTab

If pg IsNot Nothing Then

'Dim rect As Rectangle = tab.RectangleToScreen(pg.TabBounds)

_SysCloseBut.Top = pg.Top + 5

_SysCloseBut.Left = pg.Left + pg.Width - 18

'_SysCloseBut.pg = pg

_SysCloseBut.BackColor=sender.BackColor

_SysCloseBut.BringToFront()

Else

_SysCloseBut.Top = -1000

'_SysCloseBut.pg = Nothing

End If

End Sub

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/10/14 6:23:00 [显示全部帖子]

老师，

1、楼上代码是做什么的呢，没看到效果，烦老师明示。

2、如何使11楼按钮统一，都是圆或都是方的，

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/10/14 7:21:00 [显示全部帖子]

老师，

问题3

如何在窗口中设定关闭按钮的背景颜色，以便保持动态和PANL的颜色一致，怎么写？

如下图

此主题相关图片如下：qq图片20171014071937.png

下一主题 >> << 上一主题

总数 38 1 2 3 4 下一页

主题：[求助]PAN 添加名称和关闭按钮及单击事件