GUICtrlCreateCombo地一项为空[已解决]

yikang8888

如下代码运行后Combo的第一项为空的,请高手帮忙解决一下,谢谢了
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>

Local $test, $iNICIndex
$test = _UpCmpLanNameIDInfo()
        ; 创建“网卡选择”窗口
        Local $hNICWnd, $hOKButton, $hIfTable
        $hNICWnd = GUICreate("测试" & " - 网卡选择", 404, 118)
        GUICtrlCreateLabel("检测到本机安装有多个网络适配器，请选择用于更新的网卡。", 16, 16, 340, 24)
        $hIfTable = GUICtrlCreateCombo("", 16, 48, 372, 12 * $test[0][0], BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
        For $i = 2 To $test[0][0]
                GUICtrlSetData(-1,  $test[$i][1])
        Next
        $hOKButton = GUICtrlCreateButton("确定(&O)", 165, 80, 76, 22, $BS_DEFPUSHBUTTON)
        ; 窗口事件
        GUISetState(@SW_SHOW)
        While 1
                Switch GUIGetMsg()
                        Case $hOKButton, $GUI_EVENT_CLOSE
                                $iNICIndex = GUICtrlRead($hIfTable)
                                MsgBox(0, 0, $iNICIndex)
                                ExitLoop
                EndSwitch
        WEnd




Func _UpCmpLanNameIDInfo()
        ;======================================================
        ;
        ; 函数名称:        _UpCmpLanNameIDInfo()
        ; 详细信息:        获取系统所有网卡名称和ID信息
        ; 返回值说明:
        ; 以二维数组方式返回.例如 $info=_UpCmpLanNameIDInfo()
        ; $info[1][0] 第一块网卡的名称
        ; $info[2][0] 第二块网卡的名称
        ; $info[1][1] 第一块网卡的ID
        ; $info[2][1] 第二块网卡的ID
        ; 其他网卡信息依次类推。。。
        ; 作者:      viplight (viplight@qq.com)
        ; QQ: 530417369
        ;======================================================
        Local $colItems = ""
        Local $strComputer = "localhost"
        Local $objWMIService
        Local $wbemFlagReturnImmediately = 0x10
        Local $wbemFlagForwardOnly = 0x20
        Local $UpCmprAdapterID = 0
        Local $UpCmprAdapterHostName = ""
        Local $UpCmpLanNameID[10][2]
        $UpCmpLanNameID[0][0] = 0
        $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
        $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_TSNetworkAdapterListSetting", "WQL", _
                        $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

        If IsObj($colItems) Then
                For $objItem In $colItems
                        $UpCmpLan = $objItem.Description
                        $UpCmpID = $objItem.NetworkAdapterID
                        $UpCmprAdapterID += 1
                        $UpCmpLanNameID[0][0] = $UpCmprAdapterID
                        $UpCmpLanNameID[$UpCmprAdapterID][0] = $UpCmpLan
                        $UpCmpLanNameID[$UpCmprAdapterID][1] = $UpCmpID
                Next
        EndIf
        Return $UpCmpLanNameID
EndFunc   ;==>_UpCmpLanNameIDInfo

the886

帮顶.........................

yhxhappy

你的代码在我的笔记本上一个网上都找不到了，我只好做了一个数组演示

1. 
   
2. #include <GUIConstantsEx.au3>
   
3. #include <ButtonConstants.au3>
   
4. #include <ComboConstants.au3>
   
5. 
   
6. Local $test, $iNICIndex
   
7. ;Local $test = _UpCmpLanNameIDInfo()
   
8. Local $test[5][2]
   
9. $test[0][0] = 4
   
10. $test[2][1] = "网卡1"
    
11. $test[3][1] = "网卡2"
    
12. $test[4][1] = "网卡3"
    
13.         ; 创建“网卡选择”窗口
    
14.         Local $hNICWnd, $hOKButton, $hIfTable, $txt = ""
    
15.         $hNICWnd = GUICreate("测试" & " - 网卡选择", 404, 118)
    
16.         GUICtrlCreateLabel("检测到本机安装有多个网络适配器，请选择用于更新的网卡。", 16, 16, 340, 24)
    
17.         $hIfTable = GUICtrlCreateCombo("", 16, 48, 372, 12, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
    
18. 
    
19.         For $i = 2 To $test[0][0]
    
20.                         $txt &= $test[$i][1] & "|"               
    
21.         Next
    
22.                 If $txt <> "" then GUICtrlSetData($hIfTable, $txt, $test[$test[0][0]][1])        ;此处的 $test[$test[0][0]][1] 表示默认选中最后一项，如果想默认选中第一项，则使用 $test[2][1]
    
23.         $hOKButton = GUICtrlCreateButton("确定(&O)", 165, 80, 76, 22, $BS_DEFPUSHBUTTON)
    
24.         ; 窗口事件
    
25.         GUISetState(@SW_SHOW)
    
26.         While 1
    
27.                 Switch GUIGetMsg()
    
28.                         Case $hOKButton, $GUI_EVENT_CLOSE
    
29.                                 $iNICIndex = GUICtrlRead($hIfTable)
    
30.                                 MsgBox(0, 0, $iNICIndex)
    
31.                                 ExitLoop
    
32.                 EndSwitch
    
33.         WEnd
    
34. 
    
35. 
    
36. 
    
37. 
    
38. Func _UpCmpLanNameIDInfo()
    
39.         ;======================================================
    
40.         ;
    
41.         ; 函数名称:        _UpCmpLanNameIDInfo()
    
42.         ; 详细信息:        获取系统所有网卡名称和ID信息
    
43.         ; 返回值说明:
    
44.         ; 以二维数组方式返回.例如 $info=_UpCmpLanNameIDInfo()
    
45.         ; $info[1][0] 第一块网卡的名称
    
46.         ; $info[2][0] 第二块网卡的名称
    
47.         ; $info[1][1] 第一块网卡的ID
    
48.         ; $info[2][1] 第二块网卡的ID
    
49.         ; 其他网卡信息依次类推。。。
    
50.         ; 作者:      viplight (viplight@qq.com)
    
51.         ; QQ: 530417369
    
52.         ;======================================================
    
53.         Local $colItems = ""
    
54.         Local $strComputer = "localhost"
    
55.         Local $objWMIService
    
56.         Local $wbemFlagReturnImmediately = 0x10
    
57.         Local $wbemFlagForwardOnly = 0x20
    
58.         Local $UpCmprAdapterID = 0
    
59.         Local $UpCmprAdapterHostName = ""
    
60.         Local $UpCmpLanNameID[10][2]
    
61.         $UpCmpLanNameID[0][0] = 0
    
62.         $objWMIService = ObjGet("winmgmts:\" & $strComputer & "\root\CIMV2")
    
63.         $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_TSNetworkAdapterListSetting", "WQL", _
    
64.                         $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    
65. 
    
66.         If IsObj($colItems) Then
    
67.                 For $objItem In $colItems
    
68.                         $UpCmpLan = $objItem.Description
    
69.                         $UpCmpID = $objItem.NetworkAdapterID
    
70.                         $UpCmprAdapterID += 1
    
71.                         $UpCmpLanNameID[0][0] = $UpCmprAdapterID
    
72.                         $UpCmpLanNameID[$UpCmprAdapterID][0] = $UpCmpLan
    
73.                         $UpCmpLanNameID[$UpCmprAdapterID][1] = $UpCmpID
    
74.                 Next
    
75.         EndIf
    
76.         Return $UpCmpLanNameID
    
77. EndFunc   ;==>_UpCmpLanNameIDInfo
    

复制代码

yikang8888

谢谢,

yikang8888

感谢大家的帮助

menfan1

呵呵学习一下。。