Last change
on this file since 332 was 303, checked in by イグトランス (egtra), 17 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.