Italian effetto touch flow

uccio9

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

uccio9

New Member
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.
 
Last edited:

uccio9

New Member
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?
 
Top