Button optionen ( Panel visible = true/false )

Bruder_B · 16.09.2008

Also ich möchte das ein panal mit Rechenergebnissen erscheint wenn ich den button klicke

Kurzfassung:

Code:

Public Class Form1
    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
        Panel1.Visible = False
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If [COLOR="Lime"]Button1.Enabled[/COLOR] Then
            Panel1.Visible = True
        End If
    End Sub
End Class

brauch einen anderen Befehl (grün)

WhiskeyCola16 · 16.09.2008

Das "grüne" ist ein Property, kein Befehl.
Die if Abfrage ist unnötig. Ein Button reagiert nämlich gar nicht auf ein click-event, wenn er disabled ist. Lass die Abfrage weg, dann passt's ja.

cmddegi · 17.09.2008

Visible im Paint-Ereignis auf False zu setzen scheint mir keine gute Idee zu sein. Dann verschwindet das nämlich vermutlich immer, sobald du irgendein Fenster oder sonstwas drüberschiebst. Wenn es einfach nur beim Start unsichtbar sein soll, dann setzt du am besten direkt im Editor Visible auf False, und im Click-Ereignis des Buttons auf True.

Bruder_B · 17.09.2008

cmddegi schrieb:
Visible im Paint-Ereignis auf False zu setzen scheint mir keine gute Idee zu sein. Dann verschwindet das nämlich vermutlich immer, sobald du irgendein Fenster oder sonstwas drüberschiebst. Wenn es einfach nur beim Start unsichtbar sein soll, dann setzt du am besten direkt im Editor Visible auf False, und im Click-Ereignis des Buttons auf True.

Korrekt!!
so funktionierts dankeschön

Bruder_B · 17.09.2008

Warum kann ich AND nicht zweimal benutzen???

cmddegi · 17.09.2008

Wo steht, dass man das nicht kann?

Bruder_B · 17.09.2008

hab den fehler gefunden

so ists richtig

Code:

Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text <> "" And TextBox3.Text <> "" And TextBox5.Text <> "" Then

            Button1.Enabled = True
        Else
            Button1.Enabled = False
        End If
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If TextBox2.Text <> "" And TextBox4.Text <> "" Then

            Button1.Enabled = True
        Else
            Button1.Enabled = False
        End If
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        If TextBox1.Text <> "" And TextBox3.Text <> "" And TextBox5.Text <> "" Then

            Button1.Enabled = True
        Else
            Button1.Enabled = False
        End If
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
        If TextBox2.Text <> "" And TextBox4.Text <> "" Then

            Button1.Enabled = True
        Else
            Button1.Enabled = False
        End If
    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
        If TextBox1.Text <> "" And TextBox3.Text <> "" And TextBox5.Text <> "" Then

            Button1.Enabled = True
        Else
            Button1.Enabled = False
        End If
    End Sub


End Class

Ich wusste nicht das man die befehle für jede Textbox wiederholen muss.
oder gibt es eine kürzere variante??

cmddegi · 17.09.2008

Die einfachste Variante ist, eine eigene Prozedur zu schreiben, die die Bedingungen für Freigaben/Sperren prüft und alle Bedienelemente entsprechend aktualisiert. Die brauchst du dann nur noch in jedem relevanten Ereignis aufrufen.

Bruder_B · 18.09.2008

Ich hab mir jetz ma das Thema Prozeduren angesehen weiß jetz nur nich wie ich das darauf umsetzen soll

cmddegi · 18.09.2008

Einfach in der Klasse sowas in der Art machen:
z.B. als Beispiel, dass eine Addition automatisch bei der Eingabe berechnet wird, aber nur, wenn in beiden Textfeldern Zahlen eingeben sind.

Code:

Public Class Form1
    Private Sub UpdateControls()
        If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
            TextBox3.Text = Convert.ToDouble(TextBox1.Text) + Convert.ToDouble(TextBox2.Text)
        Else
            TextBox3.Text = "Werte eingeben!"
        End If
    End Sub

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

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        UpdateControls()
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        UpdateControls()
    End Sub
