Question

是否可以在Out of Browser模式下使用整个Silverlight应用程序的缩放功能（CTRL + MouseWheel /缩放浏览器）？

Answer 1

您可以在 Application_Startup 中使用以下内容：

RootVisual = new WebBrowser() {Source = new Uri(Current.Host.Source, "../")};

Answer 2

好的..我已经为“放大”和“缩小”按钮实现了此代码单击。

按钮点击事件：

commonwidth = commonwidth + (commonwidth * zoomPercent / 100) //For Zoom Out
commonwidth = commonwidth + (commonwidth * zoomPercent / 100) //For Zoom In

然后调用此方法：

            Private Sub ChangZoom()

            If Not fresult Is Nothing Then

                If fresult.Count() > 0 Then

                    Dim mainFrame As StackPanel

                    mainFrame = fresult(_currentPage)

                    Dim docBorder As Border

                    docBorder = mainFrame.Children(1)

                    Dim docImage As FrameworkElement

                    docImage = docBorder.Child

                    If Not docImage Is Nothing Then

                        Dim actualWidth As Double
                        Dim actualHeight As Double

                        actualWidth = commonwidth 'Me.ActualWidth - 30
                        actualHeight = Me.ActualHeight

                        Dim newHeight As Double

                        newHeight = actualWidth * docImage.Height / docImage.Width

                        docImage.Width = actualWidth
                        docImage.Height = newHeight

                        RenderResutlFrame(_currentPage)

                    End If

                End If

            End If

        End Sub

        Public Property ImageUrl As String Implements IDocumentViewer.ImageUrl
            Get
                Return _imageUrl
            End Get
            Set(ByVal value As String)
                _imageUrl = value

                'Me.Dispatcher.BeginInvoke(AddressOf OnInitialized)

            End Set
        End Property

Silverlight放大浏览器外

2 个答案: