Visual Basic

Andraw Tang wrote:

what area the right panel will occupy?

Andraw Tang wrote:

Also is there any difference to display MDI child form on the splitcontainer right panel by using the following code

frmSimu.Parent = Me.SplitContainer1.Panel2 '-----------Method 1

Andraw Tang wrote:

Do you have any tutorial or sample code about this?

Andraw Tang wrote:

but how can I display child form on the right panel? how to move the MDIClient control to the right panel?

Andraw Tang wrote:

These terms are very confused confusing.

Private Sub searchForm_FindNext(ByVal SearchText As String, ByVal MatchCase As Boolean, ByVal MatchExact As Boolean) Handles searchForm.FindNext
        If (DataResults.RowCount > 0) AndAlso (SearchText.Length > 0) Then
            Dim offset As Integer = 1           'Use 1 for when searching next, or set to 0 when wrapping to first row
            Dim rowIndex As Integer

            If DataResults.CurrentRow.Index = DataResults.Rows.Count - 1 Then
                'You are on the last row
                If MessageBox.Show("You are on the last row, go back to the start?", "Find In Results", MessageBoxButtons.YesNo) = vbYes Then
                    DataResults.Rows.Item(0).Selected = True
                    BindingNavigatorMoveFirstItem.PerformClick()
                    offset = 0
                Else
                    Exit Sub
                End If
            End If

            For rowIndex = DataResults.CurrentRow.Index + offset To DataResults.Rows.Count - 1

                For Each cell As DataGridViewCell In DataResults.Rows.Item(rowIndex).Cells
                    If cell.ValueType.Equals(GetType(String)) Then

                        If MatchCase AndAlso MatchExact Then
                            If cell.Value.ToString.Equals(SearchText) Then
                                FindNextMatched(rowIndex)
                                Exit Sub
                            End If
                        ElseIf MatchCase Then
                            If cell.Value.ToString.Contains(SearchText) Then
                                FindNextMatched(rowIndex)
                                Exit Sub
                            End If

                        ElseIf MatchExact Then
                            If cell.Value.ToString.ToUpper.Equals(SearchText.ToUpper) Then
                                FindNextMatched(rowIndex)
                                Exit Sub
                            End If
                        Else
                            If cell.Value.ToString.ToUpper.Contains(SearchText.ToUpper) Then
                                FindNextMatched(rowIndex)
                                Exit Sub
                            End If
                        End If

                    End If
                Next

                If rowIndex = DataResults.Rows.Count - 1 Then
                    If MessageBox.Show("End of results reached, do you want to search from the start again?", "End of Results Reached", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                        rowIndex = 0
                    End If
                End If
            Next
        End If
    End Sub