Changeset 578


Ignore:
Timestamp:
Aug 5, 2008, 9:17:51 PM (13 years ago)
Author:
NoWest
Message:

名前空間に入れ忘れていたのを修正。

Location:
trunk/ab5.0/ablib/src/Classes/System/Media
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/src/Classes/System/Media/SystemSound.ab

    r303 r578  
     1Namespace System
     2Namespace Media
     3
     4
    15Class SystemSound
     6Protected
    27    SoundID As Long
    38
     
    510    Sub SystemSound()
    611        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
    1312    End Sub
    1413
     
    2322    End Function
    2423End Class
     24
     25
     26Namespace Detail
     27
     28Class _System_SystemSound
     29    Inherits SystemSound
     30Public
     31    Sub _System_SystemSound( id As Long)
     32        SoundID = id
     33    End Sub
     34End Class
     35
     36End Namespace
     37
     38
     39End Namespace
     40End Namespace
  • trunk/ab5.0/ablib/src/Classes/System/Media/SystemSounds.ab

    r286 r578  
     1Namespace System
     2Namespace Media
     3
    14Class SystemSounds
    25Public
    36    Static Function Asterisk() As SystemSound
    4         Return New SystemSound(SND_ALIAS_SYSTEMASTERISK)
     7        Return New Detail._System_SystemSound(SND_ALIAS_SYSTEMASTERISK)
    58    End Function
    69    Static Function Beep() As SystemSound
    7         Return New SystemSound(SND_ALIAS_SYSTEMDEFAULT)
     10        Return New Detail._System_SystemSound(SND_ALIAS_SYSTEMDEFAULT)
    811    End Function
    912    Static Function Exclamation() As SystemSound
    10         Return New SystemSound(SND_ALIAS_SYSTEMEXCLAMATION)
     13        Return New Detail._System_SystemSound(SND_ALIAS_SYSTEMEXCLAMATION)
    1114    End Function
    1215    Static Function Hand() As SystemSound
    13         Return New SystemSound(SND_ALIAS_SYSTEMHAND)
     16        Return New Detail._System_SystemSound(SND_ALIAS_SYSTEMHAND)
    1417    End Function
    1518    Static Function Question() As SystemSound
    16         Return New SystemSound(SND_ALIAS_SYSTEMQUESTION)
     19        Return New Detail._System_SystemSound(SND_ALIAS_SYSTEMQUESTION)
    1720    End Function
    1821
    1922    Override Function ToString() As String
    20         Return "SystemSounds"
     23        Return New System.String("SystemSounds")
    2124    End Function
    2225End Class
     26
     27End Namespace
     28End Namespace
Note: See TracChangeset for help on using the changeset viewer.