vb System.Windows.Controls.FlowDocumentScrollViewer.VerticalScrollBarVisibility类(方法)实例源码

Dim flowDocScrollViewer As New FlowDocumentScrollViewer()

With flowDocScrollViewer
    ' Enable content selection.
    .IsSelectionEnabled = True
    ' Enable the toolbar.
    .IsToolBarVisible = True

    ' Set zoom between 50% and 1000%.
    .MinZoom = 50
    .MaxZoom = 1000
    ' Set the zoom increment to 5%.
    .ZoomIncrement = 5
    ' Set the initial zoom to 120%.
    .Zoom = 120

    Dim flowDoc As New FlowDocument(New Paragraph(New Run("Flow content...")))
    .Document = flowDoc
End With