Windows Forms

neodeaths wrote:

hi does anyone know how i can disable the animation which happens to a windows
form when the this.hide() is used?

neodeaths wrote:

i am trying to do this without using thread.sleep.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

enum DWMWINDOWATTRIBUTE : uint
{
    NCRenderingEnabled = 1,
    NCRenderingPolicy,
    TransitionsForceDisabled,
    AllowNCPaint,
    CaptionButtonBounds,
    NonClientRtlLayout,
    ForceIconicRepresentation,
    Flip3DPolicy,
    ExtendedFrameBounds,
    HasIconicBitmap,
    DisallowPeek,
    ExceludedFromPeek,
    Cloak,
    Cloaked,
    FreezeRepresentation
}


[DllImport("dwmapi.dll")]
private static extern int DwmSetWindowAttribute(IntPtr hwnd, DWMWINDOWATTRIBUTE attr, ref int attrValue, int attrSize);

protected override void OnHandleCreated(EventArgs e)
{
    base.OnHandleCreated(e);
    if (Environment.OSVersion.Version.Major >= 6)
    {
        int attrValue = 1;
        int hr = DwmSetWindowAttribute(this.Handle, DWMWINDOWATTRIBUTE.TransitionsForceDisabled, ref attrValue, 4);
        if (hr < 0)
            Marshal.ThrowExceptionForHR(hr);
    }
}

Miguel Figueiredo wrote:

Do you think that this can be done?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

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