source: Include/Classes/System/Media/SystemSounds.ab@ 106

Last change on this file since 106 was 100, checked in by NoWest, 18 years ago
File size: 746 bytes
RevLine 
[97]1Class SystemSounds
2Public
3 Override Function ToString() As String
4 Return "SystemSounds"
5 End Function
6
7Public
[100]8 Static Function Asterisk() As SystemSound
[97]9 Dim ret As SystemSound(SND_ALIAS_SYSTEMASTERISK)
10 Return ret
11 End Function
[100]12 Static Function Beep() As SystemSound
[97]13 Dim ret As SystemSound(SND_ALIAS_SYSTEMDEFAULT)
14 Return ret
15 End Function
[100]16 Static Function Exclamation() As SystemSound
[97]17 Dim ret As SystemSound(SND_ALIAS_SYSTEMEXCLAMATION)
18 Return ret
19 End Function
[100]20 Static Function Hand() As SystemSound
[97]21 Dim ret As SystemSound(SND_ALIAS_SYSTEMHAND)
22 Return ret
23 End Function
[100]24 Static Function Question() As SystemSound
[97]25 Dim ret As SystemSound(SND_ALIAS_SYSTEMQUESTION)
26 Return ret
27 End Function
28End Class
Note: See TracBrowser for help on using the repository browser.