XNA_DEMO_8<\/a><\/p>\n
\nImports Microsoft.Xna.Framework
\nImports Microsoft.Xna.Framework.Graphics
\nImports Microsoft.Xna.Framework.Audio
\nImports Microsoft.Xna.Framework.Content
\nImports Microsoft.Xna.Framework.Media
\nImports Microsoft.Xna.Framework.Input<\/p>\nPublic Class Game
\n Inherits Microsoft.Xna.Framework.Game
\n 'Fields in our game graphic manager etc'
\n Dim graphics As GraphicsDeviceManager
\n ' \/\/ 1. Load a Texture2D and SpriteBatch as normal.
\n Dim texture1 As Texture2D
\n Dim spriteBatch As SpriteBatch
\n ' \/\/ 2. Create two rectangles for the texture.
\n Dim rectangle1 As Rectangle
\n Dim rectangle2 As Rectangle
\n '\/\/ 3. step for the scrolling
\n Dim istep As Integer = 5
\n '\/\/ some text we will display on screen
\n Dim font1 As SpriteFont
\n Dim msg As String<\/p>\n
Public Sub New()
\n graphics = New GraphicsDeviceManager(Me)
\n Window.Title = \"lets Scroll!\"
\n graphics.PreferredBackBufferWidth = 800
\n graphics.PreferredBackBufferHeight = 410
\n End Sub<\/p>\n
Protected Overrides Sub Initialize()
\n '\/\/ 3a. rectangle1 and 2 should be equal to the
\n '\/\/ dimension of the texture.
\n rectangle1 = New Rectangle(0, 0, 2048, 410)
\n '\/\/ 3b. Position rectangle2 to the immediate right of rectangle1.
\n rectangle2 = New Rectangle(2048, 0, 2048, 410)
\n MyBase.Initialize()
\n End Sub<\/p>\n
Protected Overrides Sub LoadContent()
\n MyBase.LoadContent()
\n spriteBatch = New SpriteBatch(GraphicsDevice)
\n texture1 = Content.Load(Of Texture2D)(\"back1\")
\n 'lets create a font
\n font1 = Content.Load(Of SpriteFont)(\"myfont\")
\n End Sub<\/p>\n
Protected Overrides Sub UnloadContent()
\n MyBase.UnloadContent()
\n End Sub<\/p>\n
Protected Overrides Sub Update(ByVal gameTime As Microsoft.Xna.Framework.GameTime)
\n '\/\/ 5a. This is where the quote unquote \"magic\" happens.
\n '\/\/ This is a simple bounds check. If the right edge of
\n '\/\/ rectangle1 is offscreen to the left, you move it to
\n '\/\/ the right side of rectangle2.
\n If (rectangle1.X + texture1.Width <= 0) Then rectangle1.X = rectangle2.X + texture1.Width\n ' \/\/ You repeat this check for rectangle2.\n If (rectangle2.X + texture1.Width <= 0) Then rectangle2.X = rectangle1.X + texture1.Width\n '\/\/ 6. Otherwise we incrementally move it to the left. \n '\/\/ You can swap out X for Y if you instead want incremental \n '\/\/ vertical scrolling.\n Dim key As KeyboardState\n key = Keyboard.GetState\n If key.IsKeyDown(Keys.Add) Then istep = istep + 1\n If key.IsKeyDown(Keys.Subtract) Then istep = istep - 1\n rectangle1.X -= istep\n rectangle2.X -= istep\n msg = \"step= \" & istep.ToString\n '\n MyBase.Update(gameTime)\n End Sub\n\n Protected Overrides Sub Draw(ByVal gameTime As Microsoft.Xna.Framework.GameTime)\n '\/\/ 4. Load the SpriteBatch as normal.\n '\/\/ load the same texture into two different rectangles.\n spriteBatch.Begin()\n spriteBatch.Draw(texture1, rectangle1, Color.White)\n spriteBatch.Draw(texture1, rectangle2, Color.White)\n spriteBatch.DrawString(font1, msg, New Vector2(20.0F, 20.0F), Color.White)\n spriteBatch.End()\n MyBase.Draw(gameTime)\n End Sub\nEnd Class\n<\/code><\/p>\n