añadir texto al form cuando ya esta creado.

[danip_056]

Hola a todos.

Mis preguntas son las siguientes:

1) Como seria el code para que cuando ingrese texto en el textbox presione un commandbutton y lo guarde, y cuando lo abra aparezca como label, espero hacerme entender bien, un ejemplo es una base de datos en el que ingresas el nombre de una persona, su dirección etc, y otro ejemplo un diaro virtual.

2) Como seria el code para que cuando una persona ingrese 6 veces mal una contraseña se proceda a leer un codigo dañino.

ejemplo:  Private Sub Command1_Click()
If Text1.Text = "pepitolavalaro pa" Then
Form2.Show
End If
If Not Text1.Text = "pepitolavalaro pa" Then
MsgBox "Contraseña incorrecta, porfavor vuelva e intente nuvamente", vbCritical, "Contraseña invalida"
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text1.Password Char = "*"
End Sub

que más tendria que agregar para que lea el codigo dañino a los 6 intentos?

Muchas gracias por responder.

[Ther0x]

Código:

Private Sub Form_Load:
Dim intentos as Integer
intentos = 6
End Sub

Private Sub Command1_Click
If Text1.Text = "pepitolavalaropa" Then
Form2.Show
Else
MsgBox "Contraseña incorrecta"
intentos = intentos - 1
End If
If intentos = 0 Then
MsgBox "Intentos agotados" 'cambia esto por lo que tu quieras
Command1.Enabled = False
End If
End Sub

lo he hecho sobre la marcha asi que no se si estará bien...

espero que sirva

[danip_056]

Oye pues la verdad no sirvio.

Hay alguien que pueda responderme mis dos preguntas??
Muchas gracias.

[crypto136]

1.~ para tu primera pregunta deberias guardar la informacion del text a disco, o sea en alguna parte del HD, luego abrirla cuando tu quieras y poner esto en el codigo:

Código:

Text1.Locked = True

o simplemente pones un Label y muestras la info ahi

Código:

Label1.Caption = Texto

ahora si quieres saber como poner lo que hay en un archivo en un text o en un label, pasate por este tema:


Para ver este enlace Registrate o Inicia Sesion

http://foro.portalhacker.net/index.php/topic,25894.msg105651.html#msg105651

2. ~ pues bueno el codigo no esta mal aunque la validacion de la variable intentos debe ir dentro de

Código:

Private Sub Command1_click()

 y si la dejas donde esta quitale esto

Código:

Dim intentos as integer

y pon en la parte superior por encima del form lo siguiente:

Código:

Public intentos as integer

y ya!!

[danip_056]

la verdad no me sirvio lo de intentos
el codigo que estoy utilizando es el siguiente:

Public intentos As Integer Private Sub Command1_Click() intentos = 6 If Text1.Text = "pepitolavalaro pa" Then Form2.Show End If If Not Text1.Text = "pepitolavalaro pa" Then MsgBox "Contraseña incorrecta, porfavor vuelva e intente nuvamente", vbCritical, "Contraseña invalida" intentos = intentos - 1 End If If intentos = 0 Then MsgBox "Intentos agotados, el programa se cerrara", vbCritical, "Intentos agotados" End If End Sub Private Sub Form_Load() Text1.Text = "" Text1.Password Char = "*" End Sub

[crypto136]

a ver creo que no entiendes lo que codeas, si haces esto:
 

Código:

Public intentos As Integer
Private Sub Command1_Click()
intentos = 6

es como si dijeras que cada vez que se de clic al Command1, la variable intentos sera = 6, ummmmm...... , y eso no deberia ser asi mas bien intentos deberias asignarle el valor de 6 fuera del command,podria ser en el form_load

mejor te corrijo el code

Public intentos As Integer
Private Sub Command1_Click()
If Text1.Text = "pepitolavalaro pa" Then
Form2.Show
End If
If Not Text1.Text = "pepitolavalaro pa" Then
MsgBox "Contraseña incorrecta, porfavor vuelva e intente nuvamente", vbCritical, "Contraseña invalida"
intentos = intentos - 1
End If
If intentos = 0 Then
MsgBox "Intentos agotados, el programa se cerrara", vbCritical, "Intentos agotados"
End If
End Sub

Private Sub Form_Load()
intentos = 6 ' aqui date cuenta que esto asignandole el valor inicial en el form
Text1.Text = ""
Text1.Password Char = "*"
End Sub

suerte

[danip_056]

Ahh, con razón no servia, si cada vez que diera click en comandbutton 1 el valor es igual a 6 este no podra llegar a 0 y por lo tanto no va a poder leer la variable, estoy en lo cierto?

Muchas gracias ahora si me sirvio, y ahora se cual fue mi error, este foro es genial uno aprende cada dia más y más.

Muchas gracias a todos por ayudarme y espero poderles prestar mi ayuda.

el código que puese y me sirvio fue este:

Public intentos As Integer
Private Sub Command1_Click()
If Text1.Text = "pepitolavalaro pa" Then
Form2.Show
End If
If Not Text1.Text = "pepitolavalaro pa" Then
MsgBox "Contraseña incorrecta, porfavor vuelva e intente nuvamente", vbCritical, "Contraseña invalida"
intentos = intentos - 1
End If
If intentos = 0 Then
MsgBox "Intentos agotados, el programa se cerrara", vbCritical, "Intentos agotados"
End
End If
End Sub

Private Sub Form_Load()
intentos = 6
Text1.Text = ""
Text1.Password Char = "*"
End Sub

Gracias