Silverlight放大浏览器

Question

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

Answer 1

您可以在应用程序启动中使用以下内容：

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

Answer 2

好的。。我已经为"放大"one_answers"缩小"按钮点击实现了这个代码。

按钮点击事件：

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