Beweglichen Button nicht durch Picturebox lassen

  • VB.NET

Es gibt 55 Antworten in diesem Thema. Der letzte Beitrag () ist von TheoTechnic.

    Hallo Valerian Flamm,

    sowas macht man in jedem Fall ohne sich bewegende Button.

    Aber das hatte picoflop in seiner ersten Antwort schon angedeutet.

    Und im Zweifel macht man das ganze halt nicht mit CONTROLS!


    Gruss

    mikeb69

    Ja, ich mache die gegenstände selbstverständlich mit gdi+!
    äber kann man auch testen ob in dem feld, in das man kommt eine bestimmte farbe vorhanden ist?
    (wenn rect.contains(black) dann e.handled = true...)
    oder so...

    Edit: bei mir siehts im moment so aus: (C#)
    Spoiler anzeigen

    Quellcode

    1. namespace Strichn
    2. {
    3. public partial class GameForm : Form
    4. {
    5. bool left = false;
    6. bool jump = false;
    7. bool right = false;
    8. const int gexmax = 20;
    9. const int geymin = -20;
    10. int beschl = 2;
    11. int gescwx = 0;
    12. int gescwy = 0;
    13. int bremsk = 4;
    15. public GameForm()
    16. {
    17. InitializeComponent();
    18. this.KeyDown += new KeyEventHandler(GameForm_KeyDown);
    19. this.KeyUp += new KeyEventHandler(GameForm_KeyUp);
    20. this.Paint += new PaintEventHandler(GameForm_Paint);
    21. }
    23. void GameForm_Paint(object sender, PaintEventArgs e)
    24. {
    25. Graphics g = e.Graphics;
    26. g.DrawLine(new Pen(Color.Black), new Point(0, label1.Bottom), new Point(this.ClientRectangle.Width, label1.Bottom));
    27. }
    29. void GameForm_KeyUp(object sender, KeyEventArgs e)
    30. {
    31. if (e.KeyData == Keys.Left)
    32. {
    33. left = false;
    34. }
    35. else if (e.KeyData == Keys.Right)
    36. {
    37. right = false;
    38. }
    39. else if (e.KeyData == Keys.Space)
    40. {
    41. jump = false;
    42. }
    43. }
    45. void GameForm_KeyDown(object sender, KeyEventArgs e)
    46. {
    47. if (e.KeyData == Keys.Left)
    48. {
    49. left = true;
    50. }
    51. else if (e.KeyData == Keys.Right)
    52. {
    53. right = true;
    54. }
    55. else if (e.KeyData == Keys.Space)
    56. {
    57. jump = true;
    58. }
    59. }
    61. private void GameForm_Load(object sender, EventArgs e)
    62. {
    64. }
    66. private void GameTime_Tick(object sender, EventArgs e)
    67. {
    68. if (left == true && right == false)
    69. {
    70. if (gescwx >= 0)
    71. gescwx -= bremsk + beschl;
    72. else if(gescwx > geymin)
    73. gescwx -= beschl;
    74. }
    75. else if (left == false && right == true)
    76. {
    77. if (gescwx <= 0)
    78. gescwx += bremsk + beschl;
    79. else if (gescwx < gexmax)
    80. gescwx += beschl;
    81. }
    82. else if (left == false && right == false)
    83. {
    84. if (gescwx > 2)
    85. gescwx -= bremsk;
    86. else if (gescwx < -2)
    87. gescwx += bremsk;
    88. else
    89. gescwx = 0;
    90. }
    91. else
    92. {
    93. if (gescwx > 2)
    94. gescwx -= bremsk;
    95. else if (gescwx < -2)
    96. gescwx += bremsk;
    97. else
    98. gescwx = 0;
    99. }
    101. label1.Location = new Point(label1.Location.X + gescwx, label1.Location.Y + gescwy);
    102. }
    104. }
    105. }

    das zeichnen über GDI+ bringt dir vom Prinzip her rein gar nichts, wenn du für jedes objekt wiederum ein Control verwendest...

    evtl. setzt du mal Haltepunkte, um zu überprüfen ob geschwx/y überhaupt einen negativen Wert erhält...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    das zeichnen über GDI+ bringt dir vom Prinzip her rein gar nichts, wenn du für jedes objekt wiederum ein Control verwendest...

    Nein, das sollst du gerade nicht, sondern nur ein Control verwenden und zwar das Formular, auf diesem zeichnest du dann alles, ohne für jeden Gegenstand eine PictureBox oder ein Panel, oder sonst etwas zu verwenden, die Positionen speicherst du einfach nur in Variablen zwischen und zeichnest an diesen dann Bilder und sonstiges im Paint Event...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    aber was ist, wenn ich viel zu viele Gegenstände hätte?
    so z.B. 100, und die alle Variablen haben müssen... (siehe N_game!)
    wäre da nicht was anderes schlauer?
    aber danke schon mal :thumbsup:
    besser 100 Variablen, als 100 Controls, schließlich werden die Controls auch als Variablen definiert und nicht nur das...
    damit man keine 100 Variablen hat kommt jetzt ein sehr schönes Thema: OOP, also einfach einen Array, oder eine List(Of nehmen, in welcher entweder alle Objekte definiert sind, oder alle Objekte einer Art...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Irgendwie krieg ichs einfach nicht hin...
    Ich poste mal meinen code

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Const besch As Integer = 2
    3. Private Const stoss As Integer = 11
    4. Private gesch As Integer
    5. Private WithEvents tm As New Windows.Forms.Timer
    10. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    11. If e.KeyCode = Keys.Up Then
    12. If Not tm.Enabled Then
    13. tm.Enabled = True
    14. gesch = -25
    15. End If
    16. End If
    18. If e.KeyCode = Keys.Right Then
    19. Timer1.Start()
    20. End If
    21. If e.KeyCode = Keys.Left Then
    22. Timer2.Start()
    23. End If
    25. End Sub
    27. Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
    28. Timer1.Stop()
    29. Timer2.Stop()
    30. End Sub
    34. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    35. tm.Interval = 30
    36. tm.Enabled = True
    39. End Sub
    41. Private Sub tm_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tm.Tick
    42. Dim Ziel As Integer = Player.Top
    43. gesch += besch
    44. Ziel += gesch
    45. If Ziel + Player.Height > Panel1.ClientRectangle.Height Then
    46. Ziel = Panel1.ClientRectangle.Height - Player.Height
    47. If Math.Abs(gesch) - stoss < 0 Then
    48. gesch = 0
    49. Else : gesch = 0 - (gesch - stoss)
    50. End If
    51. End If
    53. Player.Top = Ziel
    54. If gesch = 0 AndAlso Player.Top = _
    55. (Panel1.ClientRectangle.Height - Player.Height) Then
    56. tm.Enabled = False
    57. Debug.Print("done")
    58. End If
    62. End Sub
    64. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    65. Player.Left += 2
    67. End Sub
    69. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    70. Player.Left -= 2
    72. End Sub
    73. End Class


    Ich möchte dass Player nicht durch Picturebox2 kann
    und dass er auf ihr stehen kann.

    Es funktioniert alles aber ich weiss eben nicht wie das

    mache dass



    Player nicht durch Picturebox2 kann

    und dass er auf ihr stehen kann
    Wie? Funktioniert es nun nicht oder Funktioniert es nicht, und du willst wissen, wie es Funktioniert (das fände ich einen löblichen Ansatz :thumbsup: ).

    Es funktioniert alles ,
    das einzige was nicht funktioniert ist dass

    Player nicht durch Picturebox2 kann
    und dass er auf ihr stehen kann

    das steht aber wiederum gar nicht im
    Code also funktioniert im Code alles

    Ich wüsste nun gern wie ich das am
    besten in den Code einbaue.

    Puuuh !

Facebook
Telefonspende