主题：[求助]窗口控件

1、可能是【状态栏】http://www.foxtable.com/webhelp/scr/3118.htm

2、也可以是图片，看你喜欢。

如果是foxtable的窗口，不需要定义事件，直接用全局事件即可

http://www.foxtable.com/webhelp/scr/3112.htm

如果确实要绑定，就这样写，如

Dim cd As System.Windows.Forms.ToolStripMenuItem = e.form.strips("主菜单").items("项目1").items("项目1").basecontrol
AddHandler cd.click, AddressOf Strip_Click

那你就根据提示改呗，不是很明显了？

Dim cd As System.Windows.Forms.ToolStripButton = e.form.strips("工具栏1").items("New").basecontrol

如

Dim Strip As WinForm.Strip
Strip = e.Form.Strips.Add("工具栏1", StripTypeEnum.ToolBar)
Strip.Items.Add("New", "新建", "new.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Open", "打开", "Open.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Save", "保存", "Save.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Print", "打印", "Print.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Separator1", "分割条", "", StripItemTypeEnum.Separator)
Strip.Items.Add("Cut", "剪切", "Cut.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Copy", "复制", "Copy.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Brush", "格式刷", "Brush.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Separator2", "分割条", "", StripItemTypeEnum.Separator)
Strip.Items.Add("Help", "帮助", "Help.ico", StripItemTypeEnum.Button)

e.form.controls("panel1").basecontrol.controls.add(strip.basecontrol)

1、这个是什么事件？

2、new出来的窗口你记录到什么变量里去了？vars、public？

3、参考代码

名称不能相同，如果相同，必须把窗口1关闭重新打开，或者是移除掉所有控件、strips等

改成

forms("serevmain").Strips.Clear

'sender.controls.Clear

请存放数值啊

msgbox(Keys.Control Or Keys.N)

不然，就用动态编译的方式得到值。