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.
'Erstelle einen Button mit dem Namen PlayCmd
'Erstelle einen Timer mit dem Namen Timer1
'Erstelle ein WindowsMediaPlayer mit dem namen play
Private Sub Form_Load()
play.Enabled = False
Timer1.Interval = 3000
Timer1.Enabled = False
End Sub
Private Sub PlayCmd_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
play.URL = App.Path & "\beispiel.mp3"
play.Enabled = True
Timer1.Enabled = False
End Sub