VistaCoreAudioApiHelper Class

Public NotInheritable Class VistaCoreAudioApiHelper
	Implements IDisposable

Dim instance As VistaCoreAudioApiHelper

public ref class VistaCoreAudioApiHelper sealed : IDisposable

[<SealedAttribute>]
type VistaCoreAudioApiHelper = 
    class
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

' Instance the Class:
' ###################
Friend WithEvents AudioDevice As New VistaCoreAudioApiHelper(EnableDeviceMonitors:=True)

' Disable or enable Monitors, and/or it's intervals:
' ##################################################
AudioDevice.DeviceMonitorsEnabled = True
AudioDevice.Timer_MasterVolumeChanged_DetectionInterval = 100I
AudioDevice.Timer_ChannelsVolumeChanged_DetectionInterval = 100I
AudioDevice.Timer_Mute_DetectionInterval = 100I

' Get the DeviceName
' ##################
MessageBox.Show(String.Format("Device Name: {0}", AudioDevice.Name),
                "CoreAudip API", MessageBoxButtons.OK, MessageBoxIcon.Information)

' Get a value indicating whether the Device is muted:
' ###################################################
MessageBox.Show(String.Format("Device Is Muted?: {0}", CStr(AudioDevice.IsMuted)),
                "CoreAudip API", MessageBoxButtons.OK, MessageBoxIcon.Information)

' Mute the device:
' ################
AudioDevice.Mute()

' Unmute the device:
' ##################
AudioDevice.Unmute()

' Set the master-volume:
' ######################
AudioDevice.Volume = 50I

' Get the channel count:
' ######################
MessageBox.Show(String.Format("Device Total Channels: {0}", AudioDevice.ChannelsCount),
                "CoreAudip API", MessageBoxButtons.OK, MessageBoxIcon.Information)

' Set the volume for an specific channel:
' #######################################
AudioDevice.ChannelVolumeSet(MasterVolume.DeviceChannel.Channel0, 50I)

' Set the volume for all channels:
' ################################
AudioDevice.ChannelVolumeSetAll(50I)

' Get the volume of an specific channel:
' ######################################
MessageBox.Show(String.Format("Channel: 0, Volume: {0}",
                              AudioDevice.ChannelVolumeGet(MasterVolume.DeviceChannel.Channel0)),
                "CoreAudip API", MessageBoxButtons.OK, MessageBoxIcon.Information)

' Get the volume of all channels:
' ###############################
Dim ChannelsInfo As Dictionary(Of MasterVolume.DeviceChannel, Integer) = AudioDevice.ChannelVolumeGetAll

Dim sb As New System.Text.StringBuilder

With sb
    For Each Channel As KeyValuePair(Of MasterVolume.DeviceChannel, Integer) In ChannelsInfo
        .AppendLine(String.Format("Channel: {0}, Volume: {1}", CStr(Channel.Key), CStr(Channel.Value)))
    Next
End With

MessageBox.Show(sb.ToString(), "CoreAudip API", MessageBoxButtons.OK, MessageBoxIcon.Information)

' Lock the audio device:
' ######################
AudioDevice.LockDevice()

' Unlock the audio device:
' ########################
AudioDevice.UnlockDevice()

Private Sub AudioDevice_OnMutedChanged(ByVal sender As Object, ByVal e As MasterVolume.MuteArgs) _
Handles AudioDevice.OnMutedChanged

    ' Do something here...
    Debug.WriteLine(String.Format("Device Muted changed to: {0}", CStr(e.IsMuted)))

End Sub

Private Sub AudioDevice_OnVolumeChanged(ByVal sender As Object, ByVal e As MasterVolume.MasterVolumeArgs) _
Handles AudioDevice.OnMasterVolumeChanged

    ' Do something here...
    Debug.WriteLine(String.Format("Device Master-Volume changed to: {0}", CStr(e.Volume)))

End Sub

Private Sub AudioDevice_OnVolumeChanged(ByVal sender As Object, ByVal e As MasterVolume.ChannelVolumeArgs) _
Handles AudioDevice.OnChannelVolumeChanged

    ' Do something here...
    Debug.WriteLine(String.Format("Device volume in channel '{0}' changed to: {1}", e.Channel.ToString(), CStr(e.Volume)))

End Sub

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.