| Line | |
|---|
| 1 | Class SystemSound
|
|---|
| 2 | SoundID As Long
|
|---|
| 3 |
|
|---|
| 4 | Public
|
|---|
| 5 | Sub SystemSound()
|
|---|
| 6 | SoundID=SND_ALIAS_SYSTEMDEFAULT
|
|---|
| 7 | End Sub
|
|---|
| 8 | Sub SystemSound(value As Long)
|
|---|
| 9 | SoundID=value
|
|---|
| 10 | End Sub
|
|---|
| 11 | Sub SystemSound(ByRef ss As SystemSound)
|
|---|
| 12 | SoundID=ss.SoundID
|
|---|
| 13 | End Sub
|
|---|
| 14 |
|
|---|
| 15 | Public
|
|---|
| 16 | Sub Play()
|
|---|
| 17 | PlaySound(SoundID,GetModuleHandle(NULL),SND_ALIAS_ID)
|
|---|
| 18 | End Sub
|
|---|
| 19 |
|
|---|
| 20 | Public
|
|---|
| 21 | Override Function ToString() As String
|
|---|
| 22 | Return "SystemSound"
|
|---|
| 23 | End Function
|
|---|
| 24 | End Class
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
