Visual Basic

Dave Kreskowiak wrote:

That's a ton of work for something that's supplied by the PerformanceCounter class already...

Beginner_HC wrote:

Public Class Form1
Dim srcImage As New Bitmap("MyPicture.bmp", True)
Dim Graph As Graphics = Me.CreateGraphics
Dim desHdc As IntPtr = Graph.GetHdc()

Dim srcHdc As IntPtr = CreateCompatibleDC(IntPtr.Zero)
Dim hBitmapSrc As IntPtr = srcImage.GetHbitmap()

Private Sub CreateMagnifiedImage(ByVal MagFactor As Integer, ByVal srcBitmap As Bitmap) As Bitmap
    If srcBitmap IsNot Nothing Then
    Dim magSize As New Size(srcBitmap.Width * MagFactor, srcBitmap.Height * MagFactor)
    Dim magBitmap As New Bitmap(magSize.Width, magSize.Height)
 
    Dim g As Graphics = Graphics.FromImage(magBitmap)
    DrawMagnifiedImage(g, srcBitmap, magSize)
    g.Dispose()
    End If
End Sub
 
' This is the code Ive used before to magnifiy an image...
Private Sub DrawMagnifiedImage(ByVal gTarget As Graphics, ByVal srcBitmap As Bitmap, ByVal newSize As Size)
    Dim hBmp as IntPtr = srcBitmap.GetHbitmap()
    Dim hdcTarget As IntPtr = gTarget.GetHdc()
    Dim hdcSource As IntPtr = CreateCompatibleDC(hdcTarget)
    Dim hOrig As IntPtr = SelectObject(hdcSrc, hBmp)
    StretchBlt(hdcTarget, 0, 0, newSize.Width, newSize.Height, hdcSource, 0, 0, srcBitmap.Wdith, srcBitmap.Height, TernaryRasterOperations.SRCCOPY)
    SelectObject(hdcSource, hOrig)
    DeleteObject(hBmp)
    DeleteDC(hdcSource)
    gTarget.Release(hdcTarget)
End Sub

Dave Kreskowiak wrote:

Doesn't change my answer!