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

Last change on this file since 253 was 116, checked in by NoWest, 18 years ago

いくつか実装法を変更しました。

File size: 738 bytes
Line 
1Class SystemSounds
2Public
3 Static Function Asterisk() As SystemSound
4 Dim ret As SystemSound(SND_ALIAS_SYSTEMASTERISK)
5 Return ret
6 End Function
7 Static Function Beep() As SystemSound
8 Dim ret As SystemSound(SND_ALIAS_SYSTEMDEFAULT)
9 Return ret
10 End Function
11 Static Function Exclamation() As SystemSound
12 Dim ret As SystemSound(SND_ALIAS_SYSTEMEXCLAMATION)
13 Return ret
14 End Function
15 Static Function Hand() As SystemSound
16 Dim ret As SystemSound(SND_ALIAS_SYSTEMHAND)
17 Return ret
18 End Function
19 Static Function Question() As SystemSound
20 Dim ret As SystemSound(SND_ALIAS_SYSTEMQUESTION)
21 Return ret
22 End Function
23
24 Override Function ToString() As String
25 Return "SystemSounds"
26 End Function
27End Class
Note: See TracBrowser for help on using the repository browser.