Hello.
I have a problem with the scrollbars.
I have 2 Usercontrols with one radpageview.
The first code works.
The second don´t works.
There are no Scrollbars.
Please help.
Private Sub Hauptmenue_Shown(sender As Object, e As EventArgs) Handles Me.Shown Dim _tablet As TetraFMS.FMSTablet 'Läd das Hauptfenster in die Anwendung _tablet = Controls("ucFMSTablet") If _tablet Is Nothing Then _tablet = New FMSTablet() _tablet.Name = "ucFMSTablet" Me.Controls.Add(_tablet) _tablet.Dock = DockStyle.Fill _tablet.HorizontalScroll.Enabled = True _tablet.VerticalScroll.Enabled = True _tablet.BringToFront() Else _tablet.Dock = DockStyle.Fill _tablet.BringToFront() End If
Private Sub RibbonTabDesigner_Click(sender As Object, e As EventArgs) Handles RibbonTabDesigner.Click Dim _designer As TetraFMS.FMSEditor _designer = Controls("ucFMSEditor") If _designer Is Nothing Then _designer = New FMSEditor() _designer.Name = "ucFMSEditor" Me.Controls.Add(_designer) _designer.Dock = DockStyle.Fill '_designer.AutoScroll = True _designer.HorizontalScroll.Enabled = True _designer.VerticalScroll.Enabled = True _designer.BringToFront() _designer.Refresh() Else '_designer.AutoScroll = True _designer.HorizontalScroll.Enabled = True _designer.VerticalScroll.Enabled = True _designer.BringToFront() _designer.Refresh() End IfEnd Sub