jcaixuexi 发表于 2017-1-16 13:32:48

关于listview里面的项目选中之后,怎样实现点击安装软件操作设计思路;

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiTab.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <WinAPISys.au3>
#include <GuiEdit.au3>
#include <array.au3>
#include <WinAPIFiles.au3>




#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$Tab1 = GUICtrlCreateTab(8, 8, 593, 417)
$TabSheet1 = GUICtrlCreateTabItem("基础功能")
$TabSheet2 = GUICtrlCreateTabItem("软件安装")
$Group1 = GUICtrlCreateGroup("", 24, 56, 75, 337)
;$Button9 = GUICtrlCreateButton("分类", 24, 32, 75, 25)
$Button1 = GUICtrlCreateButton("设计软件", 24, 56, 75, 25)
$Button2 = GUICtrlCreateButton("办公软件", 24, 80, 75, 25)
$Button3 = GUICtrlCreateButton("浏览器设置", 24, 104, 75, 25)
$Button4 = GUICtrlCreateButton("文印打印机", 24, 128, 75, 25)
$Button5 = GUICtrlCreateButton("邮箱配置", 24, 152, 75, 25)
$Button6 = GUICtrlCreateButton("系统优化", 24, 176, 75, 25)
$Button7= GUICtrlCreateButton("其他", 24, 200, 75, 25)
$Button8 = GUICtrlCreateButton("安装", 300, 396, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ListView1=GUICtrlCreateListView("软件名|软件架构|软件路径|备注", 112, 56, 441, 337, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER, $LVS_REPORT))
_GUICtrlListView_SetExtendedListViewStyle($ListView1, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_CHECKBOXES, $LVS_EX_FULLROWSELECT))
Opt('GUIDataSeparatorChar', @Lf)
GUICtrlSetBkColor(-1, $CLR_MONEYGREEN)
_rj(GUICtrlRead($Button1))
$TabSheet3 = GUICtrlCreateTabItem("软件卸载")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###




While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        _rj(GUICtrlRead($Button1))
          Case $Button2
                        _rj(GUICtrlRead($Button2))

   EndSwitch
WEnd


Func _rj($bl1="")
_GUICtrlListView_DeleteAllItems($ListView1)
$run1 = IniReadSection("is.ini", "分类")
For $i = 1 To $run1
        If $run1[$i] = $bl1 then
        $run2 = IniReadSection("is.ini", $run1[$i])
          For $ii = 1 To $run2
        $run3 = IniReadSection("is.ini", $run2[$ii])
             For $iii =1 To $run3 Step +2
                                        GUICtrlCreateListViewItem( _
                                                StringFormat('%s\n%s\n%s', _
                                                $run2[$ii], _
                                                $run3[$iii], _
                                                $run3[$iii+1]), _
                                                $ListView1)

             Next
          Next

    EndIf
Next
EndFuncini文件为:
[分类]
1=设计软件
2=办公软件
[设计软件]
软件名称=AutoCAD_2010
软件名称=PTC_Creo_3.0
软件名称=Altium Designer Summer 09



软件架构=64bit
软件路径=\\10.33.162.55

软件架构=64bit
软件路径=10.33.162.55


软件架构=32/64bit
软件路径=10.33.162.55

[办公软件]
软件名称=office2010
软件名称=visio2010(32)
软件名称=project2010(32)


软件架构=32/64bit
软件路径=10.33.162.55


软件架构=32bit
软件路径=10.33.162.55


软件架构=32bit
软件路径=10.33.162.55

chzj589 发表于 2017-1-16 14:00:27

回复 1# jcaixuexi
发错栏目???

jcaixuexi 发表于 2017-1-16 14:02:54

回复 2# chzj589


    哦。怎样撤回。。。。。

zpmc123 发表于 2017-1-26 00:09:41

发错类目要扣分吗 下次要注意了
页: [1]
查看完整版本: 关于listview里面的项目选中之后,怎样实现点击安装软件操作设计思路;