Hallo, ich wollte
fragen ob diese Methode
von mir geignet ist, um ein Spielfeld mit zoom und scroll funktionzu erstellen?
es benutz die Form_Paint methode dafür...
Code:
Wie es so aussieht im Anhang
Oder kann man das anders besser machen?
//wenn ein Supporter iwas gegen diese Datei hat, ich wusste nicht wie ich das sonnt zeigen soll...
Deshalb löscht dann diesen Beitrag nicht direkt sondern löscht nur den Dateianhang pls
Dateianhang entfernt. ~fufu
fragen ob diese Methode
von mir geignet ist, um ein Spielfeld mit zoom und scroll funktionzu erstellen?
es benutz die Form_Paint methode dafür...
Code:
VB.NET-Quellcode
- Private Sub Form1_Paint(sender As Object, e As PaintEventArgs)
- Dim breite As Integer = (Me.Width) / 10
- Dim höhe As Integer = (Me.Height) / 10
- trackBar2.Maximum = (höhe * trackBar1.Value) \ 6
- trackBar3.Maximum = (breite * trackBar1.Value) \ 13
- Dim i As Integer = 0
- Dim ii As Integer = 0
- While ii < 10
- While i < 10
- Dim rec As New Rectangle(breite * i * trackBar1.Value - (trackBar3.Value * breite), höhe * ii * trackBar1.Value - (trackBar2.Value * höhe), breite * trackBar1.Value, höhe * trackBar1.Value)
- Dim p As New Point(breite * i * trackBar1.Value - (trackBar3.Value * breite), höhe * ii * trackBar1.Value - (trackBar2.Value * höhe))
- e.Graphics.DrawRectangle(Pens.Blue, rec)
- e.Graphics.DrawString(Convert.ToString(breite * i * trackBar1.Value) & "+" & Convert.ToString(höhe * ii * trackBar1.Value) & " " & Convert.ToString(breite * trackBar1.Value) & "+" & Convert.ToString(höhe * trackBar1.Value), SystemFonts.CaptionFont, Brushes.Black, p)
- i += 1
- End While
- i = 0
- ii += 1
- End While
- ii = 0
- End Sub
Wie es so aussieht im Anhang
Oder kann man das anders besser machen?
//wenn ein Supporter iwas gegen diese Datei hat, ich wusste nicht wie ich das sonnt zeigen soll...
Deshalb löscht dann diesen Beitrag nicht direkt sondern löscht nur den Dateianhang pls
Dateianhang entfernt. ~fufu
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „fufu“ ()