{"id":579,"date":"2013-11-04T22:57:29","date_gmt":"2013-11-04T21:57:29","guid":{"rendered":"http:\/\/labalec.fr\/erwan\/?p=579"},"modified":"2013-11-16T14:33:20","modified_gmt":"2013-11-16T13:33:20","slug":"vb-net-and-xna-article-5-mouse-input","status":"publish","type":"post","link":"https:\/\/labalec.fr\/erwan\/?p=579","title":{"rendered":"VB.Net and XNA : article 5 (mouse input)"},"content":{"rendered":"

A quick one : lets adapt the last example (VB.Net and XNA : Article 4) and lets illustrate how to use the mouse input.
\nHere our texture will move around as we move the mouse.<\/p>\n

Here are the project files : xna_demo_3.1<\/a><\/p>\n

And below the code to review. Look at the updatemouse method.
\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>\n

Public Class Game
\n Inherits Microsoft.Xna.Framework.Game
\n 'Fields in our game graphic manager etc'
\n Dim graphics As GraphicsDeviceManager
\n '
\n Dim font1 As SpriteFont
\n Dim msg As String
\n '
\n Dim spriteBatch As SpriteBatch
\n '
\n 'Texture that we will render'
\n Private mTexture As Texture2D
\n 'Set the coordinates to draw the sprite at'
\n Private spritePos As Vector2 = Vector2.Zero<\/p>\n

Public Sub New()
\n graphics = New GraphicsDeviceManager(Me)
\n 'graphics.ToggleFullScreen()
\n End Sub<\/p>\n

Protected Overrides Sub Initialize()
\n 'TODO: Add your initialization logic here'
\n MyBase.Initialize()
\n msg = \"hello world\"
\n End Sub<\/p>\n

Protected Overrides Sub LoadContent()
\n ' TODO: use this.Content to load your game content here'
\n MyBase.LoadContent()
\n ' Create a new SpriteBatch, which can be used to draw textures.'
\n spriteBatch = New SpriteBatch(GraphicsDevice)
\n 'Loading the texture'
\n mTexture = Content.Load(Of Texture2D)(\"bille\")
\n 'lets create a font
\n font1 = Content.Load(Of SpriteFont)(\"myfont\")
\n End Sub
\n Protected Overrides Sub UnloadContent()
\n MyBase.UnloadContent()
\n 'TODO: Unload any non ContentManager content here'
\n End Sub<\/p>\n

Protected Overrides Sub Update(ByVal gameTime As Microsoft.Xna.Framework.GameTime)
\n 'Allows the game to exit'
\n If GamePad.GetState(PlayerIndex.One).Buttons.Back = ButtonState.Pressed Then
\n Me.Exit()
\n End If
\n 'TODO: Add your update logic here'
\n updatemouse()
\n '
\n MyBase.Update(gameTime)
\n End Sub<\/p>\n

Protected Overrides Sub Draw(ByVal gameTime As Microsoft.Xna.Framework.GameTime)
\n GraphicsDevice.Clear(Color.CornflowerBlue)
\n 'TODO: Add your drawing code here'
\n 'Draw the sprite'
\n spriteBatch.Begin(SpriteSortMode.BackToFront, BlendState.AlphaBlend)
\n spriteBatch.DrawString(font1, msg, New Vector2(20.0F, 20.0F), Color.White)
\n spriteBatch.Draw(mTexture, spritePos, Color.White)
\n spriteBatch.End()
\n MyBase.Draw(gameTime)
\n End Sub<\/p>\n

Private Sub updatemouse()
\n Dim newState As MouseState
\n newState = Mouse.GetState
\n spritePos.X = newState.X
\n spritePos.Y = newState.Y
\n '
\n msg = spritePos.X & \",\" & spritePos.Y
\n End Sub
\nEnd Class
\n<\/code><\/p>\n

https:\/\/labalec.fr\/erwan\/wp-content\/uploads\/2013\/11\/xna05.mp4<\/a><\/video><\/div>\n","protected":false},"excerpt":{"rendered":"

A quick one : lets adapt the last example (VB.Net and XNA : Article 4) and lets illustrate how to use the mouse input. Here our texture will move around as we move the mouse. Here are the project files : xna_demo_3.1 And below the code to review. Look at the updatemouse method. Imports Microsoft.Xna.Framework […]<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[34,35],"tags":[],"class_list":["post-579","post","type-post","status-publish","format-standard","hentry","category-dotnet","category-xna","category-34-id","category-35-id","post-seq-1","post-parity-odd","meta-position-corners","fix"],"_links":{"self":[{"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/posts\/579","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=579"}],"version-history":[{"count":3,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/posts\/579\/revisions"}],"predecessor-version":[{"id":606,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/posts\/579\/revisions\/606"}],"wp:attachment":[{"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=579"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=579"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=579"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}