Hallo.
Ich habe mir mit VB 08 ein Desktop Screenshoter gemacht. Nur habe ich ein Problem. Das Programm macht die Bilder Automatisch in 1600 x 900 (Pixel) und das ist für mich eine zu hohe Auflösung. Kann mir jemand sagen was für ein Code ich eingeben muss damit das Programm z.b. 800 x 600 (Pixel) Bilder macht?
Mein Code bis jetzt:
[highlight=vbnet]Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pic As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim g As Graphics = Graphics.FromImage(pic)
g.CopyFromScreen(0, 0, 0, 0, pic.Size)
PictureBox1.Image = pic
End Sub
End Class[/highlight]
Ich habe mir mit VB 08 ein Desktop Screenshoter gemacht. Nur habe ich ein Problem. Das Programm macht die Bilder Automatisch in 1600 x 900 (Pixel) und das ist für mich eine zu hohe Auflösung. Kann mir jemand sagen was für ein Code ich eingeben muss damit das Programm z.b. 800 x 600 (Pixel) Bilder macht?
Mein Code bis jetzt:
[highlight=vbnet]Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pic As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim g As Graphics = Graphics.FromImage(pic)
g.CopyFromScreen(0, 0, 0, 0, pic.Size)
PictureBox1.Image = pic
End Sub
End Class[/highlight]
Comment