Keskustelu: Ohjelmointikysymykset: VB6: VB: Jos painaa tiettyä näppäintä

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub

    Private Sub Form1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

        Dim xmsg As String = String.Empty

        If e.KeyCode = 117 Then '(F6)
            Static i As Integer : i += 1
            If i = 2 Then xmsg = "uudestaan"
            If i > 2 Then xmsg = "jälleen kerran"
            MsgBox("Morjens virus4 painoit F6-näpäintä " + xmsg)
        ElseIf e.KeyCode = 118 Then '(F7)
            Static j As Integer : j += 1
            Aliohjelma("Morjens viirus4 painoit F7-näpäintä ", j)
        End If

    End Sub

    Private Sub Aliohjelma(param1 As String, param2 As Integer) 'esim.
        MsgBox(param1 & param2 & ". kerran")
    End Sub

End Class

Imports System
Imports System.Collections.Generic
Imports System.Ling
Imports Microsoft.Xna.Framework
Imports Microsoft.Xna.Framework.Audio
Imports Microsoft.Xna.Framework.Content
Imports Microsoft.Xna.Framework.GamerServices
Imports Microsoft.Xna.Framework.Graphics
Imports Microsoft.Xna.Framework.Input
Imports Microsoft.Xna.Framework.Media
Imports Microsoft.Xna.Framework.Net
Imports Microsoft.Xna.Framework.Storage

Public Class Game1

    Inherits Microsoft.Xna.Framework.Game
    Private graphics As GraphicsDeviceManager
    Private oldState As KeyboardState
    Private backColor As Color = Color.CornflowerBlue

    Public Sub New()
        graphics = New GraphicsDeviceManager(Me)
    End Sub

    Protected Overrides Sub Initialize()

        MyBase.Initialize()
        oldState = Keyboard.GetState()

    End Sub

    Protected Overrides Sub LoadContent()
    End Sub

    Protected Overrides Sub UnloadContent()
    End Sub

    Protected Overrides Sub Update(gameTime As GameTime)
        ' Allows the game to exit
        If GamePad.GetState(PlayerIndex.One).Buttons.Back = ButtonState.Pressed Then
            Me.[Exit]()
        End If

        UpdateInput()

        MyBase.Update(gameTime)

    End Sub

    Private Sub UpdateInput()

        Dim newState As KeyboardState = Keyboard.GetState()

        If newState.IsKeyDown(Keys.F6) Then
            If newState.IsKeyDown(Keys.F6) Then 'painettu F6-näppintä
                 If Not oldState.IsKeyDown(Keys.F6) Then
                      'tähän suoritettava koodi tai viittaus johonkin aliohjelmaan
                 End If
            ElseIf oldState.IsKeyDown(Keys.F6) Then
            End If
            oldState = newState
        End If

        If newState.IsKeyDown(Keys.F7) Then
            If newState.IsKeyDown(Keys.F7) Then 'painettu F7-näppintä
                If Not oldState.IsKeyDown(Keys.F7) Then
                      'tähän suoritettava koodi tai viittaus johonkin aliohjelmaan
                End If
            ElseIf oldState.IsKeyDown(Keys.F7) Then
            End If
            oldState = newState
        End If

        If newState.IsKeyDown(Keys.Space) Then
            ' Is the SPACE key down?
            If newState.IsKeyDown(Keys.Space) Then
                ' If not down last update, key has just been pressed.
                If Not oldState.IsKeyDown(Keys.Space) Then
                    backColor = New Color(backColor.R, backColor.G, CByte(Not backColor.B))
                End If
                ' Key was down last update, but not down now, so
                ' it has just been released.
            ElseIf oldState.IsKeyDown(Keys.Space) Then
            End If

            ' Update saved state.
            oldState = newState
        End If

    End Sub

    Protected Overrides Sub Draw(gameTime As GameTime)
        graphics.GraphicsDevice.Clear(backColor)
        MyBase.Draw(gameTime)
    End Sub

End Class