PictureBox-Ausschnitt vergrößert darstellen

27/06/2008 - 19:54 von Manfred Maierhofer | Report spam
Hallo NG,

ich scheitere gerade an einer kleinen "Bildschirmlupe". Ich bekomme das Bild
schon richtig in die Picturebox, nur nicht vergrößert. Wie kann ich die
Mitte des angezeigten Bildes vergrößert in der PictureBox darstellen? Bitte
helft mir schnell weiter.


Private Function MakeScreenShot() As Bitmap
Dim Rect As Rectangle = Screen.PrimaryScreen.Bounds
Dim Bmp As Bitmap = New Bitmap(Rect.Width, Rect.Height)

Using Gra As Graphics = Graphics.FromImage(Bmp)
Gra.CopyFromScreen(MousePosition.X - PictureBox1.Width / 2,
MousePosition.Y - PictureBox1.Height / 2, 0, 0, Bmp.Size)
End Using
Return Bmp
End Function

Private Sub MSChart1_MouseMoveEvent(ByVal sender As Object, ByVal e As
AxMSChart20Lib._DMSChartEvents_MouseMoveEvent) Handles
MSChart1.MouseMoveEvent
PictureBox1.Image = MakeScreenShot()
End Sub

Besten Dank,

Manfred
 

Lesen sie die antworten

#1 Martin H.
28/06/2008 - 14:03 | Warnen spam
Hallo Manfred,

Du mußt lediglich den Teil, den Du vergrößern willst, aus dem Bitmap
rauskopieren und in der PictureBox anzeigen. In der PictureBox setzt Du
die Eigenschaft "BackgroundImageLayout" auf "Stretch".

Beste Grüße,

Martin

On 28.06.2008 01:54, wrote Manfred Maierhofer:
Hallo NG,

ich scheitere gerade an einer kleinen "Bildschirmlupe". Ich bekomme das Bild
schon richtig in die Picturebox, nur nicht vergrößert. Wie kann ich die
Mitte des angezeigten Bildes vergrößert in der PictureBox darstellen? Bitte
helft mir schnell weiter.


Private Function MakeScreenShot() As Bitmap
Dim Rect As Rectangle = Screen.PrimaryScreen.Bounds
Dim Bmp As Bitmap = New Bitmap(Rect.Width, Rect.Height)

Using Gra As Graphics = Graphics.FromImage(Bmp)
Gra.CopyFromScreen(MousePosition.X - PictureBox1.Width / 2,
MousePosition.Y - PictureBox1.Height / 2, 0, 0, Bmp.Size)
End Using
Return Bmp
End Function

Private Sub MSChart1_MouseMoveEvent(ByVal sender As Object, ByVal e As
AxMSChart20Lib._DMSChartEvents_MouseMoveEvent) Handles
MSChart1.MouseMoveEvent
PictureBox1.Image = MakeScreenShot()
End Sub

Besten Dank,

Manfred


Ähnliche fragen