以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]PAN 添加名称和关闭按钮及单击事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107556)

--  作者:blsu33
--  发布时间:2017/9/30 10:44:00
--  [求助]PAN 添加名称和关闭按钮及单击事件
老师,
   如何添加名称和关闭按钮及单击事件

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编辑过]

--  作者:有点蓝
--  发布时间:2017/9/30 11:53:00
--  
问题1、panel没有text属性,在panel里面增加一个标签使用

2、在panel里面增加一个按钮使用

3、

方法一:动态绑定事件:http://www.foxtable.com/webhelp/scr/2374.htm

方法二:使用窗口全局事件:http://www.foxtable.com/webhelp/scr/1920.htm

--  作者:blsu33
--  发布时间:2017/10/7 17:00:00
--  
老师,
能否给做个例子,不会弄啊。

--  作者:有点甜
--  发布时间:2017/10/7 17:05:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73085&skin=0

 

 


--  作者:blsu33
--  发布时间:2017/10/7 17:20:00
--  
老师,
   下面代码是否适用 PAN 面板呢
\'处理按钮点击事件
    Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
        Functions.Execute("项目_MainPages_CloseClick")
    End Sub  


--  作者:有点甜
--  发布时间:2017/10/7 17:23:00
--  

你要这样做:用代码 添加一个panel,然后,在panel里面添加一个图片/按钮控件,然后编写窗口的click事件,如果点击了panel的按钮,那就执行对应的操作。


--  作者:blsu33
--  发布时间: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
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2017/10/13 20:38:00
--  
没看懂你要做什么,用文字描述一下
--  作者:blsu33
--  发布时间:2017/10/13 20:52:00
--  
老师,
想要加一个关闭按钮,不会弄,按照例子弄得,烦您给看下

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:pan关闭按钮.table


--  作者:有点蓝
--  发布时间:2017/10/13 21:47:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:pan关闭按钮.table