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.
Protected Overrides Sub onload(ByVal e As System.EventArgs)
Me.TextBox1.Text = Date.Now.ToString("dd/MM/yyyy")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDate As DateTime
Dim MyString As String = Me.TextBox1.Text
If IsDate(MyString) Then
MyDate = CDate(MyString)
Else
MyDate = Now
End If
MyString = MyDate.ToString("MMM/dd/yyyy")
Me.Label1.Text = MyString
End Sub