source:
Include/Classes/System/Media/SystemSound.ab@
100
Last change on this file since 100 was 98, checked in by , 18 years ago | |
---|---|
File size: 302 bytes |
Line | |
---|---|
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 |
13 | |
14 | Public |
15 | Override Function ToString() As String |
16 | Return "SystemSound" |
17 | End Function |
18 | End Class |
Note:
See TracBrowser
for help on using the repository browser.