Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten
Autor
Nachricht
polinger
Newbie
Newbie

Anmeldedatum: 03.01.2010
Beiträge: 3
screenshot Automatisch bearbeiten
Verfasst am: 03.01.2010, 22:56
Hallo
Ich lese ja sonst immer nur ohne zu fragen aber diesmal brauch ich hilfe.


ich arbeite gerade an einen ScreenshotTaker der Normale
screenshots macht aber auch per button klick dann einen bestimmten
bereich ,in meinem fall nun der bereich unter der taskleiste
ausschneided(ohne die taskleiste) und als .bmp abspeichern soll
Aber irgendwie bekomme ich es noch nicht so wirklich hin mein bisheriger code ist unten dabei,
ich wäre für hilfe sehr dankbar

Mfg
Poli


Code:
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim bounds As Rectangle
       Dim screenshot As System.Drawing.Bitmap
       Dim graph As Graphics
       bounds = Screen.PrimaryScreen.Bounds
       screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
       graph = Graphics.FromImage(screenshot)
       graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
       PictureBox1.Image = screenshot

   End Sub
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim savefiledialog1 As New SaveFileDialog
       Try
           savefiledialog1.Title = "Save File"
           savefiledialog1.FileName = "*.bmp"
           savefiledialog1.Filter = "bitmap |*.bmp"
           
If savefiledialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(savefiledialog1.FileName,
System.Drawing.Imaging.ImageFormat.Bmp)

       Catch ex As Exception
       End Try

   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Dim OFD As New Windows.Forms.OpenFileDialog
       With OFD
           .InitialDirectory = "Startverzeichnis z.B. C:\" 'Startverzeichnisse
           .Filter = ("alle Dateien *.*|*.*|Textdateien *.txt|*.txt") '"alle Dateien *.*
           .CheckFileExists = True
           .CheckPathExists = True

       End With
       If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
           Try

               Dim DeinProcess As New Process
               DeinProcess.StartInfo.FileName = OFD.FileName
               DeinProcess.Start()
           Catch ex As Exception
               'Deine Fehlerbehandlung z.B. kein Programm hinterlegt!!
               MessageBox.Show(CType(ex.Message, String))
           End Try
       Else
           'abgebrochen
       End If

   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

       End If
       PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
   End Sub

   Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

   End Sub

   
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal
e As System.ComponentModel.CancelEventArgs) Handles
OpenFileDialog1.FileOk

       Try
           If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
               Me.PictureBox2.Image = System.Drawing.Image.FromFile(Me.OpenFileDialog1.FileName)
               Me.PictureBox2.Refresh()
           End If
       Catch ex As Exception
           MsgBox("Fehler: " & ex.Message)
       End Try
   End Sub
End Class







PS
Nicht wundern das programm ist noch nicht fertig und der code ist nicht perfekt
Ausserdem
ist noch ein openfile dialog dabei der ein schon vorhandenes bild(zb
screenshot) in eine picture box laden soll und dann der untere bereich
ausgeschnitten wird(was aber auch noch nicht funktioniert) Very Happy



Ich bedanke mich schonmal

Grüße Poli
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Tags: screenshot, automatisch, bereich, bearbeiten, dialog

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 1939 06.03.2008, 21:19
Keine neuen Beiträge ListView speichern & laden 836 05.08.2008, 13:32
Keine neuen Beiträge Registry & Co Fragen 744 03.05.2007, 10:57
Keine neuen Beiträge Listbox speichern & laden 993 22.03.2007, 21:25
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 442 28.03.2008, 02:47
 




[ Time: 0.1646s ][ Queries: 81 (0.0309s) ][ GZIP on - Debug on ]