Ignis
lo que no logro es capturar las teclas pues cuando aprieto el 1 el VB lo entiende por el 49 en keyascii y lo otro es que en el form las cosas se imprimen hacia abajo y no hace el cambio de linea para poder hacer el triangolo, no me digas la respuesta pues sigo intentandolo.
Pero lo mejor de esto es que al saber que hay personas dispuestas a ayudarte te dan deseos de hacer lo imposible.gracias
Option Explicit
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim i As Integer
Dim j As Integer
Dim aster As String
If KeyAscii = 49 Then
j = 1
ElseIf KeyAscii = 50 Then
j = 2
ElseIf KeyAscii = 51 Then
j = 3
ElseIf KeyAscii = 52 Then
j = 4
ElseIf KeyAscii = 53 Then
j = 5
ElseIf KeyAscii = 54 Then
j = 6
ElseIf KeyAscii = 55 Then
j = 7
ElseIf KeyAscii = 56 Then
j = 8
ElseIf KeyAscii = 57 Then
j = 9
End If
aster = "*"
While j <> 0
For i = 1 To j
Print aster
Next
j = j - 1
Print Chr$(13)
Wend
End Sub
Se que he abusado del If Then Else...
Un amigo
Fearlex
