Come fare un FORM scorrevole?[vb6]

[ANTAGONIA]

Buon giorno avrei una curiosità
Si può fare un form che, all'atto della chiamata (frmMio.show), appaia scorrendo più o meno velocemente(a discrezione del programmatore)?

Forse è una domanda stupida, ma vorrei che la mia applicazione fosse dinamica anche in questo senso.
Vorrei riproporre un qualcosa che, si avvicini molto al mondo di internet!

Grazie per l'attenzione!

[optime]

cosa intendi per 'scorrevole'?

[gaullo]

Se gli imposti il width e heigt = 0 e li incrementi con un ciclo fino a che non raggiungono le dimesioni da te volute, avresti l'effetto simile al sito di passaparola (quello di 1 anno fa se lo hanno cambiato)
E' questo che intendi per scorrevole??

[ANTAGONIA]

Si intendo proprio questo.

Comunque mi posteresti cortesemente, il codice che dovrei usare,sempre se non ti disturbo troppo?
Questa è un'idea che ho avuto ma non saprei come metterla in pratica.

Ti ringrazio....

[chipdb]

Private Sub Form_Load ()
    aLarg = .../10 'Larghezza finale della finestra diviso 10 iterazioni
    aAlt = .../10 'Altezza finale della finestra diviso 10 iterazioni
    For I = 1 To 10
        'Se vuoi animare la larghezza
        Me.Width = aLarg * I
        'oppure l'altezza o entrambi
        Me.Height = aAlt * I
    Next I
End Sub

Ciao

[ANTAGONIA]

Grazie mille per l'aiuto!

Più tardi lo metto in pratica.....

Ciao e.....grazie ancora

[ANTAGONIA]

ho provato..l'ho messo sul form_load ma non fa niente....

Private Sub Form_Load()

aLarg = 11910 / 10
aAlt = 8640 / 10
For I = 1 To 10
'Se vuoi animare la larghezza
frmricerca.Width = aLarg * I
'oppure l'altezza o entrambi
frmricerca.Height = aAlt * I
Next I
end sub
dimensione finale della larghezza = 11910
dimensione finale dell'altezza = 8640

Se puoi aiutarmi

[Markooo]

Se il form deve scorrere dovrai lavorare sulla proprietà left del form:

Private Sub Form_Load()
   Timer1.Enabled = True
   Timer1.Interval = 1
   Me.Left = 0
End Sub

Private Sub Timer1_Timer()
   Dim x As Integer
   x = 200
   For i = 1 To x
      Me.Left = Me.Left + 10
   Next i
   Timer1.Enabled = False
End Sub

Prova a vedere questo codice, magari cambiando oppurtunamente il valore della variabile x!

[ANTAGONIA]

grazie mille. ma vorrei sapere anche se le dimensioni del mio form le devo impostare, prima del caricamento, a zero,cioè.... sia il width che l'height a zero. cosicchè, al caricamento, prendano le dimensioni che gli darò alla fine.o no?

spero di essere stato chiaro.....
comunque,ti ringrazio.....ciao