Visual Basic - Ejercicio 3

[eL---MeLLi]

Form1

Código [Seleccionar] Expandir


Private Sub btnacpetar1_Click()
Dim error As VbMsgBoxResult
If txtclave1.Text = "" Then     'si la casilla está vacía manda error
error = MsgBox("¡Error! No ha ingresado la clave", vbOKOnly + vbCritical, "Error") Else
Form2.Show            ' si ha ingresado una clave,muestra el formulario 2
End If
End Sub


Form2

Código [Seleccionar] Expandir


Private Sub btnaceptar2_Click()
Dim error As VbMsgBoxResult
If txtclave2.Text <> Form1.txtclave1.Text Then   'si la clave es distinta, error.
error = MsgBox("¡Error! La clave no es válida", vbOKOnly + vbCritical, "Error")  txtclave2.Text = ""       ' y vacia la casilla
Else                    ' ...si la clave es igual a la anterior
End                    ' finaliza el proceso
End If
End Sub


De la forma en que lo escribí, me funciona correctamente cumpliendo todos los requisitos pedidos. Si hay algún error, por favor díganlo. 

Tengo algunas dudas en cuanto a otros ejercicios, como por ejemplo, si acaso puedo ocupar Visual Basic Scripts para realizar los ejericios 7, 8 y 9 en relación a Acceso a ficheros, o cualquier otro ejercicio en el cual sea posible, y si es posible, que de pasada me expliquen si hay alguna diferencia en los VBS, por lo cuál es seleccionado como otro tipo de código.

Espero haber sido claro. 

[soplo]

Hola
No pasa nada con que lo hagas en visual basic scripts, pero no es lo mismo.

Al fin y al cabo se trata de aprender.

¡Hazlo de ambos modos!