Visual Basic

Dave Kreskowiak wrote:

VB6 compiler is finally rotting away

Imports System.Runtime.InteropServices

'Media Manager relegates the playing of *.wav files over multiple sound cards.
Public Class MediaManager

    'Parameters for mciSendCommand dwParam2.
    Structure MCI_WAVE_SET_PARMS
        Dim dwCallback As Long
        Dim dwTimeFormat As Long
        Dim dwAudio As Long
        Dim wInput As Long
        Dim wOutput As Long
        Dim wFormatTag As Integer
        Dim wReserved2 As Integer
        Dim nChannels As Integer
        Dim wReserved3 As Integer
        Dim nSamplesPerSec As Long
        Dim nAvgBytesPerSec As Long
        Dim nBlockAlign As Integer
        Dim wReserved4 As Integer
        Dim wBitsPerSample As Integer
        Dim wReserved5 As Integer
    End Structure

    Public Enum SoundFlags As UInteger
        SND_SYNC = &H0          ' play synchronously (default)
        SND_ASYNC = &H1         ' play asynchronously
        SND_NODEFAULT = &H2     ' silence (!default) if sound not found
        SND_MEMORY = &H4        ' pszSound points to a memory file
        SND_LOOP = &H8          ' loop the sound until next sndPlaySound
        SND_NOSTOP = &H10       ' don't stop any currently playing sound
        SND_NOWAIT = &H2000     ' don't wait if the driver is busy
        SND_ALIAS = &H10000     ' name is a registry alias
        SND_ALIAS_ID = &H110000 ' alias is a predefined id
        SND_FILENAME = &H20000  ' name is file name
        SND_RESOURCE = &H40004  ' name is resource name or atom
    End Enum

    'Plays a *.wav file denoted by a file name.
    Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal pszSound As String, ByVal hmod As UInteger, ByVal fdwSound As UInteger) As Boolean

    'Used to change between different sound cards.
    <DllImport("winmm.dll", CallingConvention:=CallingConvention.StdCall)>
    Private Shared Function mciSendCommand(ByVal wDeviceID As Long, ByVal uMessage As Long, ByVal dwParam1 As Long, ByRef dwParam2 As MCI_WAVE_SET_PARMS) As Long

    End Function

    Sub New()
        Dim Parameters As MCI_WAVE_SET_PARMS
        mciSendCommand(0, &H80D, &H800000, Parameters)
        PlaySound("C:\thermo.wav", 0, SoundFlags.SND_FILENAME Or SoundFlags.SND_ASYNC Or SoundFlags.SND_LOOP)
    End Sub



End Class

VB6 type      VB.NET type
---------  =  ------------
Byte          Byte          8-bit unsigned integer
Integer       Short         16-bit signed integer
Long          Integer       32-bit signed integer
Single        Single        32-bit floating point
Double        Double        64-bit floating point
Currency      Decimal       (not a direct conversion)

'Used to change between different sound cards.
Private Declare Auto Function mciSendCommand Lib "winmm.dll" Alias "mciSendCommandA" (ByVal wDeviceID As UInteger, ByVal uMessage As UInteger, ByVal dwFlags As IntPtr, ByRef dwParam2 As IntPtr) As Integer

Public Sub TestMciSendCommand()
    Dim Parameters As MCI_WAVE_SET_PARMS
    Dim fwdCmd, dwParam As IntPtr
    Dim mciResult As Integer
    Dim deviceID As UInteger

    Try
        dwParam = Marshal.AllocHGlobal(Marshal.SizeOf(GetType(MCI_WAVE_SET_PARMS)))
        Marshal.StructureToPtr(Parameters, dwParam, False)

        fwdCmd = Marshal.AllocHGlobal(Marshal.SizeOf(GetType(Integer)))
        Marshal.WriteInt32(fwdCmd, &H800000)

        deviceID = 0 ' TODO: Get the actual deviceID

        ' results in error # 257 - MCIERR_INVALID_DEVICE_ID
        mciResult = mciSendCommand(deviceID, &H80D, fwdCmd, dwParam)

        Parameters = CType(Marshal.PtrToStructure(dwParam, GetType(MCI_WAVE_SET_PARMS)), MCI_WAVE_SET_PARMS)

    Catch ex As Exception
        Debug.WriteLine(String.Format("mciSendCommand Failed with message: {0}", ex.Message))
        Debug.WriteLine(ex)

    Finally
        ' Clean up unmanaged memory allocations!
        Marshal.FreeHGlobal(fwdCmd)
        Marshal.FreeHGlobal(dwParam)
    End Try
End Sub

abjac@ wrote:

Listbox2(To see the result when i press search.) Not working

Dim filenames = My.Computer.FileSystem.FindInFiles("listbox1.text", "textbox1.text", True, FileIO.SearchOption.SearchAllSubDirectories)

Dim filenames = My.Computer.FileSystem.FindInFiles("listbox1.text", "textbox1.text", True, FileIO.SearchOption.SearchAllSubDirectories)