[XNA 4.0]Content Loader erstellen

  • VB.NET

    [XNA 4.0]Content Loader erstellen

    Hi leute

    ich arbeite grad an einem Projekt, welches ich geheim halten möchte ;D
    Dort werden Module geladen
    und Module sollen fähig sein, texturen zu zeichnen.
    Dafür hab ich ein Game Libary Projekt gemacht, ein Content Projekt hizugefügt (zum Projekt und zur Mappe)
    aber ich kann keine Textur laden, ich bekomm immer den Fehler, dass die Textur nicht nichts sein darf

    Das interface:

    VB.NET-Quellcode

    1. Namespace Modules
    2. Public Interface ModuleInterface
    3. ReadOnly Property Name As String
    4. Sub Initialize()
    5. Sub LoadContent()
    6. Sub UnloadContent()
    7. Sub Draw(ByVal spriteBatch As SpriteBatch, ByVal spriteFont As SpriteFont, ByVal graphicsDeviceManager As GraphicsDeviceManager)
    8. Sub Update(ByVal keyboardState As KeyboardState, ByVal mouseState As MouseState, ByVal gameTime As GameTime)
    9. End Interface
    10. End Namespace


    Die Testklasse:

    VB.NET-Quellcode

    1. Public Class Main
    2. Implements ************.Modules.ModuleInterface
    4. Private content As Content.ContentManager
    5. Private service As New GameServiceContainer
    7. Dim tex As Texture2D
    9. Public Sub Draw(spriteBatch As Microsoft.Xna.Framework.Graphics.SpriteBatch, spriteFont As Microsoft.Xna.Framework.Graphics.SpriteFont, graphicsDeviceManager As Microsoft.Xna.Framework.GraphicsDeviceManager) Implements ************.Modules.ModuleInterface.Draw
    10. spriteBatch.Draw(tex, New Vector2(0, 0), Color.White)
    11. End Sub
    13. Public Sub Initialize() Implements ************.Modules.ModuleInterface.Initialize
    15. content = New ContentManager(service)
    16. 'You have to change this after compiling
    17. content.RootDirectory = "********** Module (Content)"
    18. End Sub
    20. Public Sub LoadContent() Implements ************.Modules.ModuleInterface.LoadContent
    21. tex = content.Load(Of Texture2D)("File")
    22. End Sub
    24. Public ReadOnly Property Name As String Implements ************.Modules.ModuleInterface.Name
    25. Get
    26. 'The name of the module.
    27. 'Just for identification.
    28. Return "<ModuleName>"
    29. End Get
    30. End Property
    32. Public Sub UnloadContent() Implements ************.Modules.ModuleInterface.UnloadContent
    34. End Sub
    36. Public Sub Update(keyboardState As Microsoft.Xna.Framework.Input.KeyboardState, mouseState As Microsoft.Xna.Framework.Input.MouseState, gameTime As Microsoft.Xna.Framework.GameTime) Implements ************.Modules.ModuleInterface.Update
    38. End Sub
    39. End Class


    Und der aufruf:

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' This is called when the game should draw itself.
    3. ''' </summary>
    4. ''' <param name="gameTime">Provides a snapshot of timing values.</param>
    5. Protected Overrides Sub Draw(ByVal gameTime As GameTime)
    6. c_fpsCounter.Draw(gameTime)
    7. spriteBatch.Begin()
    8. 'Main Loop
    10. If b_isDebugEnabled Then
    11. Dim count As Integer = CInt(f_DebugFont.MeasureString("A").X)
    12. spriteBatch.DrawString(f_DebugFont, "********* Build " & My.Settings.BuildCount, New Vector2(0, 0 * count), Color.Black)
    13. spriteBatch.DrawString(f_DebugFont, c_fpsCounter.frameRate & " FPS", New Vector2(0, 1 * count), Color.Black)
    14. spriteBatch.DrawString(f_DebugFont, "Modules loaded: " & i_modulesLoaded, New Vector2(0, 2 * count), Color.Black)
    15. Dim w As Integer = 3
    16. For i As Integer = 0 To s_moduleListNames.Count - 1
    17. spriteBatch.DrawString(f_DebugFont, s_moduleListNames.Item(i), New Vector2(0, w * count), Color.Black)
    18. w += 1
    19. Next
    20. End If
    22. For Each m As ***********.Modules.ModuleInterface In module_list
    23. m.Draw(spriteBatch, f_DebugFont, graphics)
    24. Next
    26. 'End of main loop.
    27. spriteBatch.End()
    28. MyBase.Draw(gameTime)
    29. End Sub
    Always code as if the person who ends up maintaining your code is a violent psychopath who knows where you live.

    BeryJu.org BeryJu.org/Blog

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „JensMn“ ()

Facebook