|
Last change
on this file since 360 was 303, checked in by イグトランス (egtra), 18 years ago |
|
フルコンパイルでのミスあぶり出し。註：修正は全て@300や@301以前に行われた。
|
|
File size:
449 bytes
|
| 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 As LPCTSTR, 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.
