[VB] Menü aufbauen

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • [VB] Menü aufbauen

    Mahlzeit,

    wie muss ich in dieses Menü:

    Quellcode

    1. Public Class Form1
    3. Private Sub HyoptenuseToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HyoptenuseToolStripMenuItem.Click
    5. End Sub
    7. Private Sub KatheteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KatheteToolStripMenuItem.Click
    9. End Sub
    11. End Class
    Alles anzeigen


    Diese beiden Codes einbauen:

    Quellcode

    1. Public Class frmSDP
    3. Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblZweiteKathete.Click
    5. End Sub
    7. Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblErsteKathete.Click
    9. End Sub
    11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdErgebnis.Click
    12. Dim a As Single
    13. Dim b As Single
    14. a = Val(txtErsteKathete.Text)
    15. Dim d As Single = a * a
    16. b = Val(txtZweiteKathete.Text)
    17. Dim f As Single = b * b
    18. Dim g As Single = d + f
    19. Dim wurzel As Single = Math.Sqrt(g)
    21. txtErgebnis.Text = ("c = (" & a & " cm)² + (" & b & "
    22. cm)²" + vbNewLine + "c = " & d & " cm² + " & f & " cm²" _
    23. + vbNewLine + "c = " & g & " cm²" + vbNewLine + "c = " & wurzel & " cm")
    25. End Sub
    26. End Class
    Alles anzeigen


    Quellcode

    1. Public Class frmSDP
    3. Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblHypotenuse.Click
    5. End Sub
    7. Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblKathete.Click
    9. End Sub
    11. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdErgebnis2.Click
    12. Dim h As Single
    13. Dim i As Single
    14. h = Val(txtHypotenuse.Text)
    15. Dim j As Single = a * a
    16. i = Val(txtKathete.Text)
    17. Dim k As Single = b * b
    18. Dim l As Single = d + f
    19. Dim wurzel2 As Single = Math.Sqrt(g)
    20. txtErgebnis2.Text = ("c = (" & h & " cm)² - (" & i & " cm)²" + vbNewLine + "c = " & j & " cm² - " & k & " cm²" _
    21. + vbNewLine + "c = " & l & " cm²" + vbNewLine + "c = " & wurzel2 & " cm")
    23. End Sub
    24. End Class
    Alles anzeigen


    Also, wenn man im Menu auf Hypotenuse klickt, soll man diese ausrechnen können und wenn man auf Kathete klickt, soll man diese ausrechnen können.

    Danke im Voraus!

  • hallo,

    du willst das der code von z.b. der hypotenuse ausgeführt wird wenn dieses event HyoptenuseToolStripMenuItem_Click kommt oder?
    für was brauchst du dann das:

    Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdErgebnis.Click


    ??

    du brauchst doch dann den button1 nicht sondern deinen menu punkt. in dem sub von HyoptenuseToolStripMenuItem_Click musst du den code von deinem button1_click einfügen. dann sollte der auch ausgeführt werden wenn du auf den menupunkt klickst.

    thx, truespin

    ps.: verbessere mich wenn ich dich falsch verstanden hab.