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

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

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

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