求助

Question

Private Sub Form_Activate()
    sbStatusBar.Panels(1).Text = "## 正在" & Option1(0).Caption
   sbStatusBar.Panels.Add 2, "Com", "Com1"
End Sub
程序中出现集合的关键字不唯一,请各位指教!!35602错误

Answer 1

检查你sbStatusBar控件中其它窗格的关键字

Answer 2

在Form_Activate事件中处理这段代码本身就有可能存在你所说的问题
建议改为:Private Sub Form_Activate()
    sbStatusBar.Panels.Clear
    sbStatusBar.Panels.Add 1
    sbStatusBar.Panels(1).Text = "## 正在" & Option1(0).Caption
    sbStatusBar.Panels.Add 2, "Com", "Com1"
End Sub这样就好了