?
Solved

How to Paint a Form before it is displayed?

Posted on 2004-08-31
14
Medium Priority
?
427 Views
Last Modified: 2012-05-05
I am creating a Form that does an animation when it appears.  I need to Paint the text on the Form before it is displayed.

I tried using the Form Paint event to paint the text, but the text is not displayed until the animation stops.  Here is my code so far:

Dim f2 As New Form2
        Dim g As Graphics = f2.CreateGraphics
        Dim myfont As New Font("Microsoft Sans Serif", 9.5)
        Dim sTxt As String = "This is some text"
        Dim rec As New RectangleF
        rec.Height = 50
        rec.Width = 270
        rec.X = 50
        rec.Y = 28
        Dim sf As New StringFormat
        sf.Alignment = StringAlignment.Near
        ' text
        Dim mybrush2 As New SolidBrush(Color.White)
        g.DrawString(sTxt, myfont, mybrush2, rec, sf)
        '
        AnimateWindow(f2.Handle, 300, AnimateWindowFlags.AW_VER_NEGATIVE Or AnimateWindowFlags.AW_SLIDE)

Thanks for any ideas
0
Comment
Question by:mistert006
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
14 Comments
 
LVL 8

Expert Comment

by:wguerram
ID: 11947871
Can you post your code for the declarations of

 AnimateWindow(f2.Handle, 300, AnimateWindowFlags.AW_VER_NEGATIVE Or AnimateWindowFlags.AW_SLIDE)

in order to be able to run the form
0
 

Expert Comment

by:dubbs2003
ID: 11948027
Try using:

Application.DoEvents()

This ensures that all messages in the message queue have been completed
0
 
LVL 86

Accepted Solution

by:
Mike Tomlinson earned 1000 total points
ID: 11948290
I don't think you can.  It seems like the window that is animated is a dynamically created default window everytime and not your window being animated.  In fact, if I didn't followup the AnimateWindow call with .Show() and .Refresh() then the components on my form and the background text did not appear correctly.

The Paint() event is not fired until the animation stops which supports my theory that it is not your window that is being animated.

Interesting...

Idle_Mind

