如何读取电脑上的视频设备然后显示到combobox上？

Question

如题。希望哪位大大能帮我解决下 或者给个思路

Answer 1

那是DirectShow的东东，在VB中通过引用类型库quartz.dll（即ActiveMovie control type library）。本来这个网站：http://www.shrinkwrapvb.com 上有个现成的例子 dx_video_capture，现在这个网站被转让。你在网上找一找dx_video_capture。

Answer 2

SetupDiGetClassDevs
SetupDiEnumDeviceInfo
SetupDiGetDeviceRegistryProperty
SetupDiDestroyDeviceInfoList

Answer 3

SetupDiGetClassDevs
SetupDiEnumDeviceInfo
SetupDiGetDeviceRegistryProperty
SetupDiDestroyDeviceInfoList

Answer 4

其实我这有一段代码
Private Sub EnumChildren(ByRef itms As Items, ByRef nde As Node)
    Dim itm As Item
    Dim newNode As Node
    
    For Each itm In itms
        Set newNode = TreeView1.Nodes.Add(nde.Index, tvwChild, , itm.Properties("Item Name").Value)
        Set newNode.Tag = itm
        
        If itm.Items.Count > 0 Then EnumChildren itm.Items, newNode
    Next
End Sub
Private Sub BuildTree()    Dim di As DeviceInfo
    Dim dev As Device
    Dim nde As Node
    
    ListView1.ListItems.Clear
    TreeView1.Nodes.Clear
        
    For Each di In wia.DeviceInfos
        Set dev = di.Connect
        If Not dev Is Nothing Then
            Set nde = TreeView1.Nodes.Add(, , , di.Properties("Name").Value)
            Set nde.Tag = dev
            
            EnumChildren dev.Items, nde
        End If
    Next
        
End Sub只不过用的控件是TreeView1 现在想用combobox来做 不知道怎么改

Answer 5

其实我这有一段代码
Private Sub EnumChildren(ByRef itms As Items, ByRef nde As Node)
    Dim itm As Item
    Dim newNode As Node
    
    For Each itm In itms
        Set newNode = TreeView1.Nodes.Add(nde.Index, tvwChild, , itm.Properties("Item Name").Value)
        Set newNode.Tag = itm
        
        If itm.Items.Count > 0 Then EnumChildren itm.Items, newNode
    Next
End Sub
Private Sub BuildTree()    Dim di As DeviceInfo
    Dim dev As Device
    Dim nde As Node
    
    ListView1.ListItems.Clear
    TreeView1.Nodes.Clear
        
    For Each di In wia.DeviceInfos
        Set dev = di.Connect
        If Not dev Is Nothing Then
            Set nde = TreeView1.Nodes.Add(, , , di.Properties("Name").Value)
            Set nde.Tag = dev
            
            EnumChildren dev.Items, nde
        End If
    Next
        
End Sub只不过用的控件是TreeView1 现在想用combobox来做 不知道怎么改