Error de compilación

Buenas, yo de nuevo :)
Estoy intentando hacer un programa para generar números aleatorios, ya esta el código, pero al tratar de correr el programa me sale el siguiente error:
"Error de compilación: No se ha definido el tipo definido por el usuario"
No se si tenga que ver con declaración de variables o algo por el estilo.
Acá les dejo el código.
Option Explicit
Dim Maximo As Long
Dim Minimo As Long
Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
Randomize 1
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
End Function
Private Sub Cmd_Aceptar_Click()
If Len(Txt_01) <> 0 And Len(Txt_02) <> 0 Then
'generar un numero
MsgBox Aleatorio(CLng(Txt_01), CLng(Txt_02)), vbInformation
End If
End Sub
Private Sub Form_Load()
Txt_01 = ""
Txt_02 = ""
End Sub
Private Sub Txt_01_KeyPress(KeyAscii As Interger)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Private Sub Txt_02_KeyPress(KeyAscii As Interger)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Muchas gracias de antemano

1 Respuesta

Respuesta
1
Te equivocaste en la sintaxis :
Private Sub Txt_01_KeyPress(KeyAscii As Interger)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Private Sub Txt_02_KeyPress(KeyAscii As Interger)
Declaraste como "Interger" pero es "Integer".
Bye

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas