TabIndex is not reliable...

Author: Timocop

BasicPawn/Classes/FormMain/ClassTabControl.vb

@@ -681,7 +681,13 @@ Public Class ClassTabControl
 
         Public ReadOnly Property m_Index As Integer
             Get
-                Return Me.TabIndex - 1
+                For i = 0 To g_mFormMain.g_ClassTabControl.m_TabsCount - 1
+                    If (g_mFormMain.g_ClassTabControl.m_Tab(i) Is Me) Then
+                        Return i
+                    End If
+                Next
+
+                Return -1
             End Get
         End Property
 

BasicPawn/Controls and Forms/FormSearch.vb

@@ -273,7 +273,7 @@ Public Class FormSearch
                     Continue For
                 End If
 
-                SetTextEditorSelection(mTab, mResults(mResults.Length - 1).iLocation, mResults(mResults.Length - 1).iLenght, False)
+                SetTextEditorSelection(mTab, mItem.iLocation, mItem.iLenght, False)
 
                 If (mItem.iLocation + mItem.iLenght > mTab.m_TextEditor.Document.TextLength) Then
                     Continue For
@@ -321,7 +321,7 @@ Public Class FormSearch
                     Continue For
                 End If
 
-                SetTextEditorSelection(mTab, mResults(mResults.Length - 1).iLocation, mResults(mResults.Length - 1).iLenght, False)
+                SetTextEditorSelection(mTab, mItem.iLocation, mItem.iLenght, False)
 
                 If (mItem.iLocation + mItem.iLenght > mTab.m_TextEditor.Document.TextLength) Then
                     Continue For
@@ -378,7 +378,7 @@ Public Class FormSearch
 
             SetTextEditorSelection(mTab, iLocation, iLenght, False)
 
-            If (mTab.m_Index <> g_mFormMain.g_ClassTabControl.m_ActiveTab.m_Index) Then
+            If (mTab.m_Index <> g_mFormMain.g_ClassTabControl.m_ActiveTabIndex) Then
                 g_mFormMain.g_ClassTabControl.SelectTab(mTab.m_Index)
             End If
         Catch ex As Exception