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

不死草 · 发表于 2010-6-21 22:12:53

本帖最后由不死草于 2010-6-23 22:47 编辑

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

lpxx · 发表于 2010-6-21 22:24:39

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

tryhi · 发表于 2010-6-21 22:32:13

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

不死草 · 发表于 2010-6-21 22:32:27

回复 2# lpxx

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

tryhi · 发表于 2010-6-22 00:18:07

你的第一个问题解决了，但不是变成灰色。
为什么发不了附件呢？按了没反应
我摘两段给你看
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 · 发表于 2010-6-22 09:18:10

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

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 · 发表于 2010-6-22 09:48:46

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

tryhi · 发表于 2010-6-22 09:51:41

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

我是群里的小海

Hen5ei · 发表于 2010-6-22 10:04:03

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

tryhi · 发表于 2010-6-22 10:14:56

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

newuser · 发表于 2010-6-22 10:26:06

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

不死草 · 发表于 2010-6-22 14:19:56

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

不死草 · 发表于 2010-6-23 22:48:07

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

tryhi · 发表于 2010-6-23 22:57:35

本帖最后由 tryhi 于 2010-6-23 23:01 编辑

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

xz00311 · 发表于 2010-6-24 10:16:50

看看是啥问题

		自动登录	找回密码
密码			加入

[系统综合] 新手，刚学AU3一个星期写了个好玩的程序，又有新问题

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源

评分