source:
Include/Classes/System/Media/SystemSound.ab@
106
Last change on this file since 106 was 98, checked in by , 18 years ago | |
---|---|
File size: 302 bytes |
Rev | Line | |
---|---|---|
[97] | 1 | Class SystemSound |
2 | Const SoundID As Long | |
3 | ||
4 | Public | |
5 | Sub SystemSound(value As Long) | |
6 | SoundID=value | |
7 | End Sub | |
8 | ||
9 | Public | |
10 | Sub Play() | |
11 | PlaySound(SoundID,GetModuleHandle(NULL),SND_ALIAS_ID) | |
12 | End Sub | |
[98] | 13 | |
14 | Public | |
15 | Override Function ToString() As String | |
16 | Return "SystemSound" | |
17 | End Function | |
[97] | 18 | End Class |
Note:
See TracBrowser
for help on using the repository browser.