✔ Surface initialiserung (DirectX 9) "VB"

[Rene42]

Hi Leute,

ich verwende Visual Basic 2008 von Microsoft und
beschäftigte mich gerade für eine zweidimensionale Anwednung mit DirectX, nach dem Tutorial von http://www.euclideanspace.com/software/games/setup/dx9vb/basics/index.htm habe ich folgenden Quellcode für die Init() erstellt:

 'Initialisierung
    Public Sub Init()
        VisibleSurface = Nothing
        BackSurface = Nothing
        Dim sdesc As New SurfaceDescription()
        Clip = New Clipper(MyDevice)
        clip.Window = Me
        sdesc.SurfaceCaps.PrimarySurface = True
        sdesc.SurfaceCaps.Flip = True
        sdesc.SurfaceCaps.Complex = True
        sdesc.BackBufferCount = 1
        VisibleSurface = New Surface(sdesc, MyDevice)
        VisibleSurface.Clipper = Clip
        sdesc.Clear()
        sdesc.SurfaceCaps.BackBuffer = True
        VisibleSurface = BackSurface.GetAttachedSurface(sdesc.SurfaceCaps)
    End Sub

Die verursacht zur Laufzeit einen Fehler da Backsurface zwar bekannt ist, aber nicht initialisiert. Meine Versuche es zu initalisieren scheiterten leider beide.

1. Kopie der VisibleSurface Initialisierung

BackSurface = New Surface(sdesc, MyDevice)

Verursacht einen Fehler, da BackSurface und Visiblesurface dann übereinstimmen.

2.Anpassung der Kopie

Dim bsdesc As SurfaceDescription = sdesc
bsdesc.SurfaceCaps.PrimarySurface = False
BackSurface = New Surface(sdesc, MyDevice)

Dies verursacht eine Invalid Exception.

Hoffe einer weiß, was ich hier nicht richtig mache.

Gruß Rene

PS: Kann man in seinen Posts auch ein korrektes Highlighting für VB-Code einstellen?

 

[Rene42]

Sorry, Jungs für die Aufregung aber nun habe ich den Fehler gefunden, in der letzten Zeile gehören VisibleSurface und BackpufferSurface vertauscht.

Gruß Rene