1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'positionnement du spitter
Me.SplitContainer1.SplitterDistance = My.Settings.SplitterVerticalDistance
End Sub
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
'positionnement du spitter
Me.SplitContainer1.SplitterDistance = My.Settings.SplitterVerticalDistance
End Sub
Private Sub SplitContainer1_SplitterMoved(ByVal sender As Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles SplitContainer1.SplitterMoved
'je sauvegarde la position du splitter vertical
'MsgBox(Me.SplitContainer1.SplitterDistance)
My.Settings.SplitterVerticalDistance = Me.SplitContainer1.SplitterDistance
End Sub |
Partager