292, 238) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ListBox1}) Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(False) End Sub #End Region Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim SoundDeviceQuery As New SelectQuery("Win32_SoundDevice") Dim SoundDeviceSearch As New ManagementObjectSearcher(SoundDeviceQuery) Dim SoundDeviceInfo As ManagementObject For Each SoundDeviceInfo In SoundDeviceSearch.Get() ListBox1.Items.Add("Sound Device Description: " & SoundDeviceInfo("Caption").ToString()) ListBox1.Items.Add("Sound Device Status: " & SoundDeviceInfo("status").ToString()) ListBox1.Items.Add("Sound Device Manufacturer: " & SoundDeviceInfo("Manufacturer").ToString()) Next End Sub End Class

上一页  [1] [2] 

【发表评论】【打印此文】【关闭窗口】【点击数： 】