不能将winmm.dll添加为引用

Question

我正在使用VS2005和Im在vb.net中创建一个项目，我试图添加winmm.dll文件，但是我得到了这个错误。

无法添加对'C:\Documents和Settings\rhyatco\My Documents\winmm.dll‘的引用。这不是有效的程序集或COM组件。只有扩展名'dll‘和COM组件的匹配项才能被刷新。请确保该文件是可访问的，并且它是有效的程序集或COM组件。

我已经下载了两个winmm.dll，但它并不是真的工作。

Answer 1

Winmm.dll包含win32 api函数，而不是com组件或.net类型。

要使用VB中的dll函数，您需要使用"declare语句“。

您可以找到有关“声明语句”这里语法的信息。

Answer 2

可能是因为winmm.dll既不是COM DLL也不是.Net程序集。

Answer 3

例如，如果您想使用winmm.dll播放声音(从pinvoke.net复制来的示例)，可以使用Goto http://www.pinvoke.net/获取所有其他API的示例和定义：

    Public Declare Auto Function PlaySound Lib "winmm.dll" (ByVal pszSound As String, ByVal hmod As IntPtr, ByVal fdwSound As Integer) As Boolean
Public Declare Auto Function PlaySound Lib "winmm.dll" (ByVal pszSound As Byte(), ByVal hmod As IntPtr, ByVal fdwSound As SoundFlags) As Boolean
<Flags()> _
Public Enum SoundFlags As Integer
    SND_SYNC = &H0
    SND_ASYNC = &H1
    SND_NODEFAULT = &H2
    SND_MEMORY = &H4
    SND_LOOP = &H8
    SND_NOSTOP = &H10
    SND_PURGE = &H40
    SND_NOWAIT = &H2000
    SND_ALIAS = &H10000
    SND_FILENAME = &H20000
    SND_RESOURCE = &H40004
End Enum

Public Shared Sub Play(ByVal strFileName As String)
    PlaySound(strFileName, IntPtr.Zero, SoundFlags.SND_FILENAME Or SoundFlags.SND_ASYNC)
End Sub

Public Shared Sub Play(ByVal waveData As Byte())
    'bad idea, see http://blogs.msdn.com/larryosterman/archive/2009/02/19/playsound-xxx-snd-memory-snd-async-is-almost-always-a-bad-idea.aspx
    PlaySound(waveData, IntPtr.Zero, SoundFlags.SND_ASYNC Or SoundFlags.SND_MEMORY)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim ip As UIntPtr = UIntPtr.Zero
    Dim result As Boolean = PlaySound("C:\path\to\wav\file.wav", IntPtr.Zero, ip)
End Sub