新手,刚学AU3一个星期写了个好玩的程序,又有新问题
本帖最后由 不死草 于 2010-6-23 22:47 编辑谢谢之前帮助我的各位朋友,特别感谢小海,帮我修改了很多次,不过这次完善了些功能,但是老问题又出来了
就是之前说过的,添加记录以后,点 打开目录 或 删除目录 或 刷新 之后再点目录就会出现莫名其妙的其他地方的提示窗口,希望大家能帮我查下代码,现在程序写的基本上已经完整了,就这一个小问题解决不了现在。软件和数据库我发附件了
本人QQ:444799998 希望大家能帮下小弟哈,谢谢
必须是大姐大嫂大婶大娘才可以帮忙?
其它的不行? 一个星期就能写到这样,楼主很强! 回复 2# lpxx
当然行了~ 能帮忙的都是老大 你的第一个问题解决了,但不是变成灰色。
为什么发不了附件呢?按了没反应
我摘两段给你看
Func _open()
$Strn=GUICtrlRead(GUICtrlRead($ListView2_1))
$Strnspin=StringSplit($Strn,"|")
If $Strn="不存在" Then
MsgBox(0,"提示","请选择一个目录!")
Else
If $Strnspin = "" then
_zhuangtai(1)
Else
_zhuangtai(0)
If $Strnspin="不存在" Then
MsgBox(0,"提示","目录不存在,无法打开!")
Else
Run(@ComSpec & ' /c start '&$Strnspin&"..\","",@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&"..\","",@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 & '"')
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&"..\","",@SW_HIDE)
Run(@ComSpec & ' /c rd '&"exit","",@SW_HIDE)
Until not FileExists($Strnspin&"..\")
Else
_no()
EndIf
_sql()
EndIf
EndFunc 想让他变成灰色也行,但你使用的消息模式,所以变成灰色会很闪(本人能力有限),但本人觉得没有必要变成灰色,在没有选中文件夹时点击打开或者删除进行提示我觉得更好,以下是变成灰色的部分代码代码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 你的第二第三个问题是因为刷新引起的,正在查找问题中…… 本人认为你的刷新按钮没有任何作用(能否解释一下有何作用),只会引起错误,去掉这个按钮即可解决{:face (396):}
我是群里的小海 来看看.,是否能帮上点什么?.,
问题已经基本解决,刷新功能仍然保存着 回复 1# 不死草
新手,确实不错! 哈哈,我是照着别人程序慢慢拼出来的,哇哈哈
谢谢tryhi 哈,帮我修改了,晚上回去试下,呵呵,辛苦了 又出新问题啦~~~大家帮忙解决下 本帖最后由 tryhi 于 2010-6-23 23:01 编辑
不好意思,这个问题没解决好! 看看是啥问题
页:
[1]
2