\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 Dim graphics As GraphicsDeviceManager
\n Dim SpriteBatch As SpriteBatch<\/p>\n
Private easy As Texture2D
\n Private medium As Texture2D
\n Private hard As Texture2D<\/p>\n
Dim color_a As Color
\n Dim color_b As Color
\n Dim color_c As Color<\/p>\n
Dim rec_a As Rectangle
\n Dim rec_b As Rectangle
\n Dim rec_c As Rectangle<\/p>\n
Public Sub New()
\n graphics = New GraphicsDeviceManager(Me)
\n Window.Title = \"Test\"
\n Me.IsMouseVisible = True
\n End Sub<\/p>\n
Protected Overrides Sub Initialize()
\n MyBase.Initialize()
\n End Sub
\n Protected Overrides Sub LoadContent()
\n MyBase.LoadContent()
\n SpriteBatch = New SpriteBatch(GraphicsDevice)
\n easy = Content.Load(Of Texture2D)(\"easy\")
\n medium = Content.Load(Of Texture2D)(\"medium\")
\n hard = Content.Load(Of Texture2D)(\"hard\")<\/p>\n
rec_a = New Rectangle(40, 40, easy.Width, easy.Height)
\n rec_b = New Rectangle(40, 140, medium.Width, medium.Height)
\n rec_c = New Rectangle(40, 240, hard.Width, hard.Height)<\/p>\n
End Sub
\n Protected Overrides Sub UnloadContent()
\n MyBase.UnloadContent()
\n End Sub
\n Private Sub update_mouse()
\n Dim mouse_state As MouseState = Mouse.GetState()
\n Dim x As Integer = mouse_state.X
\n Dim y As Integer = mouse_state.Y<\/p>\n
If rec_a.Contains(x, y) Then color_a = Color.Red Else color_a = Color.White
\n If rec_b.Contains(x, y) Then color_b = Color.Red Else color_b = Color.White
\n If rec_c.Contains(x, y) Then color_c = Color.Red Else color_c = Color.White<\/p>\n
If rec_a.Contains(x, y) And mouse_state.LeftButton = ButtonState.Pressed Then color_a = Color.Yellow
\n If rec_b.Contains(x, y) And mouse_state.LeftButton = ButtonState.Pressed Then color_b = Color.Yellow
\n If rec_c.Contains(x, y) And mouse_state.LeftButton = ButtonState.Pressed Then color_c = Color.Yellow
\n End Sub<\/p>\n
Protected Overrides Sub Update(ByVal gameTime As Microsoft.Xna.Framework.GameTime)
\n update_mouse()
\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 SpriteBatch.Begin(SpriteSortMode.BackToFront, BlendState.AlphaBlend)
\n SpriteBatch.Draw(easy, rec_a, color_a)
\n SpriteBatch.Draw(medium, rec_b, color_b)
\n SpriteBatch.Draw(hard, rec_c, color_c)
\n SpriteBatch.End()
\n MyBase.Draw(gameTime)
\n End Sub<\/p>\n
End Class
\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"
Quick and dirty : buttons for XNA with mouse over and mouse click. 3 rectangles, 3 textures, mouse inputs… The source code : XNA_demo_13 . The video to illustrate. Imports Microsoft.Xna.Framework Imports Microsoft.Xna.Framework.Graphics Imports Microsoft.Xna.Framework.Audio Imports Microsoft.Xna.Framework.Content Imports Microsoft.Xna.Framework.Media Imports Microsoft.Xna.Framework.Input Public Class Game Inherits Microsoft.Xna.Framework.Game Dim graphics As GraphicsDeviceManager Dim SpriteBatch As SpriteBatch Private […]<\/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-677","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\/677","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=677"}],"version-history":[{"count":2,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/posts\/677\/revisions"}],"predecessor-version":[{"id":681,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/posts\/677\/revisions\/681"}],"wp:attachment":[{"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=677"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=677"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=677"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}