WPF

Piyush Vardhan Singh wrote:

how we access silverlight application from different system or Computer?

Mark Salsbery
Microsoft MVP - Visual C++

Piyush Vardhan Singh wrote:

So I Want access my this Url:-
http://localhost:2328/FileConversionTestPage.aspx

From different machine. Please Help me to resolve my problem.

Mark Salsbery
Microsoft MVP - Visual C++

<Style x:Key="UserNameTextBox" TargetType="{x:Type TextBox}">
  <Setter Property="Template">
   <Setter.Value>
    <ControlTemplate TargetType="{x:Type TextBoxBase}">
     <Border Name="Border" Background="#FFEBE9E9" BorderBrush="#FF8B8787" BorderThickness="1" CornerRadius="3" Padding="3">
       <ScrollViewer x:Name="PART_ContentHost"/>
     </Border>
    </ControlTemplate>
   </Setter.Value>
  </Setter>
</Style>

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.Windows.RoutedEventArgs) _
                             Handles Button1.Click

    Dim CaptureForm As New TestForm
    CaptureForm.Left = -999
    CaptureForm.Show()

    Image1.Source = CaptureFrameworkElement(CaptureForm)

    CaptureForm.Close()
    CaptureForm = Nothing

End Sub

Function CaptureFrameworkElement(ByVal fe As FrameworkElement) As BitmapSource

    Dim renderBitmap As New RenderTargetBitmap(CInt(Math.Ceiling(fe.ActualWidth)), _
                                               CInt(Math.Ceiling(fe.ActualHeight)), _
                                               96, 96, PixelFormats.Pbgra32)
    Dim dv As New DrawingVisual()

    Using dc As DrawingContext = CType(dv.RenderOpen(), DrawingContext)

        Dim visualBrush As New VisualBrush(fe)
        Dim rect1 As New Rect(New System.Windows.Point(0, 0),_
                              VisualTreeHelper.GetDescendantBounds(fe).Size)
        dc.DrawRectangle(visualBrush, Nothing, rect1)

    End Using

    renderBitmap.Render(dv)

    Return CType(renderBitmap, BitmapSource)

End Function

GraGra_33 wrote:

The only issue I have now is that only the contents of the form are captured and not the non-client area.

' the code is not tested
Dim hlper As New System.Windows.Interop.WindowInteropHelper(Me)
Dim windowAsForm = System.Windows.Forms.Form.FromHandle(hlper.Handle) ' returns null, don't know why

Dim w = windowAsForm.Size.Width
Dim h = windowAsForm.Size.Height
Dim bitmap As New System.Drawing.Bitmap(w, h)
windowAsForm.DrawToBitmap(bitmap, New System.Drawing.Rectangle(0, 0, w, h))

' code from <a href="http://dedjo.blogspot.com/2007/05/how-to-use-systemdrawingbitmap-hbitmap.html">here</a>[<a href="http://dedjo.blogspot.com/2007/05/how-to-use-systemdrawingbitmap-hbitmap.html" target="_blank" title="New Window">^</a>], i didn't test it
Return System.Windows.Interop.Imaging.CreateBitmapSourceFromHBitmap(bitmap.GetHbitmap(), _
                                                                    IntPtr.Zero, _
                                                                    Int32Rect.Empty, _
                                                                    System.Windows.Media.Imaging.BitmapSizeOptions.FromEmptyOptions())

Dim hlper As New System.Windows.Interop.WindowInteropHelper(Me)
Dim gr As System.Drawing.Graphics = System.Drawing.Graphics.FromHwnd(hlper.Handle)
Dim ms As New MemoryStream

Dim bmp As System.Drawing.Bitmap = New System.Drawing.Bitmap(gr.VisibleClipBounds.Width, gr.VisibleClipBounds.Height, gr)
bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

Dim bImg As System.Windows.Media.Imaging.BitmapImage = New System.Windows.Media.Imaging.BitmapImage()
bImg.BeginInit()
bImg.StreamSource = New MemoryStream(ms.ToArray())
bImg.EndInit()
Return bImg