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"
加好友 
发短信
Post By：2015/11/24 19:38:00 [显示全部帖子]
