Announcement

Collapse
No announcement yet.

onclick event

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • onclick event

    Hey,
    wie kann ich das machen, dass wenn ich auf ein Button klicke, dass das aktuelle Form geschlossen und ein anderes geöffnet wird?

  • #2
    Hallo,

    [highlight=vb.net]
    Dim frm As New Form2()
    frm.Show()
    Me.Close()
    [/highlight]

    Achtung: Wenn das Formular indem diese Aktion geschieht an die Nachrichtenschleife gebunden ist - in Program.vb: Application.Run(New Form1()) - dann wird bei Me.Close() die Anwendung beendet.
    Hier könnte dann zB statt Me.Close() dieses Formular nur ausgeblendet werden mit Me.Hide().

    In Mdi-Anwendungen ist es aber kein Problem.

    mfG Gü
    "Any fool can write code that a computer can understand. Good programmers write code that humans can understand". - Martin Fowler

    Comment


    • #3
      Funktioniert soweit aber blöd ist, dass das andere Form nur für einen augenblick geöffnet wird und dann verschwindet es zusammen mit dem ersten Form

      Comment


      • #4
        ok sorry habe das mit dem Me.Hide() nicht gelesen. Super funktioniert alles

        Comment


        • #5
          Hi,

          noch eine Ergänzung:
          Wenn du willst dass nach dem Schließen des 2. Formulars das 1. wieder erscheint muss folgendes geändert werden:

          Form1:
          [highlight=vb.net]
          Private Sub button1_Click(sender As Object, e As EventArgs)
          Dim frm As New Form2()
          frm.Owner = Me ' Besitzer des 2. Formulars festlegen
          frm.Show()
          Me.Hide()
          End Sub
          [/highlight]

          Form2:
          [highlight=vb.net]
          Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs)
          Me.Owner.Show()
          End Sub
          [/highlight]

          mfG Gü
          "Any fool can write code that a computer can understand. Good programmers write code that humans can understand". - Martin Fowler

          Comment

          Working...
          X