Windows Forms

Thirugnanam Nataraj wrote:

malayalam font

'Determines if a form is already open.
    Public Function IsFormOpen(ByVal FormName As String) As Boolean
        Dim rVal As Boolean = False
        Dim frm As Form
        For Each frm In Me.MdiChildren
            If frm.Name = FormName Then
                rVal = True
                Exit For
            End If
        Next
        Return rVal
    End Function

'Function to show a MDI child form.
    Public Function ShowMdiChild(ByVal FormName As String) As Boolean
        Dim rVal As Boolean = False
        Dim frm As Form
        For Each frm In Me.MdiChildren
            If frm.Name = FormName Then
                rVal = True
                frm.Activate()
                frm.WindowState = FormWindowState.Maximized
                Exit For
            End If
        Next
        Return rVal
    End Function

'Invoke a public sub in a MDI child form.
    Public Sub InvokeMdiChildMethod(ByVal MethodName As String)
        Dim o As Object
        o = Me.ActiveMdiChild
        Try
            o.GetType().GetMethod(MethodName).Invoke(o, Nothing)
        Catch
        End Try
    End Sub

Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click,    NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
        ' Create a new instance of the child form.
        Dim ChildForm As New System.Windows.Forms.Form
        ' Make it a child of this MDI form before showing it.
        ChildForm.MdiParent = Me

        m_ChildFormNumber += 1
        ChildForm.Text = "Window " & m_ChildFormNumber

        ChildForm.Show()
    End Sub

Microsoft.Reporting.WinForms.ReportDataSource repds = new Microsoft.Reporting.WinForms.ReportDataSource("DataSet1", ds.Tables[0]);