End Class

In dieser Funktion kann man natürlich alle möglichen Anzeigen aktualisieren, Buttons sperren/freigeben, Dinge anzeigen/verstecken, ...

Man könnte das natürlich ohne der expliziten Prüfung mit IsNumeric auch mit einem Try-Catch-Block machen, und damit einfach den Fehler, den Convert.ToDouble erzeugt, wenn der String keine Zahl darstellt, abfangen.

Bruder_B · 18.09.2008

Dankeschön!! :goil:

bin ja noch anfänger und brauch immer noch nen Schlag auf den Hinterkopf:ja:

MfG Bruder B

cmddegi · 18.09.2008

Kein Problem.

Wobei mir gerade aufgefallen ist, dass die Berechnung nicht ganz sauber ist. Eigentlich sollte die Summe in Klammern stehen und mit Convert.ToString explizit in einen String umgewandelt werden. Geht aber auch so.

Bruder_B · 21.09.2008

Bei folgendem script/code

Code:

ublic Class Form1
    Sub UpdateTextbox()
        If TextBox1.Text <> "" And TextBox2.Text <> "" _
        Or TextBox1.Text <> "" And TextBox3.Text <> "" _
        Or TextBox2.Text <> "" And TextBox3.Text <> "" Then
            Button1.Enabled = True
        Else
            Button1.Enabled = False
        End If
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        UpdateTextbox()
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        UpdateTextbox()
    End Sub

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A As Integer
        Dim B As Integer
        Dim C As Integer

        A = TextBox1.Text
        B = TextBox2.Text
        [COLOR="Red"]C = TextBox3.Text[/COLOR]

        Dim F As Integer
        Dim G As Integer
        Dim H As Integer

        If TextBox1.Text <> "" And TextBox2.Text <> "" Then
            F = A + B
        ElseIf TextBox1.Text <> "" And TextBox3.Text <> "" Then
            G = A - C
        ElseIf TextBox2.Text <> "" And TextBox3.Text <> "" Then
            H = B * C
        End If

        Label1.Text = F
        Label2.Text = G
        Label3.Text = H

    End Sub
End Class

verinfachte form des eigentlichen scripts/code

macht er mir an der roten (bzw an der stelle wo ich beim debuggen die Textbox frei lasse) stelle, beim debuggen, folgende Fehlermeldung:

"Ungültige Konvertierung von der Zeichenfolge in Typ Integer."

cmddegi · 21.09.2008

A, B, und C sind Variablen für Ganzzahl-Werte (Integer). In TextBox3 wird zu diesem Zeitpunkt vermutlich etwas stehen, was sich nicht automatisch in eine solche Ganzzahl konvertieren lässt. Generell ist es sauberer, solche Konvertierungen explizit anzugeben, um dem Compiler zu sagen, was man vor hat. In dem Fall wäre das dann C = Convert.ToInt32(TextBox3.Text). Convert hat dabei Funktion für mehrere Datentypen, diverse Integer (32 Bit, 64 Bit, ...), Double, usw.
Wenn dann allerdings wiederum in der Textbox was steht, was keine Zahl des entsprechenden Typs darstellt, gibts eine Fehlermeldung. Das kannst du verhindern, in dem du vorher prüfst, ob es sich um den gewünschten Typ handelt (so wie ich oben mit IsNumeric), oder mittels eines Try-Catch-Blocks, der den Fehler abfängt. Dann kannst du z.B. eine MessageBox anzeigen, dass man eine Zahl eingeben muss.

Bruder_B · 21.09.2008

Danke

mach ich gleich mal.

Button optionen ( Panel visible = true/false )

Bruder_B

WhiskeyCola16

cmddegi

Bruder_B

Bruder_B

cmddegi

Bruder_B

cmddegi

Bruder_B

cmddegi

Bruder_B

cmddegi

Bruder_B

cmddegi

Bruder_B

Button optionen ( Panel visible = true/false )

ANGEBOTE & SPONSOREN

Neueste Beiträge

Statistik des Forums