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
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
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Thunderbolt“ ()