窗口1---AfterLoad事件代码

Dim sza() As String = {"JoinFax","JoinEmail"}

Dim szb() As String = {"加入传真","加入邮件"}

Dim szc() As String = {"Text.ico","Text.ico"}

\'增加菜单命令--------------------------------------------------------------------------------------------

\'StatusBar状态栏;ToolBar工具栏;MainMenu菜单;ContextMenu快捷菜单

Dim Strip As WinForm.Strip

Strip = e.Form.Strips.Add("Join", StripTypeEnum.ContextMenu)

For i As Integer = 0 To sza.Length -1

    Strip.Items.Add(sza(i), szb(i), szc(i), StripItemTypeEnum.Button)   \'名称,标题,图标

    e.Form.Strips("Join").Items(sza(i)).DisplayText = True   \'显示命令标题

Next

窗口1---按钮1代码