|
-
Dec 18th, 2011, 07:41 PM
#1
 [RESOLVED] DirectX9 Window Resizing Problem
I'm having an issue with DirectX9 and VB.Net with resizing. Whenever the window is resized, the program locks up. Everything else is working fine though. If anyone has any suggestions on what I should do let me know. Thanks in advance. Here's my code I currently have:
vb.net Code:
Option Explicit On
Option Strict On
Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D
Public Class frmMain
Private Const COLOR_DEPTH_16_BIT As Format = Direct3D.Format.R5G6B5
Private Const COLOR_DEPTH_24_BIT As Format = Direct3D.Format.A8R8G8B8
Private Const COLOR_DEPTH_32_BIT As Format = Direct3D.Format.X8R8G8B8
Private Direct3D_Device As Direct3D.Device
Private Fullscreen_Enabled As Boolean
Private Running As Boolean = True
Private Vertex_List As CustomVertex.TransformedColoredTextured() = New CustomVertex.TransformedColoredTextured(0 To 3) {} 'create an array of vertices
Private Texture As Direct3D.Texture
Private Function Create_TLVertex(ByVal X As Single, ByVal Y As Single, ByVal Z As Single, ByVal RHW As Single, ByVal Color As Integer, ByVal TU As Integer, ByVal TV As Integer) As CustomVertex.TransformedColoredTextured
Create_TLVertex.Position = New Vector4(X, Y, Z, 1)
Create_TLVertex.Rhw = RHW
Create_TLVertex.Color = Color
Create_TLVertex.Tu = TU
Create_TLVertex.Tv = TV
End Function
Private Sub DirectX9_Initialize()
Dim Display_Mode As Direct3D.DisplayMode
Dim Direct3D_Window As PresentParameters = New PresentParameters
If Fullscreen_Enabled = True Then
Display_Mode.Width = 800
Display_Mode.Height = 600
Display_Mode.Format = COLOR_DEPTH_16_BIT
'Check to see if fullscreen mode is supported before you use it.
If Direct3D.Manager.CheckDeviceType(0, Direct3D.DeviceType.Hardware, Display_Mode.Format, Display_Mode.Format, False) Then
' Perfect, this is valid
Direct3D_Window.Windowed = False
Direct3D_Window.BackBufferCount = 1
Direct3D_Window.BackBufferWidth = Display_Mode.Width
Direct3D_Window.BackBufferHeight = Display_Mode.Height
Else
MessageBox.Show("Your video card doesn't support this screen resolution.", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
Direct3D_Window.Windowed = True
End If
Direct3D_Window.SwapEffect = SwapEffect.Copy
Direct3D_Window.BackBufferFormat = Display_Mode.Format
'Create our device
Direct3D_Device = New Direct3D.Device(0, Direct3D.DeviceType.Hardware, Me.Handle, CreateFlags.SoftwareVertexProcessing, Direct3D_Window)
End Sub
Private Sub Create_Polygon()
Vertex_List(0) = Create_TLVertex(0, 0, 0, 1, System.Drawing.Color.FromArgb(255, 255, 255, 255).ToArgb, 0, 0)
Vertex_List(1) = Create_TLVertex(50, 0, 0, 1, System.Drawing.Color.FromArgb(255, 255, 255, 255).ToArgb, 1, 0)
Vertex_List(2) = Create_TLVertex(0, 50, 0, 1, System.Drawing.Color.FromArgb(255, 255, 255, 255).ToArgb, 0, 1)
Vertex_List(3) = Create_TLVertex(50, 50, 0, 1, System.Drawing.Color.FromArgb(255, 255, 255, 255).ToArgb, 1, 1)
End Sub
Private Sub Draw_Polygon()
Direct3D_Device.VertexFormat = CustomVertex.TransformedColored.Format
Direct3D_Device.DrawUserPrimitives(PrimitiveType.TriangleStrip, 2, Vertex_List)
End Sub
Private Sub Game_Loop()
Do While Running = True
Direct3D_Device.Clear(ClearFlags.Target, Color.Black, 1.0, 0)
Direct3D_Device.BeginScene()
'Rendering code goes here.
Create_Polygon()
Draw_Polygon()
Direct3D_Device.EndScene()
Direct3D_Device.Present()
Application.DoEvents()
Loop
End Sub
Private Sub Main()
If MessageBox.Show("Click Yes to go to full screen (Recommended)", "", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then
Fullscreen_Enabled = True
End If
With Me
.Show()
.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True) 'Do not draw forms background
.Text = "DirectX Tutorial"
If Fullscreen_Enabled = True Then .FormBorderStyle = Windows.Forms.FormBorderStyle.None
End With
DirectX9_Initialize()
End Sub
Private Sub Shutdown()
Running = False
Direct3D_Device = Nothing
Application.Exit()
End Sub
Private Sub frmMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Escape Then Shutdown()
End Sub
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Main()
End Sub
Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Shutdown()
End Sub
Private Sub frmMain_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Game_Loop()
End Sub
End Class
-
Dec 19th, 2011, 02:37 PM
#2
Re: DirectX9 Window Resizing Problem
Nevermind I solved it. I simply put the game loop into its own function called Render() and whenever the Form gets resized, it stops the game loop by setting it to False, Renders, and sets it back to true. When you stop resizing, it fires the Paint event and enters back into the loop. I even ran some tests such as making the square move and it continues to move as it resizes rather than halts the program till release. Heres my solution:
vb.net Code:
Option Explicit On Option Strict On Imports Microsoft.DirectX Imports Microsoft.DirectX.Direct3D Public Class frmMain Private Const COLOR_DEPTH_16_BIT As Format = Direct3D.Format.R5G6B5 Private Const COLOR_DEPTH_24_BIT As Format = Direct3D.Format.A8R8G8B8 Private Const COLOR_DEPTH_32_BIT As Format = Direct3D.Format.X8R8G8B8 Private Direct3D_Device As Direct3D.Device Private Display_Mode As Direct3D.DisplayMode Private Direct3D_Window As PresentParameters = New PresentParameters Private Fullscreen_Enabled As Boolean Private Running As Boolean = True Private Vertex_List As CustomVertex.TransformedColoredTextured() = New CustomVertex.TransformedColoredTextured(0 To 3) {} 'create an array of vertices Private Texture As Direct3D.Texture Private Function Create_TLVertex(ByVal X As Single, ByVal Y As Single, ByVal Z As Single, ByVal RHW As Single, ByVal Color As Integer, ByVal TU As Integer, ByVal TV As Integer) As CustomVertex.TransformedColoredTextured Create_TLVertex.Position = New Vector4(X, Y, Z, 1) Create_TLVertex.Rhw = RHW Create_TLVertex.Color = Color Create_TLVertex.Tu = TU Create_TLVertex.Tv = TV End Function Private Sub DirectX9_Initialize() If Fullscreen_Enabled = True Then Display_Mode.Width = 800 Display_Mode.Height = 600 Display_Mode.Format = COLOR_DEPTH_16_BIT 'Check to see if fullscreen mode is supported before you use it. If Direct3D.Manager.CheckDeviceType(0, Direct3D.DeviceType.Hardware, Display_Mode.Format, Display_Mode.Format, False) Then ' Perfect, this is valid Direct3D_Window.Windowed = False Direct3D_Window.BackBufferCount = 1 Direct3D_Window.BackBufferWidth = Display_Mode.Width Direct3D_Window.BackBufferHeight = Display_Mode.Height Else MessageBox.Show("Your video card doesn't support this screen resolution.", "", MessageBoxButtons.OK, MessageBoxIcon.Error) End If Else Direct3D_Window.Windowed = True End If Direct3D_Window.SwapEffect = SwapEffect.Copy Direct3D_Window.BackBufferFormat = Display_Mode.Format 'Create our device Direct3D_Device = New Direct3D.Device(0, Direct3D.DeviceType.Hardware, Me.Handle, CreateFlags.SoftwareVertexProcessing, Direct3D_Window) End Sub Private Sub Create_Polygon() Vertex_List(0) = Create_TLVertex(0, 0, 0, 1, System.Drawing.Color.FromArgb(255, 255, 255, 255).ToArgb, 0, 0) Vertex_List(1) = Create_TLVertex(50, 0, 0, 1, System.Drawing.Color.FromArgb(255, 255, 255, 255).ToArgb, 1, 0) Vertex_List(2) = Create_TLVertex(0, 50, 0, 1, System.Drawing.Color.FromArgb(255, 255, 255, 255).ToArgb, 0, 1) Vertex_List(3) = Create_TLVertex(50, 50, 0, 1, System.Drawing.Color.FromArgb(255, 255, 255, 255).ToArgb, 1, 1) End Sub Private Sub Draw_Polygon() Direct3D_Device.VertexFormat = CustomVertex.TransformedColored.Format Direct3D_Device.DrawUserPrimitives(PrimitiveType.TriangleStrip, 2, Vertex_List) End Sub Private Sub Render() Direct3D_Device.Clear(ClearFlags.Target, Color.Black, 1.0, 0) Direct3D_Device.BeginScene() 'Rendering code goes here. Create_Polygon() Draw_Polygon() Direct3D_Device.EndScene() Direct3D_Device.Present() Application.DoEvents() End Sub Private Sub Game_Loop() Do While Running = True Render() Loop End Sub Private Sub Main() If MessageBox.Show("Click Yes to go to full screen (Recommended)", "", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then Fullscreen_Enabled = True End If With Me .Show() .SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True) 'Do not draw forms background .Text = "DirectX Tutorial" If Fullscreen_Enabled = True Then .FormBorderStyle = Windows.Forms.FormBorderStyle.None End With DirectX9_Initialize() End Sub Private Sub Shutdown() Running = False Direct3D_Device = Nothing Application.Exit() End Sub Private Sub frmMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = Keys.Escape Then Shutdown() End Sub Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Main() End Sub Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing Shutdown() End Sub Private Sub frmMain_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint Game_Loop() End Sub Private Sub frmMain_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize If Fullscreen_Enabled = False Then Running = False Render() Running = True End If End Sub End Class
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Mark Thread Resolved
Reply With Quote