Guten Morgen Community,
verstehe nicht warum ich 2 Button benötige um die Picturebox2 mit der Picturebox1 und den draufliegenden Labels zu füllen.
Wenn ich den Code von Button2 mit in den Code von Button1 eintrage passiert nicht das was passiert wenn ich das über 2 Buttons löse.
Selbst wenn ich ein Sub mit dem Inhalt von Button2 erstelle und den dann per Call aufrufe funktioniert die Befüllung der Picturebox2 nicht richtig.
Nur wenn ich 2 Buttons habe. Das muss doch irgendwie machbar sein oder?
Möchte das nämlich dann mit ner Do Until Schleife 100x ausführen und nicht 1x Button1 klicken dann 1x Button2 und dann wieder Button1 usw.
Für Hilfe bin ich sehr dankbar.
verstehe nicht warum ich 2 Button benötige um die Picturebox2 mit der Picturebox1 und den draufliegenden Labels zu füllen.
Wenn ich den Code von Button2 mit in den Code von Button1 eintrage passiert nicht das was passiert wenn ich das über 2 Buttons löse.
Selbst wenn ich ein Sub mit dem Inhalt von Button2 erstelle und den dann per Call aufrufe funktioniert die Befüllung der Picturebox2 nicht richtig.
Nur wenn ich 2 Buttons habe. Das muss doch irgendwie machbar sein oder?
Möchte das nämlich dann mit ner Do Until Schleife 100x ausführen und nicht 1x Button1 klicken dann 1x Button2 und dann wieder Button1 usw.
Für Hilfe bin ich sehr dankbar.
VB.NET-Quellcode
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim lines() As String = IO.File.ReadAllLines("Spielerdatenbank.txt")
- SpielerPosition.Text = lines(2)
- SpielerName.Text = lines(0)
- SpielerNation.Text = lines(1)
- CA.Text = lines(3)
- PA.Text = lines(4)
- If CA.Text = 1 And PA.Text = 1 Then
- PictureBox3.Image = My.Resources._1von1
- ElseIf CA.Text = 2 And PA.Text = 2 Then
- PictureBox3.Image = My.Resources._2von2
- ElseIf CA.Text = 3 And PA.Text = 3 Then
- PictureBox3.Image = My.Resources._3von3
- ElseIf CA.Text = 4 And PA.Text = 4 Then
- PictureBox3.Image = My.Resources._4von4
- ElseIf CA.Text = 5 And PA.Text = 5 Then
- PictureBox3.Image = My.Resources._5von5
- ElseIf CA.Text = 6 And PA.Text = 6 Then
- PictureBox3.Image = My.Resources._6von6
- End If
- SpielerPosition.TextAlign = ContentAlignment.MiddleCenter
- SpielerNation.TextAlign = ContentAlignment.MiddleCenter
- SpielerName.TextAlign = ContentAlignment.MiddleCenter
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Dim s As Size = PictureBox1.Size
- Dim memoryImage = New Bitmap(s.Width, s.Height)
- Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
- Dim ScreenPos As Point = Me.PictureBox1.PointToScreen(New Point(0, 0))
- memoryGraphics.CopyFromScreen(ScreenPos.X, ScreenPos.Y, 0, 0, s)
- PictureBox2.Image = memoryImage
- If IO.Directory.Exists(Application.StartupPath & "\Images\") = False Then
- IO.Directory.CreateDirectory(Application.StartupPath & "\Images\")
- End If
- Dim filename As String = Application.StartupPath & "\Images\" & Anzahl.Text & ".jpeg"
- PictureBox2.Image.Save(filename, System.Drawing.Imaging.ImageFormat.Jpeg)
- Anzahl.Text = Anzahl.Text + 1
- Dim lines As System.Collections.Generic.List(Of String) _
- = System.Text.RegularExpressions.Regex.Split _
- (My.Computer.FileSystem.ReadAllText("Spielerdatenbank.txt"), vbCrLf).ToList
- lines.RemoveAt(0)
- lines.RemoveAt(0)
- lines.RemoveAt(0)
- lines.RemoveAt(0)
- lines.RemoveAt(0)
- My.Computer.FileSystem.WriteAllText("Spielerdatenbank.txt", String.Join(vbCrLf, lines.ToArray), False)
- End Sub