mistert006
asked on
How to Paint a Form before it is displayed?
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_SLID E)
Thanks for any ideas
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
Try using:
Application.DoEvents()
This ensures that all messages in the message queue have been completed
Application.DoEvents()
This ensures that all messages in the message queue have been completed
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Instead of the Paint method of the form use this two:
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Messa ge)
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
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
ALso add this constant:
Private Const WM_PAINT As Integer = &HF
Private Const WM_PAINT As Integer = &HF
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
Idle_Mind
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.
Let me try something else and i will let you know, if i get something i will let you know.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
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 tainer
'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 n
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents CheckBox1 As System.Windows.Forms.Check Box
Friend WithEvents RadioButton1 As System.Windows.Forms.Radio Button
Friend WithEvents ListBox1 As System.Windows.Forms.ListB ox
<System.Diagnostics.Debugg erStepThro ugh()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Butto n
Me.Label1 = New System.Windows.Forms.Label
Me.CheckBox1 = New System.Windows.Forms.Check Box
Me.RadioButton1 = New System.Windows.Forms.Radio Button
Me.ListBox1 = New System.Windows.Forms.ListB ox
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 1)
Me.Controls.Add(Me.RadioBu tton1)
Me.Controls.Add(Me.CheckBo x1)
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 Int32, 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.Messa ge)
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 EventArgs) 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
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 ndow @ " & 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.To Int32, 500, AW_VER_NEGATIVE Or AW_SLIDE)
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.Paint EventArgs) 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
'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
Use a Timer to Load the Form and set it's visibility
AnimateWindow(f2.Handle, 300, AnimateWindowFlags.AW_VER_
in order to be able to run the form