GFX-Sector - Andere Programmiersprachen

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Public Class Form1

    Dim count As Integer
    Private Sub dopicture()
        Dim picture As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim graphic As Graphics = Graphics.FromImage(picture)
        graphic.CopyFromScreen(0, 0, 0, 0, picture.Size)
        PictureBox1.Image = picture
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        System.Threading.Thread.Sleep(500)
        dopicture()
        Me.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
         count = count + 1
         SaveFileDialog1.FileName = count
         Me.SaveFileDialog1.ShowDialog()
         Me.PictureBox1.Image.Save(Me.SaveFileDialog1.FileName)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Hide()
        System.Threading.Thread.Sleep(500)
        dopicture()
        Me.Show()
        count = count + 1
        SaveFileDialog1.FileName = count
        SaveFileDialog1.ShowDialog()
        Me.PictureBox1.Image.Save(Me.SaveFileDialog1.FileName)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer1.Interval = tmr.Text
        Timer1.Enabled = True
    End Sub
End Class

1:

 PictureBox1.Image.Save(C:\Dokumente und Einstellungen\daniel\Desktop" & count & ".jpg")