dotNETportal.cz

Dobrý den,dělám takový program co by měl dělat screenshoty..Kód zatím vypadá takto:

Public Class Form1
    'Button 2 = Capture
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Opacity = 0
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        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
        Timer1.Enabled = False
        Me.Opacity = 100
    End Sub


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

        Catch ex As Exception
            'Do Nothing
        End Try
    End Sub

End Class

Šlo by nějak provést aby se při kliknutí na Button2 Vyfotil Screenshot a poté se i automaticky uložil do určité složky s nějakým jménem třeba screen1 poté screen2 apd.?

Jistě to jde. Prostě nastavíte jméno prvního snímku, vynecháte SaveFileDialog a použijete jen uložení, nastavíte další jméno...

Volit jméno náhodně? To snad není potřeba, naopak.

Dobrý den,mohl byjste mi napsat kód jak udělám to automatické ukládání? Jelikož já to nějak nemohu vymyslet :)

Ukládejte si ten obrázek do Bitmapy, resp. vytvořte si funkci, která vám vrátí bitmapu, s tou už si pak můžete dělat co chcete, klidně jí i uložit.

dim Subor_cesta as string = "c:\test.jpg"
PictureBox1.Image.Save(Subor_cesta, Imaging.ImageFormat.Jpeg)

Poradily by jste mi taky prosim??Matm podobny problem.Akorat chci ukladat text.

SaveFileDialog1.InitialDirectory = "C:\Users\test.txt"
        SaveFileDialog1.FileName = "test"
        SaveFileDialog1.Filter = "Text (*.txt)| *.txt"
        'SaveFileDialog1.ShowDialog()

        Dim W As New IO.StreamWriter(SaveFileDialog1.FileName)
        W.Write(TextBox1.Text)
        W.WriteLine(TextBox2.Text)
        W.Close()

Kdyz to mam takto tak se to neulozi.A kdyz savefiledialog1.showdialog necham tak se ukaze dialog a to nechci. Co s tim prosim .