[vb2008] Panel dock?

[Dummy1912]

Hallo,

ik heb een probleem met men linker panel
ik heb 2 panels links en rechts

als ik de rechter panel hide doe
wil ik dat de linker panel zich uittrekt zodat hij de plats mee inneemt van de rechter panel
en als ik trug show doe rechter panel moet de linker panel terug op de orginele size komen.

iemand een idee?

ik heb dit al gedaan maar hij doet niets.

if panelrechts.visible = false then
Me.Panellinks.Size = New System.Drawing.Size(553, 601)
else
Me.Panellinks.Size = New System.Drawing.Size(553, 601)
end if

iemand een idee aub.

bedankt

Dummy1912

 

[mastermindzh]

je kan je form of wat dan ook uitstrekken met deze code

me.width += 2

of

me.width -=2 om weer terug te trekken

als je zonder "animatie" wilt *dus meteen een groter scherm opeens*
gebruik je

me.width = "gewenste grote"

 

[Dummy1912]

@mastermindzh,

bedankt voor je reply

maar er gebeurt niets?

ik doe:

        If Panelrechts.Visible = False Then
            Me.Panellinks.Width += 2

        Else
            Me.Panellinks.Width -= 2
        End If

Dummy1912

 

[mastermindzh]

sorry mijn fout

moest een wat gehaast antwoord geven net


allereerst moet je een timer maken en een button

in de button moet dit komen

met panel_rechts.visible = false
timer1.start

in de timer zet je

panel_links.width += 2

if panel_links.width = "gewenste grote" then timer1.stop

link naar een werkend voorbeeld http://www.mediafire.com/?9q6c2wtud8azy2j


gehele code die ik gebruikt heb

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Panel2.Visible = False
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Panel1.Width += 2
        If Panel1.Width = 100 Then Timer1.Stop()


        
    End Sub

End Class

 

[Dummy1912]

:shocked:

Cool dat is leuk

bedankt mastermindzh

werkt perfect :thumb:

bedankt

Dummy1912

 

[mastermindzh]

ja he

heb et toevallig vandeweek nog in een programmaatje verwerkt!

 

[The Mighty Atom]

Hallo,

ik heb dit al gedaan maar hij doet niets.

if panelrechts.visible = false then
Me.Panellinks.Size = New System.Drawing.Size(553, 601)
else
Me.Panellinks.Size = New System.Drawing.Size(553, 601)
end if

Nee geen wonder dat er niks gebeurt. Je hebt voor beide condities dezelfde size opgegeven.

Dit werkt wel:

        If panelrechts.Visible Then
            panelrechts.Visible = False
            panellinks.Size = New Size(536, 420)
        Else
            panelrechts.Visible = True
            panellinks.Size = New Size(265, 420)
        End If

Je moet alleen wel de sizes aanpassen naar jouw wensen.

 

[Dummy1912]

@The Mighty Atom,

sorry was een beetje te rap met plakken en kopiëren

@mastermindzh,

Echt fantastisch
mooi werk

nogmaals bedankt

dummy1912