source: trunk/Include/Classes/System/Media/SystemSound.ab@ 360

Last change on this file since 360 was 303, checked in by イグトランス (egtra), 17 years ago

フルコンパイルでのミスあぶり出し。註:修正は全て@300や@301以前に行われた。

File size: 449 bytes
Line 
1Class SystemSound
2 SoundID As Long
3
4Public
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
15Public
16 Sub Play()
17 PlaySound(SoundID As LPCTSTR, GetModuleHandle(NULL), SND_ALIAS_ID)
18 End Sub
19
20Public
21 Override Function ToString() As String
22 Return "SystemSound"
23 End Function
24End Class
Note: See TracBrowser for help on using the repository browser.