Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
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