Visual Basic Fehler

TimBo · 3. Juni 2011

Code

Private class //hier ist zeile 2


    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub


    Private Sub bnUmrechenen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnUmrechnen.Click


        If IsNumeric(tbGroesse.Text) = True AndAlso tbGroesse.Text >= 30 AndAlso tbGroesse.Text <= 230 Then
            If rbMaennlich.Checked = True Then
                lbIdealgewicht.Text = "Das Idealgewicht: " &
                   (tbGroesse.Text - 100) * 0.9 & "kg"
            Else
                lbIdealgewicht.Text = "Das Idealgewicht: " &
                    (tbGroesse.Text - 100) * 0.85 & "kg"
            End If




        End If


    End Sub








    Private Sub rbMaennlich_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbMaennlich.CheckedChanged
        pbGeschlecht.Image = My.Resources.M‰nnlich


    End Sub


    Private Sub rbWeiblich_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbWeiblich.CheckedChanged
        pbGeschlecht.Image = My.Resources.Weiblich
    End Sub






End Class

Alles anzeigen

Die Fehlermeldung:

Code

Bezeichner erwartet.                  Zeile:2   Spalte:13

Rastla · 3. Juni 2011

Ja schon klar, du musst der Klasse ja auch einen Namen geben^^

VBS: private class KlassenName
C#: private class KlassenName
Pawn: private KlassenName

TimBo · 3. Juni 2011

wie jetzt? kanste das mir mal an dem beispiel zeigen?

Rastla · 3. Juni 2011

Pawn:
private KickAll
{
for(new i=0;i<MAX_PLAYERS;i++)
{
Kick(i);
}
}

So wär's z.B. in Pawn

TimBo · 3. Juni 2011

Code

Private class Test //hier ist zeile 2


    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub


    Private Sub bnUmrechenen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnUmrechnen.Click


        If IsNumeric(tbGroesse.Text) = True AndAlso tbGroesse.Text >= 30 AndAlso tbGroesse.Text <= 230 Then
            If rbMaennlich.Checked = True Then
                lbIdealgewicht.Text = "Das Idealgewicht: " &
                   (tbGroesse.Text - 100) * 0.9 & "kg"
            Else
                lbIdealgewicht.Text = "Das Idealgewicht: " &
                    (tbGroesse.Text - 100) * 0.85 & "kg"
            End If




        End If


    End Sub








    Private Sub rbMaennlich_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbMaennlich.CheckedChanged
        pbGeschlecht.Image = My.Resources.M‰nnlich


    End Sub


    Private Sub rbWeiblich_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbWeiblich.CheckedChanged
        pbGeschlecht.Image = My.Resources.Weiblich
    End Sub






End Class

Alles anzeigen

also so gehts nicht^^

Rastla · 3. Juni 2011

Was kommt denn für eine Fehlermeldung?
Kenne mich zwar mit VBS nicht wirklich aus, aber C# ist da ja ziemlich ähnlich hoffe ich

TimBo · 3. Juni 2011

immer noch der gleiche

Zitat

Der Beitrag ist zu kurz. Der Beitrag muss mindestens 15 Zeichen lang sein und 6 Wörter enthalten.

Rastla · 3. Juni 2011

Versuchs mal so
private class Test()

TimBo · 3. Juni 2011

11 Fehler

Der Beitrag ist zu kurz. Der Beitrag muss mindestens 15 Zeichen lang sein und 6 Wörter enthalten.

Rastla · 3. Juni 2011

Naja, falls das der Anfang vom Programm ist muss dort definiert sein was dieses Programm denn ist
in C# z.B. Game oder Form

jD#! · 3. Juni 2011

Du meinst eher Public anstatt Private, denk ich mal.

bombom48 · 4. Juni 2011

Was hast du für ein Compiler?

breadfish.de 11. März 2022