/VBA/Checking and changing system volume vb.net

Checking and changing system volume vb.net

Public Class Sound
    Dim nircmd As String
    Const MAXVOL As Integer = 65535

    Public Sub New(ByVal nircmd_location As String)
        nircmd = nircmd_location
    End Sub

    Public Sub setVol(ByVal level As Integer)

        Dim p As New ProcessStartInfo
        p.FileName = nircmd
        p.Arguments = "setsysvolume " & (MAXVOL * (level / 100)).ToString
        Process.Start(p)

    End Sub
End Class

Source: stackoverflow.com

Checking and changing system volume vb.net

Dim vol As New Sound(path_to_nircmd)
vol.setVol(50)

Source: stackoverflow.com

Similar codes

8 votes217 views1 answer
Vba make integer
VBA
18 votes259 views3 answers
Excel-vba make integer
VBA
0 vote203 views1 answer
Weekday vba
VBA
0 vote194 views1 answer
Excel vba paste all to each sheet in workbook
VBA
0 vote175 views1 answer
Excel vba copy entire sheet paste values
VBA
1 vote171 views1 answer
Excel vba get column name from number
VBA
1 vote198 views1 answer
Set font for ms chart vb.net
VBA
1 vote188 views1 answer
Vbs run
VBA
0 vote171 views1 answer
Vba argument is set
VBA
1 vote178 views1 answer
Excel vba last row of range
VBA