Mit VBnet ermitteln der Soundeinstellungen (Win11)

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von dherr.

    Das ist OK. Ich sende nur Quellcode.

    Gruß - Dietrich



    Hallo Franky,
    anbei sende ich die Variante zu deinem Code wie ich sie zur Weiterverwendung in meinen Programmen benötige.
    Ich habe zunächst zur Demonstration dieser Variante eine Form im Einsatz frmAudioDevices mit dem Code gezeigt in Abschnitt 1.
    Auf der Form habe ich eine RichtextBox platziert txtOutPut mit DockStyle=Fill.
    Mit der Funktion DeviceEnumeration wird zweierlei erzeugt:
    Das Feld res() wird Kurzinformationen zu jedem Audiogerät im System enthalten, zur Weiterverwendung bspw. in Anzeigen.
    Der With-Block gibt die speziellen von mir benötigten Geräteeigenschaften al sRTF-Text aus.

    Code-Abschnitt 2 enthält im Grund den von dir mitgeteilten Code mit ein paar Modifikationen von mir. Zunächst habe ich den Code in einem Modul verpackt. Entscheidend ist, die Ermittlung der Identnummern von MMDevice und MMDevice2.
    Die Zeile equal = (DevIDEP = DevId) stellt die Gleichheit der IDs fest. Die Stringvariable store dient zur Erzeugung des Felds resultAudio, das zu jedem Gerät Infos zu Activity und Gerätename enthalten wird.
    In meinem Ablauf des Codes werden von den Properties ausschließlich nur die Gerätenamen ausgegeben mithilfe der Abfrage
    If PropKey.fmtid.ToString & "," & PropKey.pid.ToString = propDeviceName Then
    Die Property für den Devicenamen ist mit Kommentar gekennzeichnet.

    Im Abschnitt 3 übergebe ich noch die von mir erstellte Hilfsfunktion zum Formatieren von Text in ein vordefiniertes RTF-Format (siehe Funktion setRTFformat mit 7 vordefinierten Formaten).

    Grüße - Dietrich



    Hallo Franky,
    anbei sende ich die Variante zu deinem Code wie ich sie zur Weiterverwendung in meinen Programmen benötige.
    Ich habe zunächst zur Demonstration dieser Variante eine Form im Einsatz frmAudioDevices mit dem Code gezeigt in Abschnitt 1.
    Auf der Form habe ich eine RichtextBox platziert txtOutPut mit DockStyle=Fill.
    Mit der Funktion DeviceEnumeration wird zweierlei erzeugt:
    Das Feld res() wird Kurzinformationen zu jedem Audiogerät im System enthalten, zur Weiterverwendung bspw. in Anzeigen.
    Der With-Block gibt die speziellen von mir benötigten Geräteeigenschaften al sRTF-Text aus.

    Code-Abschnitt 2 enthält im Grund den von dir mitgeteilten Code mit ein paar Modifikationen von mir. Zunächst habe ich den Code in einem Modul verpackt. Entscheidend ist, die Ermittlung der Identnummern von MMDevice und MMDevice2.
    Die Zeile equal = (DevIDEP = DevId) stellt die Gleichheit der IDs fest. Die Stringvariable store dient zur Erzeugung des Felds resultAudio, das zu jedem Gerät Infos zu Activity und Gerätename enthalten wird.
    In meinem Ablauf des Codes werden von den Properties ausschließlich nur die Gerätenamen ausgegeben mithilfe der Abfrage
    If PropKey.fmtid.ToString & "," & PropKey.pid.ToString = propDeviceName Then
    Die Property für den Devicenamen ist mit Kommentar gekennzeichnet.

    Im Abschnitt 3 übergebe ich noch die von mir erstellte Hilfsfunktion zum Formatieren von Text in ein vordefiniertes RTF-Format (siehe Funktion setRTFformat mit 7 vordefinierten Formaten).

    Grüße - Dietrich



    Hallo Franky,
    anbei sende ich die Variante zu deinem Code wie ich sie zur Weiterverwendung in meinen Programmen benötige.
    Ich habe zunächst zur Demonstration dieser Variante eine Form im Einsatz frmAudioDevices mit dem Code gezeigt in Abschnitt 1.
    Auf der Form habe ich eine RichtextBox platziert txtOutPut mit DockStyle=Fill.
    Mit der Funktion DeviceEnumeration wird zweierlei erzeugt:
    Das Feld res() wird Kurzinformationen zu jedem Audiogerät im System enthalten, zur Weiterverwendung bspw. in Anzeigen.
    Der With-Block gibt die speziellen von mir benötigten Geräteeigenschaften al sRTF-Text aus.

    Code-Abschnitt 2 enthält im Grund den von dir mitgeteilten Code mit ein paar Modifikationen von mir. Zunächst habe ich den Code in einem Modul verpackt. Entscheidend ist, die Ermittlung der Identnummern von MMDevice und MMDevice2.
    Die Zeile equal = (DevIDEP = DevId) stellt die Gleichheit der IDs fest. Die Stringvariable store dient zur Erzeugung des Felds resultAudio, das zu jedem Gerät Infos zu Activity und Gerätename enthalten wird.
    In meinem Ablauf des Codes werden von den Properties ausschließlich nur die Gerätenamen ausgegeben mithilfe der Abfrage
    If PropKey.fmtid.ToString & "," & PropKey.pid.ToString = propDeviceName Then
    Die Property für den Devicenamen ist mit Kommentar gekennzeichnet.

    Im Abschnitt 3 übergebe ich noch die von mir erstellte Hilfsfunktion zum Formatieren von Text in ein vordefiniertes RTF-Format (siehe Funktion setRTFformat mit 7 vordefinierten Formaten).

    Grüße - Dietrich



    Hi Franky, kannst du was anfangen damit? Gruß - Dietrich


    Beiträge (nochmal) zusammengefügt. Für nachträgliche Informationen bitte die „Bearbeiten“-Funktion verwenden. ~Thunderbolt

    Dateien

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Thunderbolt“ ()