Foro de elhacker.net

Hola buenas tardes,

Tengo un formulario con un Button1, un Textbox1 y un Label1(este Label lo tengo oculto)

Boton 1:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = "tu nombre es: " + TextBox1.Text + "y tu clave es: " + obtenerPassword(6).ToString
Label1.Visible = True

Textbox1, aquí pongo cualquier nombre

Tengo una función creada llamada obtenerPassword(6) , que exáctamente me genera una clave de 6 caracteres alfanumérico:

Public Function obtenerPassword(ByVal longitud_Clave As Integer) As String

(créo que el codigo es lo de menos para mi consulta, si lo necesitan para ayudarme se los muestro, es para no extenderme)

Mi consulta es como puedo hacer que mi botón realice una vez la funcion obtenerPassword(6), ya que si lo presiono nuevamente me genera una nueva clave y así sucesivamente, entonces habrá alguna forma de bloquear la función
o decirle al boton que lo haga solo una vez .


Gracias!!

Hola!

Aunque tu pregunta es sobre VB .NET (el cual no manejo mucho) y este es el foro de VB 6 (hay uno de .NET tambien), te doy unas idea:

Podrias usar una variable tipo boolean, global al form o al proyecto que te indique si ya se ha generado la pass.

Ahora, algo mas sencillo seria (usando tu ejemplo:)

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
if not Label1.Visible then
    Label1.Text = "tu nombre es: " + TextBox1.Text + "y tu clave es: " + obtenerPassword(6).ToString
    Label1.Visible = True
end if
 

Cuando Label1 ya está visible, el click no generará más la pass...  :P

Saludos!

Hola mi amigo muchas gracias con tu idea pude lograr hacerlo, te comento que aún soy nuevo en la programación.  Puedes hacerme favor de enviarme el link del foro de .net?  Pensé que este era el foro de VB.NET

Así fue el código que me sirvió, aunque este depende del label, yo esperaba hacerlo por medio de una variable tipo Boolean pero no se como, será mucha molestía si me ejemplificas el código?

este es el codigo que sirvió:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Label1.Visible = True Then
            Button2.CausesValidation = False
            MsgBox("Genera otra clave")
        Else
            Label1.Text = "tu nombre es: " + TextBox2.Text + "y tu clave es: " + obtenerPassword(6).ToString
            Label1.Visible = True
        End If

La propiedad CausesValidation, no sabía que esa era la propiedad para validar la ejecución del boton.

Gracias quedo pendiente d tus comentarios.

saludos!!!!