Italian effetto touch flow

[uccio9]

ciao ragazzi :sign0085:
qualcuno sa come si puo fare un effetto tipo touch flow oppure un effetto trascinamento?

 

[uccio9]

praticamente la procedura crea n bottoni su un pannello(panel1) in base a quanti dati sono descritti in un file xml

h è l'altezza del bottone


Sub form1_muovi
'non esce dallo schermo
If panel1.Top-(box1.Text-box3.Text)>form1.Height-(h*3) OR panel1.top-(box1.Text-box3.Text)<((h*3))-(panel1.Height) Then
Else
panel1.Top=panel1.Top-(box1.Text-box3.Text)
End If

End Sub

Sub Form1_MouseUp (ux,uy)
'
box1.Text=(form1.Width/2)/10
box3.Text=(form1.Width/2)/10
End Sub
Sub form1_mousedown (dx,dy)
box1.Text=dy*(3/10)
End Sub
Sub Form1_MouseMove (x,y)
timer1.Interval=1
timer1.Enabled=True
box3.Text=y*(3/10)
End Sub

Sub timer1_tick
form1_muovi
End Sub


tutto funziona , ma non è fluido. Provato su un palmare si vede tutto a scatti.

 

[uccio9]

forse non sono stato chiaro ,
volevo fare una cosa del genere:

youtube.com/watch?v=f4WF2atnnD8&feature=player_embedded]YouTube - FInger point application launcher

qualcuno sa se si riesce a fare con b4ppc?

 

[Deleted member 103]

Ciao uccio9,

non so se ho capito bene quello che cerchi di fare, forse ti puo essere di aiuto la funzione "fgMouseEvents" della Libreria "fgControls.dll" http://www.b4x.com/forum/additional-libraries/1238-fgcontrols-library.html.
Studia un poco gli esempi che sono nel Zip-File.

Ciao,
Filippo

 

[uccio9]

grazie per la risposta, proverò a guardare

ciao