找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › ListView中checkbox的选择与执行其功能？
12下一页
返回列表 发新帖
查看: 10827|回复: 19

[GUI管理] ListView中checkbox的选择与执行其功能？

 火 [复制链接]
pdp320921
发表于 2011-3-24 22:57:12 | 显示全部楼层 |阅读模式
本帖最后由 pdp320921 于 2011-3-24 23:00 编辑

问题如题目所示~~
http://autoitx.com/forum.php?mod ... E6%B0%E5&page=2
#NoTrayIcon
#include <GuiListView.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
DIM $_REG,$_REG_DP="DisplayName",$_REG_DI="DisplayIcon",$_REG_US="UninstallString",$X=0
DIM $_REG_String="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

$GUI=GUICreate("添加删除程序",820,400,-1,-1)
$Label_01=GUICtrlCreateLabel("添加删除程序",10,20,800,40,0x01)
$Button_01=GUICtrlCreateButton("卸载",10,370,150,20)
$Button_02=GUICtrlCreateButton("退出",660,370,150,20)
$Lv=GUICtrlGetHandle(GUICtrlCreateListView("",10,50,800,315, BitOR($LVS_REPORT,$LVS_SHOWSELALWAYS),$WS_EX_CLIENTEDGE))
_GUICtrlListView_SetExtendedListViewStyle($Lv,BitOR($LVS_EX_GRIDLINES,$LVS_EX_FULLROWSELECT,$LVS_EX_SUBITEMIMAGES,$LVS_EX_CHECKBOXES))
_GUICtrlListView_AddColumn($Lv, "", 40)
_GUICtrlListView_AddColumn($Lv, "列表",400)
_GUICtrlListView_AddColumn($Lv, "路径",355)


