Changeset 116 for Include/Classes

Timestamp:

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

Author:

NoWest

Message:

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

Location:

Include/Classes/System/Media

Files:

• SystemSound.ab (modified) (1 diff)
• SystemSounds.ab (modified) (2 diffs)
• index.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
 

Include/Classes/System/Media/SystemSounds.ab

@@ -1 +1 @@
 Class SystemSounds
-Public
-    Override Function ToString() As String
-        Return "SystemSounds"
-    End Function
-
 Public
     Static Function Asterisk() As SystemSound
@@ -26 +21 @@
         Return ret
     End Function
+
+    Override Function ToString() As String
+        Return "SystemSounds"
+    End Function
 End Class

Include/Classes/System/Media/index.ab

@@ -4 +4 @@
 #require <api_mmsys.sbp>
 
-#include <Classes/System/Media/SystemSound.ab>
-#include <Classes/System/Media/SystemSounds.ab>
+#require <Classes/System/Media/SystemSound.ab>
+#require <Classes/System/Media/SystemSounds.ab>
 
 #endif