Form wechsel schlägt fehl

Hi @ all

mein problem ist folgendes: Ich geh von der 1."Seite" mit

Me.Visible = false 
Geo.visible = true

auf die 2."Seite" von der dann mit

Me.Visible = false
Flächen.Visible = true

auf die 3."Seite" wenn ich nun versuche mit

Me.Visible = False
Quadrat.Visible = True

auf die nächste "Seite" zu gehn zeigt es mir nichts an aber das PRogramm beendet sich auch nicht. Ich verwende VB Express Edition 2005.

Ich hoff ihr könnt mir helfen.

Gruß
Maxi

Please also mark the comments that contributed to the solution of the article

Content-Key: 47618

Url: https://administrator.de/contentid/47618

Printed on: April 25, 2024 at 15:04 o'clock

10 Comments

Latest comment

Hallo badmaxx!

Vielleicht ein wenig mehr Info ...

Anyhow - versuch mal

Quadrat.Show

bzw setze zu Testzwecken in Projekteigenschaften (Doppelklick auf "My Project") / Anwendung "Quadrat" als Startformular, um zu sehen, ob die "Seite" ohne Fehler geöffnet wird.

Grüße
bastla

was willst du für infos?
gruß
maxi

Hallo badmaxx!

was willst du für infos?

Etwa, welche Einstellungen Du für "Quadrat" bereits vorgenommen hast, ob es eine "Form_Load"-Prozedur für "Quadrat" gibt, oder ob "zeigt es mir nichts an" auch für die Taskleiste gilt, ...

Grüße
bastla

Public Class Quadrat

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = Format(CDbl(TextBox1.Text) * CDbl(TextBox1.Text), "0.00.")  
        'Berechnung der Fläche  

        TextBox3.Text = Format(CDbl(TextBox1.Text) * 4, "0.00")  
        'Berechung des Umfangs  

        TextBox1.Text = Format(Math.Sqrt(CDbl(TextBox2.Text)), "0.00")  
        'Berechnung der Seite a aus der Fläche  

        TextBox1.Text = Format(CDbl(TextBox3.Text) / 4, "0.00")  
        'Berechnung der Seite a aus dem Umfang  

        TextBox4.Text = Format(CDbl(TextBox1.Text) * Math.Sqrt(2), "0.00")  
        'Berechnung der Diagonalen  

    End Sub

    Private Sub Quadrat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Visible = False
        Fläche.Visible = True
    End Sub
End Class

Ich hoff das hilft dir erstmaö weiter. Kannst du mir sagen was an meiner Berechnung falsch ist da er mir immer einen fehler bringt wenn ich die form ausführe.
Gruß
Maxi
ps. Guten rutsch

Hallo badmaxx!

Die Berechnungen in "Button1_Click" kannst Du nur ausführen, wenn die TextBox1 nicht leer ist, daher zuerst ein

If TextBox1.Text <> "" Then  

einfügen - ein Preis für die Verwendung von CDbl(), das im Gegensatz zu Val() einen leeren Text nicht in 0 umwandelt.

Abgesehen von dem "Schönheits"-Fehler "Ein Punkt zuviel" bei der Formatierung der Flächen-Berechnung ("0.00.") kann ich im Code ansonsten nichts Auffälliges entdecken.

Du könntest aber noch die (derzeit) nicht benötigten Subs "Quadrat_Load" und "TextBox3_TextChanged" entfernen.

Welcher Fehler wird denn beim Ausführen der Form angezeigt?

Grüße
bastla