Visual Basic Panel Grenze

    Visual Basic Panel Grenze

    Hallo,
    So weit so gut, der Kran läuft gut, aber ist leider noch verbuggt.

    Panel1=Schwarz
    Panel2=Gelb
    Panel3=Grau
    Panel4=Orange
    Panel5=Blau

    Die datei ist angehangen und hier ist der Code:


    Quellcode

    1. Public Class Form1
    4. Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    5. Panel1.Location = New Point(
    6. Panel1.Location.X + 10,
    7. Panel1.Location.Y)
    8. Panel2.Location = New Point(
    9. Panel2.Location.X + 10,
    10. Panel2.Location.Y)
    11. Panel3.Location = New Point(
    12. Panel3.Location.X + 10,
    13. Panel3.Location.Y)
    14. Panel4.Location = New Point(
    15. Panel4.Location.X + 10,
    16. Panel4.Location.Y)
    17. Panel5.Location = New Point(
    18. Panel5.Location.X + 10,
    19. Panel5.Location.Y)
    20. End Sub
    22. Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    23. Panel1.Location = New Point(
    24. Panel1.Location.X - 10,
    25. Panel1.Location.Y)
    26. Panel2.Location = New Point(
    27. Panel2.Location.X - 10,
    28. Panel2.Location.Y)
    29. Panel3.Location = New Point(
    30. Panel3.Location.X - 10,
    31. Panel3.Location.Y)
    32. Panel4.Location = New Point(
    33. Panel4.Location.X - 10,
    34. Panel4.Location.Y)
    35. Panel5.Location = New Point(
    36. Panel5.Location.X - 10,
    37. Panel5.Location.Y)
    38. End Sub
    40. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    41. Panel2.Height = Panel2.Height + 10
    42. Panel2.Location = New Point(
    43. Panel2.Location.X,
    44. Panel2.Location.Y - 10)
    45. Panel4.Location = New Point(
    46. Panel4.Location.X,
    47. Panel4.Location.Y - 10)
    48. Panel5.Location = New Point(
    49. Panel5.Location.X,
    50. Panel5.Location.Y - 10)
    51. End Sub
    53. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    54. Panel2.Height = Panel2.Height - 10
    55. Panel2.Location = New Point(
    56. Panel2.Location.X,
    57. Panel2.Location.Y + 10)
    58. Panel4.Location = New Point(
    59. Panel4.Location.X,
    60. Panel4.Location.Y + 10)
    61. Panel5.Location = New Point(
    62. Panel5.Location.X,
    63. Panel5.Location.Y + 10)
    64. End Sub
    66. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    67. Panel5.Height = Panel5.Height + 10
    68. End Sub
    70. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    71. Panel5.Height = Panel5.Height - 10
    72. End Sub
    74. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    75. Panel4.Width = Panel4.Width + 10
    76. Panel4.Location = New Point(
    77. Panel4.Location.X - 10,
    78. Panel4.Location.Y)
    79. Panel5.Location = New Point(
    80. Panel5.Location.X - 10,
    81. Panel5.Location.Y)
    82. End Sub
    84. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    85. Panel4.Width = Panel4.Width - 10
    86. Panel4.Location = New Point(
    87. Panel4.Location.X + 10,
    88. Panel4.Location.Y)
    89. Panel5.Location = New Point(
    90. Panel5.Location.X + 10,
    91. Panel5.Location.Y)
    92. End Sub
    93. End Class
    Alles anzeigen
    Dateien

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von Rebooto ()

    FJK schrieb:

    Problem merkt man, wenn man sich das Programm angeschaut hat
    und zum beispiel ganz oft Kran runter und dann wenn der Ausleger
    bereits drunter ist, darauf wieder hoch.

    Ich finde es besser die Namen so zu lassen und NIEMALS zu ändern!

    Ich habe das Programm kurz getestet. Am besten du baust abfragen ein, die bspw. beim Einfahren des Auslegers prüft, ob weiteres Einfahren überhaupt gültig ist.
    Bsp:

    Quellcode

    1. If Panel4.Width -10 > 0 Then
    3. ' Code
    5. End If


    Der Code von Button4 käme in die If Bedingung. Dadurch wird nichts gemacht, sofern die Panelbreite einen negativen Wert erhalten würde.

    Aber wie bereits die Vorposter gesagt haben, versuche, verständliche Namen zu wählen. Das mag bei einer Handvoll Panel und Buttons funktionieren,
    bei grösseren Programmen verlierst du so allerdings den Überblick.
    :26px-WiiDrawing.svg: :33px-WiiWiFi.svg:
    :8px-Wiimote1.svg: x4 :26px-Nunchuck_alternative.svg: x4 :15px-Wiimoteplus.svg: x2 :43px-GCNController.svg: x4
    :23px-FrontSD.svg: 2GB :11px-USBMSD.svg: 150GB (Festplatte)

    VB -Panel - Grenze

    Ich versuche gerade einen Code zu finden um das Bewegen eines Panel zu stoppen, siehe:
    http://forum.wii-homebrew.com/board205-konkurrenz-area/board229-pc-ecke-sonstige-technik/pc-ecke/51225-visual-basic-panel-grenze/



    :autsch: :hechel: Ich hatte schon ein Code versucht:


    If Panel4.Width = 10 Then
    Stop
    End If


    Das funkt nicht ganz, Hilfe dazu bitte und bitte Codes und anderen Kram!
    Ich bin bereits fortgeschrittener Programmierer.

    Nachtrag von Leseratte:

    Dafür sind nun echt keine zwei Threads pro Thema nötig -> Zusammengefügt.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von Leseratte ()

    du kannst dir eher deine sinnlosen fragen sparen.
    jeder merkt doch sofort, dass du nix aufm kasten hast. da kannst du noch 10 programmiersprachen erwähnen, die du angeblich kannst.

    hier, damit du mal lesen kannst wofür der stop-befehl eigentlich gedacht ist: msdn.microsoft.com/de-de/library/8a094y2f.aspx
    wer programmieren will sollte schon dazu in der lage sein sich solch einfache informationen selbst zu beschaffen.

    So welche Vollidioten wie euch kann ich mir gut sparen, ist es zu viel verlangt
    einem den Code zu verraten???
    :luigi1:

    Ich fange gerade mit VB an und will dazu nur ein bisschen Hilfe, schon kommen so
    welche Leute, die einen auf Ober-Pro machen und meinen sie wären die besten.
    Ehrlich Leute ihr könnt mich mal, ich trete hier aus diesem beschissenen Forum aus.
    Ich dachte, dass dieses Forum freundlich höffliche verständnisvolle Leute bietet, aber nein,
    es kommen Dreckswixxer wie ihr.
    Schönen Dank Ihr Ärsche, ihr seid für nichts zu gebrauchen! :cena:

    So welche Vollidioten wie euch kann ich mir gut sparen, ist es zu viel verlangt
    einem den Code zu verraten???
    :luigi1:

    Ich fange gerade mit VB an und will dazu nur ein bisschen Hilfe, schon kommen so
    welche Leute, die einen auf Ober-Pro machen und meinen sie wären die besten.
    Ehrlich Leute ihr könnt mich mal, ich trete hier aus diesem beschissenen Forum aus.
    Ich dachte, dass dieses Forum freundlich höffliche verständnisvolle Leute bietet, aber nein,
    es kommen Dreckswixxer wie ihr.
    Schönen Dank Ihr Ärsche, ihr seid für nichts zu gebrauchen! :cena:


    Alter, krieg dich mal ein. Das war zwar harsch, aber dennoch, Informationen zu VB gibt es bei Google und MSDN zuhauf, warum sollen wir alles vorkäuen?


    MarioKart Wii: 1807-8091-0335
    Wii U: Chris (Mii Name) / setialpha (ID)
    3DS: 3754 6370 1034 (Chris)

    FJK schrieb:

    So welche Vollidioten wie euch kann ich mir gut sparen, ist es zu viel verlangt
    einem den Code zu verraten???

    Solange wie du kein besseren Umgangston hast, bleibt der Thread geschlossen. Wenn du i-wann wieder bessere Laune hast, kontaktiere mich per PN und eventuell wird der Beitrag wieder geöffnet. Danke fürs Verständnis.

    -closed-

    Nachtrag von Taurus:

    Beitrag bleibt geschlossen - User gesperrt.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von Taurus ()