以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于ToolStrip  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77759)
--  作者：cyl123
--  发布时间：2015/11/24 19:32:00
--  关于ToolStrip

Dim TS As  New Windows.Forms.ToolStrip
Dim PL1 As WinForm.Panel = e.Form.Controls("Panel1")

PL1.baseControl.Controls.Add(TS)
Dim ToolStripButton01 As New Windows.Forms.ToolStripButton("增加",getImage("add.png"))
TS.items.add(ToolStripButton01)
Dim ToolStripButton02 As New Windows.Forms.ToolStripButton("修改",getImage("edit.png"))
TS.items.add(ToolStripButton02)
Dim ToolStripButton03 As New Windows.Forms.ToolStripButton("删除",getImage("delete.png"))
TS.items.add(ToolStripButton03)


动态加入ToolStrip预览后，如何修改ToolStripButton01的属性？
--  作者：大红袍
--  发布时间：2015/11/24 19:38:00
--  

Dim TS As  New Windows.Forms.ToolStrip
Dim PL1 As WinForm.Panel = e.Form.Controls("Panel1")


PL1.baseControl.Controls.Add(TS)
ts.name = "ts"
Dim ToolStripButton01 As New Windows.Forms.ToolStripButton("增加",getImage("add.png"))
ToolStripButton01.name = "增加"


TS.items.add(ToolStripButton01)
Dim ToolStripButton02 As New Windows.Forms.ToolStripButton("修改",getImage("edit.png"))
TS.items.add(ToolStripButton02)
Dim ToolStripButton03 As New Windows.Forms.ToolStripButton("删除",getImage("delete.png"))
TS.items.add(ToolStripButton03)

 

-----------------------调用

 

Dim ts As object = e.Form.Controls("Panel1").baseControl.Controls("ts")
ts.items("增加").Text = "1234"