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
Line 
1Class SystemSounds
2Public
3 Override Function ToString() As String
4 Return "SystemSounds"
5 End Function
6
7Public
8 Static Function Asterisk() As SystemSound
9 Dim ret As SystemSound(SND_ALIAS_SYSTEMASTERISK)
10 Return ret
11 End Function
12 Static Function Beep() As SystemSound
13 Dim ret As SystemSound(SND_ALIAS_SYSTEMDEFAULT)
14 Return ret
15 End Function
16 Static Function Exclamation() As SystemSound
17 Dim ret As SystemSound(SND_ALIAS_SYSTEMEXCLAMATION)
18 Return ret
19 End Function
20 Static Function Hand() As SystemSound
21 Dim ret As SystemSound(SND_ALIAS_SYSTEMHAND)
22 Return ret
23 End Function
24 Static Function Question() As SystemSound
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.