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.
Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
Const MB_ICONHAND As Long = &H10&
Const MB_ICONQUESTION As Long = &H20&
Const MB_ICONEXCLAMATION As Long = &H30&
Const MB_ICONASTERISK As Long = &H40&
Const MB_ICONMASK As Long = &HF0&
Public Enum MessageMode
Hand = 0
Question
Exclamation
Asterisk
Mask
End Enum
Public Function MessageSound(Modus As MessageMode) As Long
Select Case Modus
Case 0
MessageBeep MB_ICONHAND
Case 1
MessageBeep MB_ICONQUESTION
Case 2
MessageBeep MB_ICONEXCLAMATION
Case 3
MessageBeep MB_ICONASTERISK
Case Else
MessageBeep MB_ICONMASK
End Select
End Function
Private Sub Command1_Click()
CALL MessageSound(Hand)
End Sub