Hallo,
Ich habe ein Programm geschrieben welches einen Screentshot von einer Bestimmten stelle des Bildschirms macht, einen Ordner erstellt, und den screenshot anschließend unter einem bestimmten Dateienamen speichert. Ich möchte den namen der Datei allerdings gerne in Textbox1 angeben, wie kann ich das umsetzen ?
Hier ein Teil des Codes:
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
If IO.Directory.Exists("C:\Fotos\") = False Then
MkDir("C:\Fotos")
End If
Dim bmp As New Bitmap(Panel1.Width, Panel1.Height)
Using fs As Graphics = Graphics.FromImage(bmp)
fs.CopyFromScreen(Panel1.Location.X + Me.Location.X, Panel1.Location.Y + Me.Location.Y + 25, 0, 0, bmp.Size)
End Using
bmp.Save("C:\Fotos\Bild.png", Drawing.Imaging.ImageFormat.Png)
MsgBox("Gespeichert!")
End Sub
Ich habe ein Programm geschrieben welches einen Screentshot von einer Bestimmten stelle des Bildschirms macht, einen Ordner erstellt, und den screenshot anschließend unter einem bestimmten Dateienamen speichert. Ich möchte den namen der Datei allerdings gerne in Textbox1 angeben, wie kann ich das umsetzen ?
Hier ein Teil des Codes:
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
If IO.Directory.Exists("C:\Fotos\") = False Then
MkDir("C:\Fotos")
End If
Dim bmp As New Bitmap(Panel1.Width, Panel1.Height)
Using fs As Graphics = Graphics.FromImage(bmp)
fs.CopyFromScreen(Panel1.Location.X + Me.Location.X, Panel1.Location.Y + Me.Location.Y + 25, 0, 0, bmp.Size)
End Using
bmp.Save("C:\Fotos\Bild.png", Drawing.Imaging.ImageFormat.Png)
MsgBox("Gespeichert!")
End Sub