GUICtrlSetBkColor($Label_01, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetOnEvent($Button_01,"_Uninstall")
GUICtrlSetOnEvent($Button_02,"_EXIT")
GUISetOnEvent($GUI_EVENT_CLOSE,"_EXIT")
GUISetOnEvent($GUI_EVENT_MINIMIZE,"_MINIMIZE")
GUISetOnEvent($GUI_EVENT_RESTORE,"_RESTORE")
GUISetState()


for $i=1 to 1000
$_REG=RegEnumKey($_REG_String,$i)
If @error <> 0 then ExitLoop
if RegRead($_REG_String&$_REG,$_REG_DP)="" OR StringLeft($_REG,1)="{" Then
Else
_GUICtrlListView_AddItem($Lv,$x+1,$x)
_GUICtrlListView_AddSubItem($Lv,$x,RegRead($_REG_String&$_REG,$_REG_DP),1)
_GUICtrlListView_AddSubItem($Lv,$x,RegRead($_REG_String&$_REG,$_REG_US),2)
$x=$x+1
EndIf
Next

While 1
sleep(10)
WEnd

func _EXIT()
Exit
EndFunc

func _MINIMIZE()
GUISetState(@SW_MINIMIZE)
EndFunc

func _RESTORE()
GUISetState(@SW_RESTORE)
EndFunc

func _Uninstall()
                $s = 0

        $log = _GUICtrlListView_GetItemCount($Lv)

        For $i = 0 To $log

                If _GUICtrlListView_GetItemChecked($Lv, $i) = True Then

                        $s += 1
                        ;_Guictrllistview_setitemselected($Lv, $i)
                        MsgBox(0, '', '你选择了第' & $i + 1 & '个项目')
        ;Run (_GUICtrlListView_AddSubItem($Lv,$x,RegRead($_REG_String&$_REG,$_REG_US),2))         
   EndIf

        Next

        MsgBox(0, '', '你选择了' & $s & '个项目,' & $log - $s & '个项目没有选择')
EndFunc
我想在源代码基础上添加checkbox栏，可以选择单个或同时选择多个checkbox，然后去卸载~，可是在
 If _GUICtrlListView_GetItemChecked($Lv, $i) = True Then
Run()？
这里Run()不知怎么提取Uninstall string的值了？请高手指点
Windows

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
netegg
发表于 2011-3-24 23:38:13 | 显示全部楼层
把代码格式整理好告诉你
回复

举报

pdp320921
 楼主| 发表于 2011-3-25 08:19:00 | 显示全部楼层
回复 2# netegg

大侠，我问题描述的应该还算清楚吧，代码也不是我自己写的，我只是在别人基础上添加checkbox，却不知如何当选中checkbox时，提取uninstall string而实现其功能~~
关键就在Run(),括号里的内容不知如何写~~
回复

举报

netegg
发表于 2011-3-25 15:09:42 | 显示全部楼层
$text=_GUICtrlListView_GetItemTextArray ($Lv, $i)
run($text[3])
回复

举报

pdp320921
 楼主| 发表于 2011-3-25 23:07:56 | 显示全部楼层 
....
If _GUICtrlListView_GetItemChecked($Lv, $i) = True Then

  _Guictrllistview_setitemselected($Lv, $i)    
                        $s += 1
                        
                        MsgBox(0, '', '你选择了第' & $i + 1 & '个项目')

        Run (_GUICtrlListView_AddSubItem($Lv,$x,RegRead($_REG_String&$_REG,$_REG_US),2)) 

.....
自己解决了.


_Guictrllistview_setitemselected($Lv, $i)这句让checkbox的选择跟setitemselected关联起来了，使得只要选中checkbox就会选中该列item

可是问题又来了，我如何选中几个checkbox，可以一个接着一个去自动卸载呢？GUICtrlSetOnEvent($Button_01,"_Uninstall")
这个函数调用是当选中几个checkbox几乎是同时卸载，我想一个一个的去卸载，不知如何完成？？
回复

举报

jamywang
发表于 2011-3-26 00:39:30 | 显示全部楼层
哎，AU3语言太牛X，看不懂
回复

举报

小A
发表于 2011-3-26 01:13:12 | 显示全部楼层
一个一个卸载改成 Runwait就可以了。
回复

举报

pdp320921
 楼主| 发表于 2011-3-26 16:30:13 | 显示全部楼层
回复 7# 小A


    刚想到，回去试试~~~
回复

举报

pdp320921
 楼主| 发表于 2011-3-27 19:51:59 | 显示全部楼层
试了，好像还是不行，Run()和Runwait()运行的结果一样，只能去侦测到第一个被选中的checkbox，而不会去侦测到后面被选中的checkbox所执行的代码。
还有就是如果没有勾选checkbox，只是setitemselected，却依然能够执行所选中的items的代码，这又是为何？？大侠们请帮忙赐教~~
回复

举报

pdp320921
 楼主| 发表于 2011-3-28 20:53:29 | 显示全部楼层
回复 4# netegg

谢谢前辈的指点，起初没仔细看，问题差不多解决了

谢谢~
回复

举报

netegg
发表于 2011-3-28 23:00:04 | 显示全部楼层
本帖最后由 netegg 于 2011-3-28 23:05 编辑

回复 9# pdp320921
for $i = 1 to totalnumber
if  .....getchecked() then  do
next
回复

举报

pdp320921
 楼主| 发表于 2011-3-29 11:55:49 | 显示全部楼层
回复 11# netegg 
#NoTrayIcon
#include <GuiListView.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
DIM $_REG,$_REG_DP="DisplayName",$_REG_DI="DisplayIcon",$_REG_US="UninstallString",$X=0
DIM $_REG_String="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
$GUI=GUICreate("添加删除程序",820,400,-1,-1)
$Label_01=GUICtrlCreateLabel("添加删除程序",10,20,800,40,0x01)
$Button_01=GUICtrlCreateButton("卸载",10,370,150,20)
$Button_02=GUICtrlCreateButton("退出",660,370,150,20)
$Lv=GUICtrlGetHandle(GUICtrlCreateListView("",10,50,800,315, BitOR($LVS_REPORT,$LVS_SHOWSELALWAYS),$WS_EX_CLIENTEDGE))
_GUICtrlListView_SetExtendedListViewStyle($Lv,BitOR($LVS_EX_GRIDLINES,$LVS_EX_FULLROWSELECT,$LVS_EX_SUBITEMIMAGES,$LVS_EX_CHECKBOXES))
_GUICtrlListView_AddColumn($Lv, "", 40)
_GUICtrlListView_AddColumn($Lv, "列表",400)
_GUICtrlListView_AddColumn($Lv, "路径",355)
_GUICtrlListView_AddColumn($Lv, "n", 20)
GUICtrlSetBkColor($Label_01, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetOnEvent($Button_01,"_Uninstall")
GUICtrlSetOnEvent($Button_02,"_EXIT")
GUISetOnEvent($GUI_EVENT_CLOSE,"_EXIT")
GUISetOnEvent($GUI_EVENT_MINIMIZE,"_MINIMIZE")
GUISetOnEvent($GUI_EVENT_RESTORE,"_RESTORE")
GUISetState()
GUISetState(@SW_SHOW)


for $i=1 to 1000
$_REG=RegEnumKey($_REG_String,$i)

If @error <> 0 then ExitLoop
if RegRead($_REG_String&$_REG,$_REG_DP)=""  Then
Else
_GUICtrlListView_AddItem($Lv,$x+1,$x)
_GUICtrlListView_AddSubItem($Lv,$x,RegRead($_REG_String&$_REG,$_REG_DP),1)
_GUICtrlListView_AddSubItem($Lv,$x,RegRead($_REG_String&$_REG,$_REG_US),2)
$x=$x+1
EndIf
Next
While 1
sleep(10)
WEnd


func _EXIT()
Exit
EndFunc
func _MINIMIZE()
GUISetState(@SW_MINIMIZE)
EndFunc
func _RESTORE()
GUISetState(@SW_RESTORE)
EndFunc
func _Uninstall()
        $log = _GUICtrlListView_GetItemCount($Lv)
        For $i = 0 To $log
                If _GUICtrlListView_GetItemChecked($Lv, $i) = True Then
        _GUICtrlListView_SetItemSelected($Lv,$i,True,True)
               Run(_GUICtrlListView_GetItemText($Lv,$i,2))
             ;choice()
                Else
            _GUICtrlListView_SetItemSelected($Lv,$i,False,False)
        EndIf                  
                                                  
        Next
 EndFunc
整理下代码后,我想让程序能够自动去卸载,把所有需要卸载的程序监视了一遍,写成choice()但不知如何判断
不知如何实现,用Switch...Case...EndSwitch不知怎么用?大虾们帮下忙啊~~
回复

举报

netegg
发表于 2011-3-29 12:35:05 | 显示全部楼层
本帖最后由 netegg 于 2011-3-29 12:48 编辑

你到底是想自动运行还是要操作运行，为什么总是跟select(switch)过不去.如果死活想用，告诉你，代码长不长或者好不好调试自己去想
$i =1
while not ($i>_guictrllistview_getcount())
switch $i
    case _guictrlllistview_getchecked()
      run()
endswitch
$i +=1
wend
回复

举报

pdp320921
 楼主| 发表于 2011-3-29 13:29:19 | 显示全部楼层
回复 13# netegg

其实我只是想：在选中相应的checkbox再点击卸载按钮后能够完成自动完成卸载~~，也不是非要select或什么的，只要能达到效果即可~恳请前辈指点！
回复

举报

netegg
发表于 2011-3-29 13:34:25 | 显示全部楼层
本帖最后由 netegg 于 2011-3-29 13:35 编辑

回复 14# pdp320921

那就用上面那段好了,卸载按钮的操作
$i =1
while not ($i>_guictrllistview_getcount())
if _guictrlllistview_getchecked() then  run()
$i +=1
wend
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-6-26 21:03 , Processed in 0.086868 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表