以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]能否用窗口全局事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75608)
--  作者：linswcfr
--  发布时间：2015/10/11 11:48:00
--  [求助]能否用窗口全局事件

窗口afterload事件

\'工具条
Dim ct2 As  New Windows.Forms.ToolStrip
e.Form.Panel.Controls.Add(ct2)
Dim ToolStripButton01 As New Windows.Forms.ToolStripButton("新增",getImage("add.gif"))
ct2.items.add(ToolStripButton01)
Dim ToolStripButton02 As New Windows.Forms.ToolStripButton("修改",getImage("edit.gif"))
ct2.items.add(ToolStripButton02)
Dim ToolStripButton03 As New Windows.Forms.ToolStripButton("保存",getImage("save.gif"))
ct2.items.add(ToolStripButton03)
Dim ToolStripButton04 As New Windows.Forms.ToolStripButton("删除",getImage("delete.gif"))
ct2.items.add(ToolStripButton04)
Dim ToolStripButton05 As New Windows.Forms.ToolStripButton("撤销",getImage("Reject.gif"))

 

窗口里全局事件click要怎么写了
--  作者：linswcfr
--  发布时间：2015/10/11 12:01:00
--  

ding
--  作者：大红袍
--  发布时间：2015/10/11 12:08:00
--  

必须绑定click事件

 

全局代码

Public  Sub ItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs)
        MessageBox.show(Sender.ClickedItem.text) ’具体参数按你自己的需求，可以放入全局变量
End Sub

 

 

绑定事件

AddHandler ct2.ItemClicked, AddressOf ItemClicked

 

 

 

 
--  作者：linswcfr
--  发布时间：2015/10/11 12:12:00
--  

可以不用全局变量吗，就用窗口全局事件
--  作者：大红袍
--  发布时间：2015/10/11 12:39:00
--  
不行，必须写到全局代码那里去。