找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 请教高手关于 while 内嵌套for to step问题
返回列表 发新帖
查看: 3241|回复: 4

[GUI管理] 请教高手关于 while 内嵌套for to step问题

[复制链接]
ditser
发表于 2010-10-13 09:47:16 | 显示全部楼层 |阅读模式
本帖最后由 ditser 于 2010-10-13 09:51 编辑

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>

Opt('MustDeclareVars', 1)

open();声明方法

; 示例 1
Func open()
    Local $msg,$Form1,$menu_A,$menu_A_A,$menu_A_B,$menu_A_C,$menu_A_D,$menu_B,$menu_B_A,$menu_B_B,$menu_B_C,$menu_B_D,$menu_c,$menu_c_a,$Button_a
        Local $treeview,$filels,$at,$startlabel
    Local $infobutton
    Local $msg, $item, $hItem, $text
        Local $views
       
       
       
        ;从配置文件中读出值
        $views = IniRead("softset.ini","views","views","");读取文件数
        Local $filedir[$views],$filedes[$views],$sunfilels[$views],$description[$views]
       
        For $i = 0 to $views-1 Step 1
                $filedir[$i]=IniRead("softset.ini",$i,"filedir","")
                $filedes[$i]=IniRead("softset.ini",$i,"filedes","")
        Next
        #cs       
        $msg = GUIGetMsg()
        MsgBox(6,"11",$filedir[0],10)
       
        MsgBox(6,"11",$filedes[0],10)
        #ce

    $Form1 = GUICreate("GUI例子", 720, 550, -1, -1, $WS_OVERLAPPEDWINDOW);创建一个 GUI 窗口
    GUISetIcon("favicon.ico", 0);设置窗口图标
        GUISetState(@SW_SHOW) ; 显示窗口
       
        ;创建菜单控件
        ;一级菜单控件
        $menu_A = GUICtrlCreateMenu("文件")
        $menu_B = GUICtrlCreateMenu("编辑")
        $menu_c = GUICtrlCreateMenu("关于")
        ;二级菜单控件
        $menu_A_A = GUICtrlCreateMenuItem("打开", $menu_A)
        $menu_A_B = GUICtrlCreateMenuItem("关闭", $menu_A)
        $menu_A_B = GUICtrlCreateMenuItem("保存", $menu_A)
        $menu_A_D = GUICtrlCreateMenuItem("另存为", $menu_A)

        $menu_B_A = GUICtrlCreateMenuItem("全选",$menu_B)
        $menu_B_B = GUICtrlCreateMenuItem("剪切",$menu_B)
        $menu_B_C = GUICtrlCreateMenuItem("复制",$menu_B)
        $menu_B_D = GUICtrlCreateMenuItem("粘贴",$menu_B)
       
        $menu_C_A = GUICtrlCreateMenuItem("版本",$menu_c)
       
;创建树形目录的容器,指定其样式
        $treeview = GUICtrlCreateTreeView(6, 6, 200, 520, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)
       
;在树形目录框中创建菜单
       
        $filels = GUICtrlCreateTreeViewItem("文件列表", $treeview)
        $at = GUICtrlCreateTreeViewItem("其他说明", $treeview)
       
;文件列表 子菜单
        For $i = 0 to $views-1 Step 1
         $sunfilels[$i] = GUICtrlCreateTreeViewItem($filedir[$i], $filels)
        Next
       
        $startlabel = GUICtrlCreateLabel("TreeView Demo", 220, 12, 490, 490, $SS_SUNKEN)
       
        For $i = 0 to $views-1 Step 1
        $description[$i] = GUICtrlCreateLabel($filedes[$i], 220, 12, 490, 490, $SS_SUNKEN)
        ;GUICtrlSetState(-1, $GUI_HIDE)  ; 在初始化期间隐藏"关于..."文本
        Next

    $infobutton = GUICtrlCreateButton("修改", 490, 505, 70, 20)
   
       
        GUISetState()
       
    While 1
        $msg = GUIGetMsg()
                Select
                        Case $msg = $GUI_EVENT_CLOSE
                                ExitLoop
                        Case $msg = $menu_c_a
                                 MsgBox(266304, "版本", "版本：初始版(1.0)")
                       
                        Case $msg = $infobutton
                $item = GUICtrlRead($treeview)      ; 获取当前挑选的 treeview 项目的控件ID
                If $item = 0 Then
                    MsgBox(64, "TreeView 演示", "现在没有选择项目")
                Else
                    $text = GUICtrlRead($item, 1) ; 获取 treeview 项目的文本
                    If $text == "" Then
                        MsgBox(16, "Error", "当取回关于项目信息时发生错误")
                    Else
                        ;MsgBox(64, "",$text)  ; $advmsg[0] 包含文本 and $advmsg[1] 包含 treeview 项目的状态数值
                                                Run("E:\tools\开发工具\EditPlus 3\EditPlus.exe " & $text)
                    EndIf
                EndIf
                                       
               
        EndSelect
        For $i = 0 to $views-1 Step 1
        GUICtrlSetState($description[$i], $GUI_HIDE)
                If $msg = $sunfilels[$i] Then
                        GUICtrlSetState($description[$i], $GUI_show)
                Else
                        GUICtrlSetState($description[$i], $GUI_HIDE)
                EndIf
        Next
    WEnd
       
    GUIDelete()

EndFunc   ;==>open


以上是所有代码，想实现效果创建一个GUI 然后从ini文件中读取个树形目录名称，其中每个栏目中对应一个label ，单击每个项目时显示对应label
遇到的问题： label不停的循环显示。
请高人解答，小弟不胜感激！
step, 高手, 嵌套, 请教

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
ditser
 楼主| 发表于 2010-10-13 10:11:03 | 显示全部楼层
