[VB.NET] Ricreare menu in stile Visual Studio

[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?

[gibra]

devi acquistare un componente di terze parti.
Non so se ne esistono di gratuiti (forse il Krypton Toolkit della ComponentFactory, verifica ),

io uso quelli della www.devcomponents.com

[marcello90]

Ho visto un po'....io intendevo questo

http://img18.imageshack.us/img18/8344/immagineons.png

[gibra]

Originariamente inviato da marcello90
Ho visto un po'....io intendevo questo

http://img18.imageshack.us/img18/8344/immagineons.png

Si era capito.

http://www.devcomponents.com/dotnetbar/

[Vinsent]

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?

Dipende dalla "finezza" che vuoi raggiungere e dalla tua fantasia...
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...

 
    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