Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
' If CDbl(Label1wachsen.Text) = 100 Then
' ToolStripMenuItem1.Visible = False
' Else
' ToolStripMenuItem1.Visible = True
' End If
' If CDbl(Label1Wasser.Text) = 0 Then
' BlumeWässernToolStripMenuItem.Visible = False
' Else
' BlumeWässernToolStripMenuItem.Visible = True
' End If
' If CDbl(Label1wachsen.Text) = 0 And CDbl(Label1Wasser.Text) = 0 Then
' BlumeWässernToolStripMenuItem.Visible = True
' ToolStripMenuItem1.Visible = True
' Else
' End If
' AB HIER IST ES BUGGY ************************************!
If CDbl(Label1wachsen.Text) = 100 Then
ToolStripMenuItem1.Visible = False
Else
ToolStripMenuItem1.Visible = True
End If
If CDbl(Label1Wasser.Text) = 0 Then
BlumeWässernToolStripMenuItem.Visible = False
Else
BlumeWässernToolStripMenuItem.Visible = True
End If
If CDbl(Label1wachsen.Text) = 0 And CDbl(Label1Wasser.Text) = 0 Then
BlumeWässernToolStripMenuItem.Visible = True
ToolStripMenuItem1.Visible = True
Else
End If
' AB HIER IST ES WIEDER OK ************************************!!