新手，刚学AU3一个星期写了个好玩的程序，又有新问题

不死草

谢谢之前帮助我的各位朋友，特别感谢小海，帮我修改了很多次，不过这次完善了些功能，但是老问题又出来了
就是之前说过的，添加记录以后，点 打开目录 或 删除目录 或 刷新 之后再点目录就会出现莫名其妙的其他地方的提示窗口，希望大家能帮我查下代码，现在程序写的基本上已经完整了，就这一个小问题解决不了现在。软件和数据库我发附件了
本人QQ：444799998     希望大家能帮下小弟哈，谢谢

lpxx

必须是大姐大嫂大婶大娘才可以帮忙？
其它的不行？

tryhi

一个星期就能写到这样，楼主很强！

不死草

回复 2# lpxx


    当然行了~ 能帮忙的都是老大

tryhi

你的第一个问题解决了，但不是变成灰色。
为什么发不了附件呢？按了没反应
我摘两段给你看
Func _open()
        $Strn=GUICtrlRead(GUICtrlRead($ListView2_1))
        $Strnspin=StringSplit($Strn,"|")
                        If $Strn="不存在" Then
                MsgBox(0,"提示","请选择一个目录！")
                Else
        If $Strnspin[1] = "" then
          _zhuangtai(1)
    Else
          _zhuangtai(0)
        If $Strnspin[3]="不存在" Then
                MsgBox(0,"提示","目录不存在，无法打开！")
        Else
       Run(@ComSpec & ' /c start '&$Strnspin[2]&"..\","",@SW_HIDE)
   EndIf       
  EndIf
EndIf  
EndFunc





Func _del()
        $Strn=GUICtrlRead(GUICtrlRead($ListView2_1))
        $Strnspin=StringSplit($Strn,"|")
        If $Strn="不存在" Then
                MsgBox(0,"提示","请选择一个目录！")
                Else
           $flag=MsgBox(1,"提示","删除目录必须先删除其中的所有文件，否则将不能正确的删除文件夹。")
              If $flag=1 Then
                        Run(@ComSpec & ' /c start '&$Strnspin[2]&"..\","",@SW_HIDE)
                        $login_User_ini = IniRead ( "config.ini", "登陆配置", "用户名", "")
                        $conn = ObjCreate("ADODB.Connection")
                        $RS = ObjCreate("ADODB.Recordset")
                        $conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datadir& ";Jet Oledb:Database Password="&$acc_pwd)
                        $RS.ActiveConnection = $conn
                        $RS.Open ('Select * From '&$login_User_ini&' where ' & "name" & ' = '& '"' & $Strnspin[1] & '"')
                                While (Not $RS.eof And Not $RS.bof)
                                $id = $RS.Fields (0).value
                            $RS.movenext
                            WEnd
                        $sQuery ="Delete FROM " & $login_User_ini & " Where ID" & " = "& $id
                        $conn.Execute($sQuery)
                        $RS.close
                        $conn.close
                        Do  
                                Sleep(3000)
                                Run(@ComSpec & ' /c rd '&$Strnspin[2]&"..\","",@SW_HIDE)
                                Run(@ComSpec & ' /c rd '&"exit","",@SW_HIDE)
                        Until not FileExists($Strnspin[2]&"..\")
                   Else
                     _no()
                 EndIf
                 _sql()
                 EndIf
EndFunc

tryhi

想让他变成灰色也行，但你使用的消息模式，所以变成灰色会很闪（本人能力有限），但本人觉得没有必要变成灰色，在没有选中文件夹时点击打开或者删除进行提示我觉得更好，以下是变成灰色的部分代码代码

While 1
                $Strn=GUICtrlRead(GUICtrlRead($ListView2_1))
        $Strnspin=StringSplit($Strn,"|")
                        If $Strn="不存在" Then
                                GUICtrlSetState($Button2_1,$GUI_DISABLE)
                                GUICtrlSetState($Button2_3,$GUI_DISABLE)
                                Else
                            GUICtrlSetState($Button2_1,$gui_enable)
                                GUICtrlSetState($Button2_3,$gui_enable)
                        EndIf
        $msg = GUIGetMsg()
        Select
    Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
        Case $msg = $Button1_1
          _login()
    Case $msg = $Button1_2
          _reg()
    Case $msg = $Button1_3
          _zhaohui()
    Case $msg = $Button2_1 Or $msg = $dakai_menu
          _open()
    Case $msg = $Button2_2
          _create()
    Case $msg = $Button2_3 Or $msg = $del
          _del()
    Case $msg = $Button2_4
          _change()
  Case $msg = $Button2_6 Or $msg = $rush
          _sql()
EndSelect
WEnd

tryhi

你的第二第三个问题是因为刷新引起的，正在查找问题中……

tryhi

本人认为你的刷新按钮没有任何作用（能否解释一下有何作用），只会引起错误，去掉这个按钮即可解决
我是群里的小海

Hen5ei

来看看.,是否能帮上点什么?.,

tryhi

问题已经基本解决，刷新功能仍然保存着

newuser

回复 1# 不死草
新手,确实不错!

不死草

哈哈，我是照着别人程序慢慢拼出来的，哇哈哈
谢谢tryhi 哈，帮我修改了，晚上回去试下，呵呵，辛苦了

不死草

又出新问题啦~~~大家帮忙解决下

tryhi

不好意思，这个问题没解决好！

xz00311

看看是啥问题