Ver Mensaje Individual
  #4 (permalink)  
Antiguo 11/03/2004, 16:47
estefy
 
Fecha de Ingreso: enero-2004
Ubicación: edo de mex
Mensajes: 10
Antigüedad: 20 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