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

Last change on this file since 97 was 97, checked in by NoWest, 17 years ago

System/Mediaを追加。

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