怎么没人回答啊 是我描述的不清楚吗？
回复

举报

afan
发表于 2010-10-13 11:04:59 | 显示全部楼层
不要在主循环里循环，用$WM_NOTIFY 更好，参考 http://www.autoitx.com/thread-18979-1-1.html
回复

举报

ditser
 楼主| 发表于 2010-10-13 11:19:59 | 显示全部楼层
本帖最后由 ditser 于 2010-10-13 12:21 编辑

谢谢楼上 不过不在主循环里循环 程序会失效 $WM_NOTIFY  这个怎么用啊？我在帮助里没找。。。。。。刚学AUTOIT 不是很了解
回复

举报

ditser
 楼主| 发表于 2010-10-14 14:07:01 | 显示全部楼层
自己改好了，贴出来留个纪念，我得第一个AUTOIT    (8)
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=favicon.ico
#AutoIt3Wrapper_outfile=autoconf_V1.0.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>


Opt('MustDeclareVars', 1)

open();声明方法

; 示例 1
Func open()
    Local $msg,$Form1,$menu_A,$menu_A_A,$menu_A_B,$menu_A_C,$menu_A_D,$menu_B,$menu_B_A,$menu_B_B,$menu_B_C,$menu_B_D,$menu_c,$menu_c_a,$Button_a
        Local $treeview,$filels,$at,$startlabel
    Local $infobutton
    Local $msg, $item, $hItem, $text,$qt
        Local $editplus, $views, $j

        ;从配置文件中读出值
        $editplus = IniRead("conf.ini","editplus","editplus","");读取editplus路径       
        $views = IniRead("conf.ini","views","views","");读取文件数
        Local $filename[$views],$filedir[$views],$filedes[$views],$sunfilels[$views],$description[$views];创建数组，分别装文件路径，文件简介和创建文件列表用的菜单，装简介的label
       
        For $i = 0 to $views-1 Step 1
                $filename[$i]=IniRead("conf.ini",$i,"filename","")
                $filedir[$i]=IniRead("conf.ini",$i,"filedir","")
                $filedes[$i]=IniRead("conf.ini",$i,"filedes","")
        Next

    $Form1 = GUICreate("GUI例子", 720, 550, -1, -1, $WS_OVERLAPPEDWINDOW);创建一个 GUI 窗口
    GUISetIcon("favicon.ico", 0);设置窗口图标
        GUISetState(@SW_SHOW) ; 显示窗口

       
;创建树形目录的容器,指定其样式
        $treeview = GUICtrlCreateTreeView(6, 6, 200, 520, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)
       
;在树形目录框中创建一级菜单
        $filels = GUICtrlCreateTreeViewItem("文件列表", $treeview)
       
;文件列表，根据配置文件中所设置的创建子菜单
        For $i = 0 to $views-1 Step 1
         $sunfilels[$i] = GUICtrlCreateTreeViewItem($filedir[$i], $filels)
        Next
        $startlabel = GUICtrlCreateLabel("autoconf V1.0版,欢迎各位多提意见以改进，谢谢！", 220, 12, 490, 490,$ES_READONLY);创建开始最开始的label
       
        For $i = 0 to $views-1 Step 1
        $description[$i] = GUICtrlCreateEdit($filedes[$i], 220, 12, 490, 490,$ES_READONLY);创建说明容器
        GUICtrlSetState(-1, $GUI_HIDE)  ; 在初始化期间隐藏
        Next
    $infobutton = GUICtrlCreateButton("修改", 490, 505, 70, 20) ;创建按钮，用于读取文件路径
        GUISetState()
       
    While 1
        $msg = GUIGetMsg()
                Select
                        Case $msg = $GUI_EVENT_CLOSE
                                ExitLoop
                        Case $msg = $infobutton
                $item = GUICtrlRead($treeview)      ; 获取当前挑选的 treeview 项目的控件ID
                If $item = 0 Then
                    MsgBox(64, "autoconf V1.0", "没有选择文件")
                Else
                    $text = GUICtrlRead($item, 1) ; 获取 treeview 项目的文本
                    If $text == "" Then
                        MsgBox(16, "Error", "当取回关于文件信息时发生错误")
                                        ElseIf $text == $filels Then
                                                MsgBox(16, "Error", "请选择住下列文件")
                                        ElseIf $text == $qt Then
                                                MsgBox(16, "Error", "请选择住下列文件")
                    Else
                        ;MsgBox(64, "",$text)  ; $advmsg[0] 包含文本 and $advmsg[1] 包含 treeview 项目的状态数值
                                                Run($editplus & " " & $text)
                    EndIf
                EndIf
                        Case $msg = $filels
                                GUICtrlSetState($startlabel, $GUI_SHOW)
                                For $i = 0 To $views-1 Step 1
                                        GUICtrlSetState($description[$i], $GUI_HIDE)
                                Next
                EndSelect
                ;判断当i不等于j时 label的显示与否
                For $i = 0 To $views-1 Step 1
                        For $j = 0 To $views-1 Step 1
                                If $msg = $sunfilels[$i] And $j <> $i Then
                                        GUICtrlSetState($description[$i], $GUI_show)
                                        GUICtrlSetState($description[$j], $GUI_HIDE)
                                        GUICtrlSetState($startlabel, $GUI_HIDE)
                        EndIf
                        Next
                Next
        WEnd
    GUIDelete()
EndFunc   ;==>open
回复

举报

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

本版积分规则

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

GMT+8, 2024-12-26 02:12 , Processed in 0.079986 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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