选择Tab时偶发IndexOutOfRangeException异常：索引-1无值求助

你遇到的这个偶发IndexOutOfRangeException（错误信息“Index -1 does not have a value”），核心原因通常是目标TabPage在执行SelectTab的瞬间，已经不在TabControl的TabPages集合中了——哪怕你通过名称获取它的时候它还存在，这种竞态条件很容易在多线程或者异步操作场景下出现。

可能的触发场景 #

• 多线程操作冲突：如果有其他线程（比如后台任务线程）在动态移除TabPageRunning，而你的UI线程同时执行SelectTab，就会出现“获取TabPage时它还在，但调用SelectTab时它已被移除”的情况，内部索引计算就会返回-1，抛出异常。
• 控件初始化时机过早：如果这段选择Tab的代码在Form还没完全初始化完成时执行（比如Form_Load事件的早期），TabControl的TabPages集合可能还没加载完设计时配置的TabPage，此时通过名称获取到的TabPage可能无效，进而导致索引异常。
• 隐形的Name属性修改：虽然你说后续没修改Tab名称，但也有可能在某些动态逻辑中（比如复制TabPage、第三方控件干扰）意外修改了TabPageRunning的Name属性，不过这种情况一般会导致持续报错，偶发的概率较低。

解决方案与排查步骤 #

1. 添加安全检查与线程同步
   先确保操作在UI线程执行，同时验证目标TabPage确实存在于集合中再执行选择：

   ' 封装成单独的方法，确保线程安全
   Private Sub SafeSelectRunningTab()
       If TabControl1.InvokeRequired Then
           ' 跨线程时委托到UI线程执行
           TabControl1.Invoke(AddressOf SafeSelectRunningTab)
           Return
       End If
   
       Dim targetTab As TabPage = TabControl1.TabPages("TabPageRunning")
       ' 双重验证：TabPage存在，且确实在TabControl的集合中
       If targetTab IsNot Nothing AndAlso TabControl1.TabPages.Contains(targetTab) Then
           TabControl1.SelectTab(targetTab)
       End If
   End Sub
   
   ' 调用时直接用这个方法替代原代码
   SafeSelectRunningTab()
   

2. 排查TabPages集合的修改操作
   搜索整个项目中所有修改TabControl1.TabPages的代码（比如Remove、Clear、RemoveByKey等方法），检查这些操作是否和你的Tab选择代码存在并发执行的可能。如果有，需要添加同步锁（比如SyncLock）来避免冲突。

3. 调整代码执行时机
   如果这段代码是在Form初始化阶段执行，尝试把它移到Form_Shown事件中——这个事件会在Form完全加载、所有控件都初始化完成后触发，能避免因控件未就绪导致的异常。

内容的提问来源于stack exchange，提问作者Andy Charity