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
If
End
Sub