以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]定义的窗口控件事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75133)

--  作者:linswcfr
--  发布时间:2015/9/28 11:54:00
--  [求助]定义的窗口控件事件

Dim ct As New Windows.Forms.Button
ct
.Text = "我的按钮"
e
.Form.Panel.Controls.Add(ct)

 

定义的第三方控件click事件

可以写窗口全局事件吗

要怎么写


--  作者:大红袍
--  发布时间:2015/9/28 12:20:00
--  

可以,直接在click事件写

 

If e.Sender.Name = "我的按钮" OrElse e.Sender.Text = "我的按钮" Then

    msgbox("123456")

End If


--  作者:linswcfr
--  发布时间:2015/9/28 13:48:00
--  

没有效果!?


--  作者:linswcfr
--  发布时间:2015/9/28 13:50:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb


--  作者:大红袍
--  发布时间:2015/9/28 14:11:00
--  

 

 

http://www.foxtable.com/help/topics/1409.htm

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb


--  作者:linswcfr
--  发布时间:2015/9/28 14:21:00
--  

动态控件,怎么加添加图标

btn.Image = getimage("add.gif")
btn.TextImageRelation =TextImageRelation.ImageBeforeText

 

没效果?

 


--  作者:大红袍
--  发布时间:2015/9/28 14:31:00
--  

路径没写对

 

Dim btn As WinForm.Button
btn = e.Form.CreateControl("我的按钮", ControlTypeEnum.Button)
btn.Text = "我的按钮"
btn.Image = getimage("d:\\001.ico")
btn.TextImageRelation =TextImageRelation.ImageBeforeText
e.Form.AddControl(btn)


--  作者:linswcfr
--  发布时间:2015/9/28 14:44:00
--  

谢谢 大红袍