关于ToolStrip - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于ToolStrip

共有2639人关注过本帖树形打印复制链接主题：关于ToolStrip

cyl123

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：758 积分：6382 威望：0 精华：0 注册：2014/12/21 21:01:00

关于ToolStrip 发帖心情

Post By：2015/11/24 19:32:00 [只看该作者]

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的属性？

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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"

下一主题 >> << 上一主题

主题：关于ToolStrip