'Beispiel: VB .Net - Wav Stream aus Resource-Datei abspielen. - 1 'Resource einbinden 'Schritt 1: Register Projekte aktivieren 'Schritt 2: Projektname markieren, durch Rechtsklick Menue oeffnen und ' a)Hinzfuegen, ' b)Dateien hinzufuegen waehlen ' c)In der ComboBox als Dateityp Alle Dateien waehlen ' d)Datei auswaehlen und mit OK bestaetigen 'Die ausgewaehlte Datei die sich jetzt im Projektfenster befindet, in diesem 'Fall die Datei tada.wav markieren und das Eigenschaftsfenster aktivieren. 'Waehlen Sie hier unter Erstellungsaktion den Menuepunkt: 'EmbededAsResource ' Public Partial Class MainForm Public Sub New() Me.InitializeComponent() End Sub Private Function CreateStream(ByVal resFilename As String) As Byte() Try Dim Buffer As Byte() Dim MyNameSpace As String = _ System.Reflection.Assembly.GetExecutingAssembly().GetName().Name.ToString() If MyNameSpace <> "" Then Dim hStream As System.IO.Stream = _ System.Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream( _ MyNameSpace + "." + resFilename) If hStream IsNot Nothing Then ReDim Buffer(CType(hStream.Length, Integer)) hStream.Read(Buffer, 0, Int(CType(hStream.Length, Integer))) hStream.Close() Return Buffer End If End If Catch Return Nothing End Try Return Nothing End Function Private Sub Button1Click(sender As Object, e As System.EventArgs) Dim Buffer As Byte() Dim ResourceName As String = "tada.wav" Buffer = CreateStream(ResourceName) If (Buffer IsNot Nothing) Then Dim w32 As Win32Api = New Win32Api(Buffer) End If End Sub End Class Public Class Win32Api Private Declare Function PlaySound Lib "winmm.dll" ( _ ByVal lpszName() As Byte, _ ByVal hModule As IntPtr, _ ByVal dwFlags As Integer) As Integer Private Const SND_ASYNC As Integer = &H1 Private Const SND_MEMORY As Integer = &H4 Private _resFile As Byte() Public Sub New(ByVal resFile As Byte()) _resFile = resFile PlayMySound() End Sub Private Sub PlayMySound() Try PlaySound(_resFile, IntPtr.Zero, SND_ASYNC Or SND_MEMORY) Catch ex As Exception Throw New Exception(ex.Message.ToString()) End Try End Sub End Class