Paso 9. Finalizando el diseñador de anillos.

Ya funcionan todos los combobox, los comandos, los botones, y está a prueba de fallos, además esta semana, gerard me ha dicho que dedicase unas horas, a una idea que era imprimir el formulario, i después de largas búsquedas por internet, lo he conseguido y funciona a la perfección.
De momento no se le añadirá nada más a este subprograma, más que algunos retoques o detalles.

Robert Gómez - Práctica 4 Vaciar/Llenar

Código:

Dim i As Integer 'dimensionamos i como integer


Dim t As Integer ' dimensionamos t como integer



Private Sub Bstart_Click()

If text1.Top > 3120 Then 'en caso de que el text1.top sea mas grande que 3120 entonces volvera a ser 3120

text1.Top = 3120

End If

If text1.Top < 720 Then 'en caso de que el text1.top sea mas pequeño que 720 entonces pasara a tener el valor de 720

text1.Top = 720

End If

Timer1.Enabled = True 'enciende el timer

End Sub



Private Sub Command1_Click()

Timer1.Enabled = False 'apaga el timer

End Sub



Private Sub Timer1_Timer()

If Option1.Value = True Then 'en caso de que este marcada la option1 entonces el valor de i sera 20, sino sera -20

i = 20

Else

i = -20

End If



text1.Height = text1.Height + i ' el valor de text1.height es igual que el valor de text1.height mas el valor de i

text1.Top = text1.Top - i 'el valor de text1.top sera igual que el valor de text1.top mas el valor de i

If text1.Height > Picture1.Height Then 'en caso de que el text1.height sea mas grande que picture1.height entonces i pasara a tener el valor de 0 y el text1.height apsara a tener el valor de picture1.height y se apagara el timer

i = 0

text1.Height = Picture1.Height

Timer1.Enabled = False

End If

If text1.Height < 283 Then 'en caso de que el text1.height sea mas pekeño que 283 entonces pasara a tener el valro de 285 y el timer pasara a estar apagado

text1.Height = 285

Timer1.Enabled = False

End If

End Sub