Here is what was testing with:

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.Label1 = New System.Windows.Forms.Label
        Me.CheckBox1 = New System.Windows.Forms.CheckBox
        Me.RadioButton1 = New System.Windows.Forms.RadioButton
        Me.ListBox1 = New System.Windows.Forms.ListBox
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(248, 200)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(104, 32)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(48, 128)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(192, 24)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Label1"
        '
        'CheckBox1
        '
        Me.CheckBox1.Location = New System.Drawing.Point(40, 184)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(144, 16)
        Me.CheckBox1.TabIndex = 2
        Me.CheckBox1.Text = "CheckBox1"
        '
        'RadioButton1
        '
        Me.RadioButton1.Location = New System.Drawing.Point(208, 64)
        Me.RadioButton1.Name = "RadioButton1"
        Me.RadioButton1.Size = New System.Drawing.Size(144, 24)
        Me.RadioButton1.TabIndex = 3
        Me.RadioButton1.Text = "RadioButton1"
        '
        'ListBox1
        '
        Me.ListBox1.Location = New System.Drawing.Point(16, 56)
        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.Size = New System.Drawing.Size(152, 43)
        Me.ListBox1.TabIndex = 4
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(360, 246)
        Me.Controls.Add(Me.ListBox1)
        Me.Controls.Add(Me.RadioButton1)
        Me.Controls.Add(Me.CheckBox1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Declare Function AnimateWindow Lib "user32" _
        (ByVal hwnd As Integer, ByVal dwTime As Integer, _
        ByVal dwFlags As Integer) As Boolean

    Private Const AW_HOR_POSITIVE = &H1 'Animates the window from left to right. This flag can be used with roll or slide animation.
    Private Const AW_HOR_NEGATIVE = &H2 'Animates the window from right to left. This flag can be used with roll or slide animation.
    Private Const AW_VER_POSITIVE = &H4 'Animates the window from top to bottom. This flag can be used with roll or slide animation.
    Private Const AW_VER_NEGATIVE = &H8 'Animates the window from bottom to top. This flag can be used with roll or slide animation.
    Private Const AW_CENTER = &H10 'Makes the window appear to collapse inward if AW_HIDE is used or expand outward if the AW_HIDE is not used.
    Private Const AW_HIDE = &H10000 'Hides the window. By default, the window is shown.
    Private Const AW_ACTIVATE = &H20000 'Activates the window.
    Private Const AW_SLIDE = &H40000 'Uses slide animation. By default, roll animation is used.
    Private Const AW_BLEND = &H80000 'Uses a fade effect. This flag can be used only if hwnd is a top-level window.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f1 As New Form1

        Debug.WriteLine("AnimateWindow @ " & DateTime.Now().Millisecond)
        AnimateWindow(f1.Handle.ToInt32, 300, AW_VER_NEGATIVE Or AW_SLIDE)
        f1.Show() ' makes the components show
        f1.Refresh() ' makes the background paint
    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Debug.WriteLine("Paint @ " & DateTime.Now().Millisecond)
        Dim g As Graphics = e.Graphics
        Dim myfont As New Font("Microsoft Sans Serif", 32)
        Dim sTxt As String = "This is some text that wraps on the form that is done form the paint event"
        Dim rec As New RectangleF
        rec.Height = Me.Height
        rec.Width = Me.Width
        rec.X = 5
        rec.Y = 5
        Dim sf As New StringFormat
        sf.Alignment = StringAlignment.Near
        ' text
        Dim mybrush2 As New SolidBrush(Color.White)
        g.DrawString(sTxt, myfont, mybrush2, rec, sf)
        myfont.Dispose()
        mybrush2.Dispose()
    End Sub

End Class
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 8

Expert Comment

by:wguerram
ID: 11952224
Instead of the Paint method of the form use this two:

     Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = WM_PAINT Then
            MyBase.WndProc(m)
            Dim g As Graphics = Me.CreateGraphics
            DrawText(g)
        Else
            MyBase.WndProc(m)
        End If
    End Sub

    Private Sub DrawText(ByVal g As Graphics)
        Debug.WriteLine("Paint @ " & DateTime.Now().Millisecond)
        Dim myfont As New Font("Microsoft Sans Serif", 32)
        Dim sTxt As String = "This is some text that wraps on the form that is done form the paint event"
        Dim rec As New RectangleF
        rec.Height = Me.Height
        rec.Width = Me.Width
        rec.X = 5
        rec.Y = 5
        Dim sf As New StringFormat
        sf.Alignment = StringAlignment.Near
        ' text
        Dim mybrush2 As New SolidBrush(Color.White)
        g.DrawString(sTxt, myfont, mybrush2, rec, sf)
        myfont.Dispose()
        mybrush2.Dispose()
    End Sub
0
 
LVL 8

Expert Comment

by:wguerram
ID: 11952233
ALso add this constant:

Private Const WM_PAINT As Integer = &HF
0
 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 11952427
That didn't work on my system wguerram...the window that was being animated was still blank.  The controls and drawn background did not appear until after the animation was complete.

Idle_Mind
0
 
LVL 8

Expert Comment

by:wguerram
ID: 11952466
Sorry, you are right, i forgot to erase the code of the Paint form.

Let me try something else and i will let you know, if i get something i will let you know.
0
 
LVL 8

Assisted Solution

by:wguerram
wguerram earned 1000 total points
ID: 11953144
Add this constant

Private Const WM_PRINTCLIENT As Integer = &H318    

Keep you form paint event

and also replace the code i post before with this code

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg            
            Case WM_PRINTCLIENT
                Dim g As Graphics = Graphics.FromHdc(m.WParam)
                DrawText(g)
                g.Dispose()
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub

    Private Sub DrawText(ByVal g As Graphics)
        Debug.WriteLine("WndProc @ " & DateTime.Now().Millisecond)
        Dim myfont As New Font("Microsoft Sans Serif", 32)
        Dim sTxt As String = "This is some text that wraps on the form that is done form the paint event"
        Dim rec As New RectangleF
        rec.Height = Me.Height
        rec.Width = Me.Width
        rec.X = 5
        rec.Y = 5
        Dim sf As New StringFormat
        sf.Alignment = StringAlignment.Near
        ' text
        Dim mybrush2 As New SolidBrush(Color.White)
        g.DrawString(sTxt, myfont, mybrush2, rec, sf)
        myfont.Dispose()
        mybrush2.Dispose()
    End Sub
0
 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 11953825
I think wguerram has found a winning combo.

I still had to have a call to DrawText in the Form_Paint() event however and a call to .Show() was necessary after the AnimateWindow() call to make the form components show up properly.

Idle_Mind

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.Label1 = New System.Windows.Forms.Label
        Me.CheckBox1 = New System.Windows.Forms.CheckBox
        Me.RadioButton1 = New System.Windows.Forms.RadioButton
        Me.ListBox1 = New System.Windows.Forms.ListBox
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(248, 200)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(104, 32)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(48, 128)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(192, 24)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Label1"
        '
        'CheckBox1
        '
        Me.CheckBox1.Location = New System.Drawing.Point(40, 184)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(144, 16)
        Me.CheckBox1.TabIndex = 2
        Me.CheckBox1.Text = "CheckBox1"
        '
        'RadioButton1
        '
        Me.RadioButton1.Location = New System.Drawing.Point(208, 64)
        Me.RadioButton1.Name = "RadioButton1"
        Me.RadioButton1.Size = New System.Drawing.Size(144, 24)
        Me.RadioButton1.TabIndex = 3
        Me.RadioButton1.Text = "RadioButton1"
        '
        'ListBox1
        '
        Me.ListBox1.Location = New System.Drawing.Point(16, 56)
        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.Size = New System.Drawing.Size(152, 43)
        Me.ListBox1.TabIndex = 4
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(360, 246)
        Me.Controls.Add(Me.ListBox1)
        Me.Controls.Add(Me.RadioButton1)
        Me.Controls.Add(Me.CheckBox1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Declare Function AnimateWindow Lib "user32" _
        (ByVal hwnd As Integer, ByVal dwTime As Integer, _
        ByVal dwFlags As Integer) As Boolean

    Private Const WM_PRINTCLIENT As Integer = &H318

    Private Const AW_HOR_POSITIVE = &H1 'Animates the window from left to right. This flag can be used with roll or slide animation.
    Private Const AW_HOR_NEGATIVE = &H2 'Animates the window from right to left. This flag can be used with roll or slide animation.
    Private Const AW_VER_POSITIVE = &H4 'Animates the window from top to bottom. This flag can be used with roll or slide animation.
    Private Const AW_VER_NEGATIVE = &H8 'Animates the window from bottom to top. This flag can be used with roll or slide animation.
    Private Const AW_CENTER = &H10 'Makes the window appear to collapse inward if AW_HIDE is used or expand outward if the AW_HIDE is not used.
    Private Const AW_HIDE = &H10000 'Hides the window. By default, the window is shown.
    Private Const AW_ACTIVATE = &H20000 'Activates the window.
    Private Const AW_SLIDE = &H40000 'Uses slide animation. By default, roll animation is used.
    Private Const AW_BLEND = &H80000 'Uses a fade effect. This flag can be used only if hwnd is a top-level window.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f1 As New Form1

        AnimateWindow(f1.Handle.ToInt32, 300, AW_VER_NEGATIVE Or AW_SLIDE)
        f1.Show() ' makes the components show
    End Sub

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = WM_PRINTCLIENT Then
            MyBase.WndProc(m)
            Dim g As Graphics = Graphics.FromHdc(m.WParam)
            DrawText(g)
            g.Dispose()
        Else
            MyBase.WndProc(m)
        End If
    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        DrawText(e.Graphics)
    End Sub

    Private Sub DrawText(ByVal g As Graphics)
        Dim myfont As New Font("Microsoft Sans Serif", 32)
        Dim sTxt As String = "This is some text that wraps on the form that is done form the paint event"
        Dim rec As New RectangleF
        rec.Height = Me.Height
        rec.Width = Me.Width
        rec.X = 5
        rec.Y = 5
        Dim sf As New StringFormat
        sf.Alignment = StringAlignment.Near
        Dim mybrush2 As New SolidBrush(Color.White)
        g.DrawString(sTxt, myfont, mybrush2, rec, sf)
        myfont.Dispose()
        sf.Dispose()
        mybrush2.Dispose()
    End Sub

End Class
0
 
LVL 8

Expert Comment

by:wguerram
ID: 11969044
'Basically what i am doing is taking a snapshot of the form and then paint the image in the form.
'You don't need to show and refresh the form neither the WndProc i had posted before.
'Probably this is not the best solution but it works fine.

'I search all over the internet and found many guys having this problem.

'Hope this help.

'Add this to the declaration section of the form
'*******************************
    Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Integer) As Integer
    Private Declare Function GetDC Lib "user32" (ByVal hwnd As Integer) As Integer
    Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As Integer) As Integer
    Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Integer, ByRef lpRect As RECT) As Integer
    Private Const SRCCOPY = &HCC0020

    Private Structure RECT
        Dim Left As Integer
        Dim Top As Integer
        Dim Right As Integer
        Dim Bottom As Integer
    End Structure

   Dim bmp As Image
    '**************************************************

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f1 As New Form1

        Debug.WriteLine("AnimateWindow @ " & DateTime.Now().Millisecond)

       'I am showing the form in a none visible area by the user and taking an image of the form
        f1.StartPosition = FormStartPosition.Manual

        f1.Top = -f1.Height
        f1.Left = -f1.Width

        f1.Show()

        bmp = ScreenCapture(f1.Handle)

        f1.Hide()

        f1.Top = 100
        f1.Left = 100
        AnimateWindow(f1.Handle.ToInt32, 500, AW_VER_NEGATIVE Or AW_SLIDE)
    End Sub    

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint        
        Debug.WriteLine("Paint @ " & DateTime.Now().Millisecond)
        Dim g As Graphics = e.Graphics
        Dim myfont As New Font("Microsoft Sans Serif", 32)
        Dim sTxt As String = "This is some text that wraps on the form that is done form the paint event"
        Dim rec As New RectangleF
        rec.Height = Me.Height
        rec.Width = Me.Width
        rec.X = 5
        rec.Y = 5
        Dim sf As New StringFormat
        sf.Alignment = StringAlignment.Near
        ' text
        Dim mybrush2 As New SolidBrush(Color.White)
        g.DrawString(sTxt, myfont, mybrush2, rec, sf)        

       'Here a draw the image of the form
        If Not IsNothing(bmp) Then
            g.DrawImage(bmp, 0, 0)
        End If

        myfont.Dispose()
        mybrush2.Dispose()
    End Sub
   
    Private Function ScreenCapture(ByVal hWnd As Integer) As Image
        'Create a bitmap big enough to hold picture
        Dim Rec As RECT
        GetWindowRect(hWnd, Rec)
        Dim myImage As Image = New Bitmap(Rec.Right - Rec.Left, Rec.Bottom - Rec.Top)
        'Get the graphics object for the bitmap
        Dim gr1 As Graphics = Graphics.FromImage(myImage)
        'Get the device Context from the graphics object
        Dim dc1 As IntPtr = gr1.GetHdc()
        'Get the DC of the window you want to capture
        Dim dc2 As Integer = GetWindowDC(hWnd) '***Use GetDC if you only want Client Portion of window...

        'Copy the Other windows DC into the one we created
        BitBlt(dc1.ToInt64, 0, 0, Rec.Right - Rec.Left, Rec.Bottom - Rec.Top, dc2, 0, 0, SRCCOPY)
        'cleanup
        gr1.ReleaseHdc(dc1)
        'Save the bitmap...
        Return myImage
    End Function
0
 

Expert Comment

by:samitt
ID: 12106049
Use a Timer to Load the Form and set it's visibility
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article explains how to create and use a custom WaterMark textbox class.  The custom WaterMark textbox class allows you to set the WaterMark Background Color and WaterMark text at design time.   IMAGE OF WATERMARKS STEPS Create VB …
I think the Typed DataTable and Typed DataSet are very good options when working with data, but I don't like auto-generated code. First, I create an Abstract Class for my DataTables Common Code.  This class Inherits from DataTable. Also, it can …
In this video you will find out how to export Office 365 mailboxes using the built in eDiscovery tool. Bear in mind that although this method might be useful in some cases, using PST files as Office 365 backup is troublesome in a long run (more on t…
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB. How Percona can help Percona can help you determine if Percona Server for MongoDB is the right solution for …
Suggested Courses
Course of the Month12 days, 12 hours left to enroll

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question