Hi,
Any Windows action which minimizes all windows (win + D, ctrl + alt +
del) is causing program error
I have two forms:
Form1 is shown on primary monitor on dual head graphics display
Public Class Form1
Inherits System.Windows. Forms.Form
Dim out As monitorIzlaz
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
out = New monitorIzlaz
out.setBackColo r(Color.Black)
out.Top = 0
out.Left = -800
out.Show()
out.kreni()
End Sub
End Class
monitorIzlaz is shown on secondary monitor on dual head graphics display
Imports Microsoft.Direc tX
Imports Microsoft.Direc tX.Direct3D
Imports Microsoft.Direc tX.AudioVideoPl ayback
Public Class monitorIzlaz
Inherits System.Windows. Forms.Form
Public device As Device = Nothing
Dim radi As Boolean = True
Dim nit As System.Threadin g.Thread
Dim nitVideo As System.Threadin g.Thread
Private s(15) As Microsoft.Direc tX.Direct3D.Spr ite
Public comp(15) As monitorComp
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeCompo nent()
InitializeGraph ics()
Me.SetStyle(Con trolStyles.AllP aintingInWmPain t Or
ControlStyles.O paque, True)
nit = New System.Threadin g.Thread(Addres sOf mainloop)
nit.Priority = Threading.Threa dPriority.Highe st
End Sub
Public Sub InitializeGraph ics()
Dim presentParams As New PresentParamete rs
presentParams.S wapEffect = SwapEffect.Flip
presentParams.B ackBufferCount = 1
presentParams.W indowed = True
presentParams.A utoDepthStencil Format = DepthFormat.D24 S8
presentParams.E nableAutoDepthS tencil = True
presentParams.P resentationInte rval = PresentInterval .One
device = New Device(1, DeviceType.Hard ware, Me,
CreateFlags.Har dwareVertexProc essing, presentParams)
device.RenderSt ate.SourceBlend = Direct3D.Blend. SourceAlpha
device.RenderSt ate.Destination Blend =
Direct3D.Blend. InvSourceAlpha
device.RenderSt ate.AlphaBlendE nable = True
Dim i As Integer
For i = 0 To 15
s(i) = New Sprite(device)
Next
AddHandler device.DeviceRe set, AddressOf Me.resetDevice
AddHandler device.DeviceRe sizing, AddressOf Me.resetDevice1
End Sub
Public Sub mainloop()
Dim dir As System.IO.Direc tory
Dim pomak As Integer = 2
While radi
Try
device.Clear(Cl earFlags.Target Or ClearFlags.ZBuf fer,
bckColor, 1.0F, 0)
device.BeginSce ne()
For i = 0 To 15
s(i).Begin(Spri teFlags.AlphaBl end)
s(i).Draw(comp( i).rendertextur e, New
Rectangle(0, 0, comp(i).SIRINA, comp(i).VISINA) , New Vector3(0, 0, 0),
New Vector3(comp(i) .X, comp(i).Y, 1.0F), Color.FromArgb( comp(i).opacity ,
255, 255, 255))
s(i).End()
next
device.EndScene ()
device.Present( )
Catch ex As Exception
End Try
End While
End Sub
Public Sub kreni()
nit.Start()
End Sub
End Class
Any idea what’s wrong and/or how to solve this problem?
Thanks in advance.
*** Sent via Developersdex http://www.developersdex.com ***