source:
Include/Classes/System/Media/SystemSound.ab@
97
| Last change on this file since 97 was 97, checked in by , 19 years ago | |
|---|---|
| File size: 300 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 | Public |
| 9 | Override Function ToString() As String |
| 10 | Return "SystemSound" |
| 11 | End Function |
| 12 | |
| 13 | Public |
| 14 | Sub Play() |
| 15 | PlaySound(SoundID,GetModuleHandle(NULL),SND_ALIAS_ID) |
| 16 | End Sub |
| 17 | End Class |
Note:
See TracBrowser
for help on using the repository browser.
