source:
Include/Classes/System/Media/SystemSound.ab@
99
| Last change on this file since 99 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.
