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.
Die Zufallswort-Funktion gibt nicht für alle Codepfade einen Wert zurück. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine Nullverweisausnahme auftreten.
Dim rnd As New Random
v = v & Chr(rnd.Next(65, 90))
Zufallswort()
Sub Zufallswort()
Dim rnd As New Random
v = v & Chr(rnd.Next(65, 90))
End Sub
Function Zufallswort() As Char
Dim rnd As New Random
Return Chr(rnd.Next(65, 90))
End Function
Private Sub bGenerieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bGenerieren.Click
TextBox1.Text &= Zufallswort()
End Sub