Laden en bewaren van de layoutfile van Janus controls

Bewaren en laden van de layout file voor Janus controls:

Bewaren

Private Sub SaveLayout()

Dim LayoutDir As String = "c:\ExplorerBarLayout.ebl"
Dim LayoutStream As IO.FileStream
LayoutStream = New IO.FileStream(LayoutDir, IO.FileMode.Create)
ExplorerBar1.SaveLayoutFile(LayoutStream)

LayoutStream.Close()

End Sub

Laden

Private Sub LoadLayout()

Try

Dim LayoutDir As String = "c:\ExplorerBarLayout.ebl"
Dim LayoutStream As IO.FileStream

LayoutStream = New IO.FileStream(LayoutDir, IO.FileMode.Open)
ExplorerBar1.LoadLayoutFile(LayoutStream)

LayoutStream.Close()

Catch ex As Exception
SaveLayout()
End Try

End Sub

Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Share Alike 2.5 License.