Changeset 116 for Include/Classes/System/Media/SystemSound.ab

Timestamp:

Feb 22, 2007, 3:08:35 AM (17 years ago)

Author:

NoWest

Message:

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

File:

• Include/Classes/System/Media/SystemSound.ab (modified) (1 diff)

Include/Classes/System/Media/SystemSound.ab

@@ -1 +1 @@
 Class SystemSound
-    Const SoundID As Long
+    SoundID As Long
 
 Public
+    Sub SystemSound()
+        SoundID=SND_ALIAS_SYSTEMDEFAULT
+    End Sub
     Sub SystemSound(value As Long)
         SoundID=value
+    End Sub
+    Sub SystemSound(ByRef ss As SystemSound)
+        SoundID=ss.SoundID
     End Sub