Oppure

Loading
20/08/08 21:55
gaffre
Avevo visto un po' di tempo fa tra i programmi fatti da i membri, uno che funzionava praticamente da barra di scorrimento. In questo programma il form appariva quando il cursore si avvicinava al margine destro dello schermo, con un'effetto scorrimento.

Volevo realizzare una cosa del genere per avere a portata di mano quello che mi serve.
Il problema è che non ho capito cme si effettua l'effetto scorrimeno e soprattutto come far apparire il forum quando il cursore supera il bordo dello schermo destro.

Grazie spero di essermi spiegato, se non l'ho fatto ricercherò il programma nella lista.
Grazie tante.
aaa
21/08/08 6:35
GrG
Per effettuare effetti grafici sul form ci vogliono le API. Qui ci sono vari effetti:
maurorossi.net/codice/…

però non sò se c'è quello che cerchi tu.

p.s. Ma l'effetto che tu vuoi è che all'inizio il form non si vede, poi se uno va con il mouse e supera il margine destro sempre da destra arriva scorrendo il form che poi si ferma al centro?
aaa
21/08/08 11:18
gaffre
pierotofy.it/pages/…

ecco ho trovato il progetto, comunque è simile a quello che mi hai linkato
aaa
21/08/08 13:00
GrG
adesso che hai il progetto puoi vedere da lì come si fa no?
aaa
21/08/08 20:13
gaffre
Ho provato a fare un po' da solo, purtroppo sono incappato in un problema. Ho messo che quando il puntatore del mouse arriva sul forum esso si muove grazie ad un timer di un tot di pixel al millisecondo, ora però il problema è questo. Come faccio a dirgli di fermarsi ad un altro tot di pixel?

Ecco il mio codice:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
'apertura del form
Me.Left = Me.Left - 150
If Me.Left < 16000 Then
Timer1.Enabled = False
End If
End Sub


Ho capito che devo usare un ciclo e non l'if e Then però non so come.

Grazie infinite!
aaa
22/08/08 9:20
ruggy94
Basta che intercetti il valore di Me.Left quando il form raggiunge il centro.
Se chiamiamo x questo valore:
Private Sub Timer1_Timer()
If Me.Left < x Then
Timer1.Enabled = False
Else
Me.Left = Me.Left - 150
End If
End Sub

Spero di aver capito bene ;)
aaa
22/08/08 10:37
gaffre
è quello che ho scitto io sopra ma non funge
aaa
22/08/08 12:23
gaffre
ok ho fatto, ora il problema è un'altro, come faccio a dire che quando il mouse esce dal form avviene una cosa?
aaa