Try using:
Application.DoEvents()
This ensures that all messages in the message queue have been completed
Main Topics
Browse All TopicsI 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_
Thanks for any ideas
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.

Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
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.ICon
'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.Butto
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents CheckBox1 As System.Windows.Forms.Check
Friend WithEvents RadioButton1 As System.Windows.Forms.Radio
Friend WithEvents ListBox1 As System.Windows.Forms.ListB
<System.Diagnostics.Debugg
Me.Button1 = New System.Windows.Forms.Butto
Me.Label1 = New System.Windows.Forms.Label
Me.CheckBox1 = New System.Windows.Forms.Check
Me.RadioButton1 = New System.Windows.Forms.Radio
Me.ListBox1 = New System.Windows.Forms.ListB
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.ListBox
Me.Controls.Add(Me.RadioBu
Me.Controls.Add(Me.CheckBo
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("AnimateWi
AnimateWindow(f1.Handle.To
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.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
Instead of the Paint method of the form use this two:
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Messa
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
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.Messa
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
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.ICon
'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.Butto
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents CheckBox1 As System.Windows.Forms.Check
Friend WithEvents RadioButton1 As System.Windows.Forms.Radio
Friend WithEvents ListBox1 As System.Windows.Forms.ListB
<System.Diagnostics.Debugg
Me.Button1 = New System.Windows.Forms.Butto
Me.Label1 = New System.Windows.Forms.Label
Me.CheckBox1 = New System.Windows.Forms.Check
Me.RadioButton1 = New System.Windows.Forms.Radio
Me.ListBox1 = New System.Windows.Forms.ListB
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.ListBox
Me.Controls.Add(Me.RadioBu
Me.Controls.Add(Me.CheckBo
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.To
f1.Show() ' makes the components show
End Sub
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Messa
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.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
'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("AnimateWi
'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.To
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.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
Business Accounts
Answer for Membership
by: wguerramPosted on 2004-08-31 at 16:34:15ID: 11947871
Can you post your code for the declarations of
NEGATIVE Or AnimateWindowFlags.AW_SLID E)
AnimateWindow(f2.Handle, 300, AnimateWindowFlags.AW_VER_
in order to be able to run the form