好像是不能add的,改成visible吧
For i As Integer = 0 To ApplicationMenu.RightItems.Count - 1 ApplicationMenu.RightItems(i).Visible = false ApplicationMenu.RightItems(i).text = ""NextApplicationMenu.RightItems(0).visible = trueApplicationMenu.RightItems(0).Text = "1.测试"