source: Include/Classes/System/Media/SystemSound.ab@ 164

Last change on this file since 164 was 116, checked in by NoWest, 18 years ago

いくつか実装法を変更しました。

File size: 436 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,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.