SetApplicationVolume & GetApplicationVolume

  • VB.NET
  • .NET 5–6

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von TomTheCoder15.

    SetApplicationVolume & GetApplicationVolume

    Hallo,

    Ich habe ein kleines Programm, welches die Lautstärke von Discord ändert.

    Und zwar so:

    VB.NET-Quellcode

    1. Public VolumeDiscord As Single = 50.0F
    2. SetApplicationSound("discord", VolumeDiscord)


    Das ist die Klasse auf die ich zugreife:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports System.IO
    4. Public Class VolumeMixer
    5. Public Shared Function GetApplicationVolume(ByVal pid As Integer) As Single?
    6. Dim volume As ISimpleAudioVolume = GetVolumeObject(pid)
    7. If volume Is Nothing Then Return Nothing
    8. Dim level As Single
    9. volume.GetMasterVolume(level)
    10. Marshal.ReleaseComObject(volume)
    11. Return level * 100
    12. End Function
    13. Public Shared Function GetApplicationMute(ByVal pid As Integer) As Boolean?
    14. Dim volume As ISimpleAudioVolume = GetVolumeObject(pid)
    15. If volume Is Nothing Then Return Nothing
    16. Dim mute As Boolean
    17. volume.GetMute(mute)
    18. Marshal.ReleaseComObject(volume)
    19. Return mute
    20. End Function
    21. Public Shared Sub SetApplicationVolume(ByVal pid As Integer, ByVal level As Single)
    22. Dim volume As ISimpleAudioVolume = GetVolumeObject(pid)
    23. If volume Is Nothing Then Return
    24. Dim guid As Guid = Guid.Empty
    25. volume.SetMasterVolume(level / 100, guid)
    26. Marshal.ReleaseComObject(volume)
    27. End Sub
    28. Public Shared Sub SetApplicationMute(ByVal pid As Integer, ByVal mute As Boolean)
    29. Dim volume As ISimpleAudioVolume = GetVolumeObject(pid)
    30. If volume Is Nothing Then Return
    31. Dim guid As Guid = Guid.Empty
    32. volume.SetMute(mute, guid)
    33. Marshal.ReleaseComObject(volume)
    34. End Sub
    35. Private Shared Function GetVolumeObject(ByVal pid As Integer) As ISimpleAudioVolume
    36. Dim deviceEnumerator As IMMDeviceEnumerator = CType((New MMDeviceEnumerator()), IMMDeviceEnumerator)
    37. Dim speakers As IMMDevice
    38. deviceEnumerator.GetDefaultAudioEndpoint(EDataFlow.eRender, ERole.eMultimedia, speakers)
    39. Dim IID_IAudioSessionManager2 As Guid = GetType(IAudioSessionManager2).GUID
    40. Dim o As Object
    41. speakers.Activate(IID_IAudioSessionManager2, 0, IntPtr.Zero, o)
    42. Dim mgr As IAudioSessionManager2 = CType(o, IAudioSessionManager2)
    43. Dim sessionEnumerator As IAudioSessionEnumerator
    44. mgr.GetSessionEnumerator(sessionEnumerator)
    45. Dim count As Integer
    46. sessionEnumerator.GetCount(count)
    47. Dim volumeControl As ISimpleAudioVolume = Nothing
    48. For i As Integer = 0 To count - 1
    49. Dim ctl As IAudioSessionControl2
    50. sessionEnumerator.GetSession(i, ctl)
    51. Dim cpid As Integer
    52. ctl.GetProcessId(cpid)
    53. If cpid = pid Then
    54. volumeControl = TryCast(ctl, ISimpleAudioVolume)
    55. Exit For
    56. End If
    57. Marshal.ReleaseComObject(ctl)
    58. Next
    59. Marshal.ReleaseComObject(sessionEnumerator)
    60. Marshal.ReleaseComObject(mgr)
    61. Marshal.ReleaseComObject(speakers)
    62. Marshal.ReleaseComObject(deviceEnumerator)
    63. Return volumeControl
    64. End Function
    65. End Class
    66. <ComImport>
    67. <Guid("BCDE0395-E52F-467C-8E3D-C4579291692E")>
    68. Friend Class MMDeviceEnumerator
    69. End Class
    70. Friend Enum EDataFlow
    71. eRender
    72. eCapture
    73. eAll
    74. EDataFlow_enum_count
    75. End Enum
    76. Friend Enum ERole
    77. eConsole
    78. eMultimedia
    79. eCommunications
    80. ERole_enum_count
    81. End Enum
    82. <Guid("A95664D2-9614-4F35-A746-DE8DB63617E6"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    83. Friend Interface IMMDeviceEnumerator
    84. Function NotImpl1() As Integer
    85. <PreserveSig>
    86. Function GetDefaultAudioEndpoint(ByVal dataFlow As EDataFlow, ByVal role As ERole, <Out> ByRef ppDevice As IMMDevice) As Integer
    87. End Interface
    88. <Guid("D666063F-1587-4E43-81F1-B948E807363F"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    89. Friend Interface IMMDevice
    90. <PreserveSig>
    91. Function Activate(ByRef iid As Guid, ByVal dwClsCtx As Integer, ByVal pActivationParams As IntPtr, <Out>
    92. <MarshalAs(UnmanagedType.IUnknown)> ByRef ppInterface As Object) As Integer
    93. End Interface
    94. <Guid("77AA99A0-1BD6-484F-8BC7-2C654C9A9B6F"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    95. Friend Interface IAudioSessionManager2
    96. Function NotImpl1() As Integer
    97. Function NotImpl2() As Integer
    98. <PreserveSig>
    99. Function GetSessionEnumerator(<Out> ByRef SessionEnum As IAudioSessionEnumerator) As Integer
    100. End Interface
    101. <Guid("E2F5BB11-0570-40CA-ACDD-3AA01277DEE8"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    102. Friend Interface IAudioSessionEnumerator
    103. <PreserveSig>
    104. Function GetCount(<Out> ByRef SessionCount As Integer) As Integer
    105. <PreserveSig>
    106. Function GetSession(ByVal SessionCount As Integer, <Out> ByRef Session As IAudioSessionControl2) As Integer
    107. End Interface
    108. <Guid("87CE5498-68D6-44E5-9215-6DA47EF883D8"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    109. Friend Interface ISimpleAudioVolume
    110. <PreserveSig>
    111. Function SetMasterVolume(ByVal fLevel As Single, ByRef EventContext As Guid) As Integer
    112. <PreserveSig>
    113. Function GetMasterVolume(<Out> ByRef pfLevel As Single) As Integer
    114. <PreserveSig>
    115. Function SetMute(ByVal bMute As Boolean, ByRef EventContext As Guid) As Integer
    116. <PreserveSig>
    117. Function GetMute(<Out> ByRef pbMute As Boolean) As Integer
    118. End Interface
    119. <Guid("bfb7ff88-7239-4fc9-8fa2-07c950be9c6d"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    120. Friend Interface IAudioSessionControl2
    121. <PreserveSig>
    122. Function NotImpl0() As Integer
    123. <PreserveSig>
    124. Function GetDisplayName(<Out>
    125. <MarshalAs(UnmanagedType.LPWStr)> ByRef pRetVal As String) As Integer
    126. <PreserveSig>
    127. Function SetDisplayName(
    128. <MarshalAs(UnmanagedType.LPWStr)> ByVal Value As String,
    129. <MarshalAs(UnmanagedType.LPStruct)> ByVal EventContext As Guid) As Integer
    130. <PreserveSig>
    131. Function GetIconPath(<Out>
    132. <MarshalAs(UnmanagedType.LPWStr)> ByRef pRetVal As String) As Integer
    133. <PreserveSig>
    134. Function SetIconPath(
    135. <MarshalAs(UnmanagedType.LPWStr)> ByVal Value As String,
    136. <MarshalAs(UnmanagedType.LPStruct)> ByVal EventContext As Guid) As Integer
    137. <PreserveSig>
    138. Function GetGroupingParam(<Out> ByRef pRetVal As Guid) As Integer
    139. <PreserveSig>
    140. Function SetGroupingParam(
    141. <MarshalAs(UnmanagedType.LPStruct)> ByVal Override As Guid,
    142. <MarshalAs(UnmanagedType.LPStruct)> ByVal EventContext As Guid) As Integer
    143. <PreserveSig>
    144. Function NotImpl1() As Integer
    145. <PreserveSig>
    146. Function NotImpl2() As Integer
    147. <PreserveSig>
    148. Function GetSessionIdentifier(<Out>
    149. <MarshalAs(UnmanagedType.LPWStr)> ByRef pRetVal As String) As Integer
    150. <PreserveSig>
    151. Function GetSessionInstanceIdentifier(<Out>
    152. <MarshalAs(UnmanagedType.LPWStr)> ByRef pRetVal As String) As Integer
    153. <PreserveSig>
    154. Function GetProcessId(<Out> ByRef pRetVal As Integer) As Integer
    155. <PreserveSig>
    156. Function IsSystemSoundsSession() As Integer
    157. <PreserveSig>
    158. Function SetDuckingPreference(ByVal optOut As Boolean) As Integer
    159. End Interface


    Dort habe ich auch die Funktion "GetApplicationVolume". Nun habe ich schon einiges ausprobiert aber es nicht hinbekommen.
    Hätte gerne, dass beim öffnen der App, herrausgefunden wird, welche Lautstärke Discord hat.

    Vielen Dank im Voraus für jede Hilfe :)

    CodeTags korrigiert ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich habe das Ganze mal angeguckt und

    Quellcode

    1. ​this.tbVolume.Value = (int)AudioManager.GetMasterVolume();

    in einen C# to Vb.net Converter geworden, umgeschrieben und das rausbekommen:

    Quellcode

    1. VolumeProgramm1.Value = CInt(VolumeMixer.GetApplicationVolume()


    Habe ebenfalls

    Quellcode

    1. VolumeProgramm1.Value = CInt(VolumeMixer.GetApplicationVolume("discord")

    Ausprobiert, ist nur leider immer noch nicht funktional.

    TomTheCoder15 schrieb:

    Ich habe das Ganze mal angeguckt und

    Quellcode

    1. ​this.tbVolume.Value = (int)AudioManager.GetMasterVolume();

    in einen C# to Vb.net Converter geworden, umgeschrieben und das rausbekommen:

    Quellcode

    1. VolumeProgramm1.Value = CInt(VolumeMixer.GetApplicationVolume()
    Erstaunlich!
    Aus einem AudioManager wird offsichtlich ein VolumeMixer 8|

    Woher hast Du denn diese Syntax?

    TomTheCoder15 schrieb:

    VB.NET-Quellcode

    1. VolumeMixer.GetApplicationVolume("discord")
    Das kommt bei Dir und bei mir nur mit dem Parameter int pid vor.
    Was genau ist "discord"?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    TomTheCoder15 schrieb:

    VB.NET-Quellcode

    1. SetApplicationSound(...)
    Was hat das mit Deiner Klasse oben zu tun?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Quellcode

    1. ​Private Sub SetApplicationSound(processName As String, volume As Single)
    2. Dim p() As Process = Process.GetProcessesByName(processName)
    3. If p.Count > 0 Then
    4. For Each proc In p
    5. Dim pID As Integer = proc.Id
    6. If pID = 0 Then Return
    7. VolumeMixer.SetApplicationVolume(pID, volume)
    8. Next
    9. End If
    10. End Sub

    @TomTheCoder15 Oder so:

    VB.NET-Quellcode

    1. Private Sub SetApplicationSound(processName As String, volume As Single)
    2. Dim p() As Process = Process.GetProcessesByName(processName)
    3. If p.Count > 0 Then
    4. For Each proc In p
    5. Dim pID As Integer = proc.Id
    6. If pID <> 0 Then
    7. VolumeMixer.SetApplicationVolume(pID, volume)
    8. Return
    9. End If
    10. Next
    11. End If
    12. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @TomTheCoder15 Ich nahm an, Dein Post hat was mit Deinem Problem zu tun, deswegen war ich so frei, ihn zu korrigieren.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    TomTheCoder15 schrieb:

    habe jedoch mit dem Code keine Probleme
    Dann hast Du den Unterschied nicht verstanden.
    ====
    Ich gab Dir in Post #2 einen Link zu einem funktionierenden Projekt.
    Was ist damit?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das Projekt habe ich mir runtergeladen, angeguckt und in einen C# to VB Converter geschmissen.
    Viel anfangen, konnte ich damit jedoch nicht.

    Um es nochmal klar zu machen.
    Ich kann mit dem Programm die Lautstärke ändern mit:

    Quellcode

    1. SetApplicationSound("discord", 50.0F)


    Ich möchte nur jetzt, wenn ich meine Application öffne, dass es von dem Programm die Lautstärke übernimmt.
    Das habe ich gedacht, funktioniert mit

    Quellcode

    1. GetApplicationVolume​
    und habe es so probiert:

    Quellcode

    1. ​VolumeProgramm1.Value = CInt(VolumeMixer.GetApplicationVolume("discord"))


    Hier noch mal die gesamte Klasse auf der zugegriffen wird:
    Spoiler anzeigen
    ​

    Quellcode

    1. ​Imports System.Runtime.InteropServices
    2. Imports System.IO
    3. Imports System
    5. Public Class VolumeMixer
    7. Public Shared Function GetApplicationVolume(ByVal pid As Integer) As Single?
    8. Dim volume As ISimpleAudioVolume = GetVolumeObject(pid)
    9. If volume Is Nothing Then Return Nothing
    10. Dim level As Single
    11. volume.GetMasterVolume(level)
    12. Marshal.ReleaseComObject(volume)
    13. Return level * 100
    14. End Function
    15. Public Shared Function GetApplicationMute(ByVal pid As Integer) As Boolean?
    16. Dim volume As ISimpleAudioVolume = GetVolumeObject(pid)
    17. If volume Is Nothing Then Return Nothing
    18. Dim mute As Boolean
    19. volume.GetMute(mute)
    20. Marshal.ReleaseComObject(volume)
    21. Return mute
    22. End Function
    23. Public Shared Sub SetApplicationVolume(ByVal pid As Integer, ByVal level As Single)
    24. Dim volume As ISimpleAudioVolume = GetVolumeObject(pid)
    25. If volume Is Nothing Then Return
    26. Dim guid As Guid = Guid.Empty
    27. volume.SetMasterVolume(level / 100, guid)
    28. Marshal.ReleaseComObject(volume)
    29. End Sub
    30. Public Shared Sub SetApplicationMute(ByVal pid As Integer, ByVal mute As Boolean)
    31. Dim volume As ISimpleAudioVolume = GetVolumeObject(pid)
    32. If volume Is Nothing Then Return
    33. Dim guid As Guid = Guid.Empty
    34. volume.SetMute(mute, guid)
    35. Marshal.ReleaseComObject(volume)
    36. End Sub
    37. Private Shared Function GetVolumeObject(ByVal pid As Integer) As ISimpleAudioVolume
    38. Dim deviceEnumerator As IMMDeviceEnumerator = CType((New MMDeviceEnumerator()), IMMDeviceEnumerator)
    39. Dim speakers As IMMDevice
    40. deviceEnumerator.GetDefaultAudioEndpoint(EDataFlow.eRender, ERole.eMultimedia, speakers)
    41. Dim IID_IAudioSessionManager2 As Guid = GetType(IAudioSessionManager2).GUID
    42. Dim o As Object
    43. speakers.Activate(IID_IAudioSessionManager2, 0, IntPtr.Zero, o)
    44. Dim mgr As IAudioSessionManager2 = CType(o, IAudioSessionManager2)
    45. Dim sessionEnumerator As IAudioSessionEnumerator
    46. mgr.GetSessionEnumerator(sessionEnumerator)
    47. Dim count As Integer
    48. sessionEnumerator.GetCount(count)
    49. Dim volumeControl As ISimpleAudioVolume = Nothing
    50. For i As Integer = 0 To count - 1
    51. Dim ctl As IAudioSessionControl2
    52. sessionEnumerator.GetSession(i, ctl)
    53. Dim cpid As Integer
    54. ctl.GetProcessId(cpid)
    55. If cpid = pid Then
    56. volumeControl = TryCast(ctl, ISimpleAudioVolume)
    57. Exit For
    58. End If
    59. Marshal.ReleaseComObject(ctl)
    60. Next
    61. Marshal.ReleaseComObject(sessionEnumerator)
    62. Marshal.ReleaseComObject(mgr)
    63. Marshal.ReleaseComObject(speakers)
    64. Marshal.ReleaseComObject(deviceEnumerator)
    65. Return volumeControl
    66. End Function
    67. End Class
    68. <ComImport>
    69. <Guid("BCDE0395-E52F-467C-8E3D-C4579291692E")>
    70. Friend Class MMDeviceEnumerator
    71. End Class
    72. Friend Enum EDataFlow
    73. eRender
    74. eCapture
    75. eAll
    76. EDataFlow_enum_count
    77. End Enum
    78. Friend Enum ERole
    79. eConsole
    80. eMultimedia
    81. eCommunications
    82. ERole_enum_count
    83. End Enum
    84. <Guid("A95664D2-9614-4F35-A746-DE8DB63617E6"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    85. Friend Interface IMMDeviceEnumerator
    86. Function NotImpl1() As Integer
    87. <PreserveSig>
    88. Function GetDefaultAudioEndpoint(ByVal dataFlow As EDataFlow, ByVal role As ERole, <Out> ByRef ppDevice As IMMDevice) As Integer
    89. End Interface
    90. <Guid("D666063F-1587-4E43-81F1-B948E807363F"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    91. Friend Interface IMMDevice
    92. <PreserveSig>
    93. Function Activate(ByRef iid As Guid, ByVal dwClsCtx As Integer, ByVal pActivationParams As IntPtr, <Out>
    94. <MarshalAs(UnmanagedType.IUnknown)> ByRef ppInterface As Object) As Integer
    95. End Interface
    96. <Guid("77AA99A0-1BD6-484F-8BC7-2C654C9A9B6F"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    97. Friend Interface IAudioSessionManager2
    98. Function NotImpl1() As Integer
    99. Function NotImpl2() As Integer
    100. <PreserveSig>
    101. Function GetSessionEnumerator(<Out> ByRef SessionEnum As IAudioSessionEnumerator) As Integer
    102. End Interface
    103. <Guid("E2F5BB11-0570-40CA-ACDD-3AA01277DEE8"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    104. Friend Interface IAudioSessionEnumerator
    105. <PreserveSig>
    106. Function GetCount(<Out> ByRef SessionCount As Integer) As Integer
    107. <PreserveSig>
    108. Function GetSession(ByVal SessionCount As Integer, <Out> ByRef Session As IAudioSessionControl2) As Integer
    109. End Interface
    110. <Guid("87CE5498-68D6-44E5-9215-6DA47EF883D8"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    111. Friend Interface ISimpleAudioVolume
    112. <PreserveSig>
    113. Function SetMasterVolume(ByVal fLevel As Single, ByRef EventContext As Guid) As Integer
    114. <PreserveSig>
    115. Function GetMasterVolume(<Out> ByRef pfLevel As Single) As Integer
    116. <PreserveSig>
    117. Function SetMute(ByVal bMute As Boolean, ByRef EventContext As Guid) As Integer
    118. <PreserveSig>
    119. Function GetMute(<Out> ByRef pbMute As Boolean) As Integer
    120. End Interface
    121. <Guid("bfb7ff88-7239-4fc9-8fa2-07c950be9c6d"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    122. Friend Interface IAudioSessionControl2
    123. <PreserveSig>
    124. Function NotImpl0() As Integer
    125. <PreserveSig>
    126. Function GetDisplayName(<Out>
    127. <MarshalAs(UnmanagedType.LPWStr)> ByRef pRetVal As String) As Integer
    128. <PreserveSig>
    129. Function SetDisplayName(
    130. <MarshalAs(UnmanagedType.LPWStr)> ByVal Value As String,
    131. <MarshalAs(UnmanagedType.LPStruct)> ByVal EventContext As Guid) As Integer
    132. <PreserveSig>
    133. Function GetIconPath(<Out>
    134. <MarshalAs(UnmanagedType.LPWStr)> ByRef pRetVal As String) As Integer
    135. <PreserveSig>
    136. Function SetIconPath(
    137. <MarshalAs(UnmanagedType.LPWStr)> ByVal Value As String,
    138. <MarshalAs(UnmanagedType.LPStruct)> ByVal EventContext As Guid) As Integer
    139. <PreserveSig>
    140. Function GetGroupingParam(<Out> ByRef pRetVal As Guid) As Integer
    141. <PreserveSig>
    142. Function SetGroupingParam(
    143. <MarshalAs(UnmanagedType.LPStruct)> ByVal Override As Guid,
    144. <MarshalAs(UnmanagedType.LPStruct)> ByVal EventContext As Guid) As Integer
    145. <PreserveSig>
    146. Function NotImpl1() As Integer
    147. <PreserveSig>
    148. Function NotImpl2() As Integer
    149. <PreserveSig>
    150. Function GetSessionIdentifier(<Out>
    151. <MarshalAs(UnmanagedType.LPWStr)> ByRef pRetVal As String) As Integer
    152. <PreserveSig>
    153. Function GetSessionInstanceIdentifier(<Out>
    154. <MarshalAs(UnmanagedType.LPWStr)> ByRef pRetVal As String) As Integer
    155. <PreserveSig>
    156. Function GetProcessId(<Out> ByRef pRetVal As Integer) As Integer
    157. <PreserveSig>
    158. Function IsSystemSoundsSession() As Integer
    159. <PreserveSig>
    160. Function SetDuckingPreference(ByVal optOut As Boolean) As Integer
    161. End Interface


    Da der Wert aber ja ein Single ist (z.B. 50.0F) muss ich es ja als Int rausbekommen, damit ich dies als Value für meine Trackbar benutzten kann. Richtig?

    Um mit der Trackbar die Lautstärke zu ändern, musste ich es ja auch zu einem Single Wert machen. Das ging aber ja einfach so:

    Quellcode

    1. ​Public VolumeDiscord As Single = 50.0F
    2. VolumeDiscord = VolumeProgramm1.Value


    Ich kann mir nicht vorstellen, dass es viel komplizierter ist.

Facebook
Telefonspende