“Проверка и изменение системы системы VB.NET” Ответ

Проверка и изменение системы системы VB.NET

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

Проверка и изменение системы системы 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
Dizzy Dolphin

Ответы похожие на “Проверка и изменение системы системы VB.NET”

Вопросы похожие на “Проверка и изменение системы системы VB.NET”

Больше похожих ответов на “Проверка и изменение системы системы VB.NET” по VBA

Смотреть популярные ответы по языку

Смотреть другие языки программирования