none
ayuda con un contador numerico en visual studio 2019 RRS feed

  • Pregunta

  • hola estoy realizando una aplicacion en la cual al presionar la tecla L deberia mostrar en el label un numero y cada vez que presione la tecla L este deberia incrementarse en mas uno,.

    pero por el momento llevo solo esto, porque no se como realizarlo

     cada vez que presiono el boton2, realizo el increment0 en +1 su valor  se muestra en el label, pero como se puede hacer para que los numeros sean mas grandes y que cuando presione la tecla L este realise la suma, por que por ahora lo hago con button click y mi idea es algo como keydown 

    keydown

    if key.L then 

    gol+1

    lebel.text=(gol)

    ________________________________________________

    pero esto es lo que tengo y me resulta pero no es como lo quiero, plis

    Imports System.IO

    Public Class Form1
        Dim gol As Integer


        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Close()
        End Sub

        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            gol = 0
        End Sub

        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            gol = gol + 1
            Label1.Text = (gol)
        End Sub
    End Class



    jhon fonttz

    jueves, 21 de noviembre de 2019 3:14

Respuestas

  • Hola:
    En un Form con 1 label, copia y pega el siguiente codigo

    Option Strict On
    Option Explicit On
    Public Class Form3
        Private Numero As Integer = 0
        Private Sub Form3_Load(sender As Object, e As EventArgs) Handles Me.Load
            Me.KeyPreview = True
            Label1.AutoSize = False
            Label1.BorderStyle = BorderStyle.FixedSingle
            Label1.Text = Numero.ToString
        End Sub

        Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
            Select Case keyData
                Case Keys.L
                    Numero += 1
                    Label1.Text = Numero.ToString
            End Select
            Return MyBase.ProcessCmdKey(msg, keyData)
        End Function
    End Class

    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta jhon fonttz jueves, 21 de noviembre de 2019 13:18
    jueves, 21 de noviembre de 2019 5:34