Dipende dalla "finezza" che vuoi raggiungere e dalla tua fantasia...Originariamente inviato da marcello90
Vorrei una info, dovrei ricreare una barra come quella laterale(a sinistra) di visual studio, dove ci sono 5 opzioni, se ne selezioni una compaiono determinati componenti, e cosi' via...mi interesserebbe fare lo stesso effetto grafico, come posso realizzarlo?
In un form con un panel, un button e un timer scrivi il codice sotto.
Ad ogni clic sul button il panel si espande o riduce tipo un menù a tendina, è abbastanza grezzo ma dovrebbe rendere l' idea.
Poi stà a te inserire tutti gli oggetti o controlli del caso e farli "collaborare" tra di loro...
codice:Dim a As Byte Dim b As Byte Private Sub Form1_Load() Handles MyBase.Load a = 2 Panel1.Height = 200 Panel1.BackColor = Color.LightGreen Timer1.Interval = 1 End Sub Private Sub Button1_Click() Handles Button1.Click If a = 1 Then b = 1 Timer1.Start() End If If a = 2 Then b = 2 Timer1.Start() End If End Sub Private Sub Timer1_Tick() Handles Timer1.Tick If b = 1 Then If Panel1.Height < 200 Then Panel1.Height = Panel1.Height + 5 Else Timer1.Stop() a = 2 End If End If If b = 2 Then If Panel1.Height >= 20 Then Panel1.Height = Panel1.Height - 5 Else Timer1.Stop() a = 1 End If End If End Sub

Rispondi quotando