
11/03/2004, 16:47
|
| | Fecha de Ingreso: enero-2004 Ubicación: edo de mex
Mensajes: 10
Antigüedad: 21 años, 3 meses Puntos: 0 | |
mi programa es el siguiente y quisiera que me ayudaras a estructurarlo bien mas que nada en cuanto a los bucles lo que se pretende es ejecutar la pantalla tantas veces anote el numero el usuario espero me puedan a yudar
aqui empieza mi programa:
Dim aceptar As Integer
Private Sub Command1_Click()
Text2.Text = UCase(Text1.Text) + (" hola como estas")
Text3 = ""
'esta es la estructura que me mandaste ahora te pido que me
'ayudes a acomodar los bucles ya que no les he podido entender
'entre comentarios he puesto a como yo le he entendido en libro
Dim formulario As Form
Set formulario = fa.frm
fa.Show
' repeat
' Form1
'until text=""
'For aceptar = 1 To Text3.Text < 99
' Print Form1
'Next
'Do
' Form1
'Loop Until Text3 < 99
' Do Until Text3.Text < 99
' aceptar = aceptar + 1
'Loop
End Sub
Private Sub Command2_Click()
mensaje = "¿Esta seguro que desea salir?"
If MsgBox(mensaje, vbYesNo + vbQuestion, "Atención") = vbNo Then
Text1.Text = " "
Text2.Text = " "
Else
End
End If
End Sub
de antemano les agradezco cualquier ayuda que me puedan ofrecer
gracias |