。。。。。。。。。。。。。。。。。。。。。。。。

jscpu

回复 15# 水木子

我想问的是像这样的话怎么改?

1. #include <GuiListView.au3>
   
2. #include <GUIConstantsEx.au3>
   
3. #include <WindowsConstants.au3>
   
4. _11()
   
5. Func _11()
   
6. $dir = @ScriptDir&"\config.ini"
   
7. $Form1 = GUICreate("列表框操作", 280, 270)
   
8. GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
   
9. $ListView1 = GUICtrlCreateListView("账号           |密码           |", 10, 10, 260, 150)
   
10. $Button1 = GUICtrlCreateButton("添加", 185, 178, 75, 25, $WS_GROUP)
    
11. $Input1 = GUICtrlCreateInput("", 60, 180, 120, 21)
    
12. $Input2 = GUICtrlCreateInput("", 60, 220, 120, 21)
    
13. $Label1 = GUICtrlCreateLabel("账号：", 20, 183, 36, 17)
    
14. $Label2 = GUICtrlCreateLabel("密码：", 20, 223, 36, 17)
    
15. $Label3 = GUICtrlCreateLabel("数据", 200, 223, 36, 17)
    
16. $Label4 = GUICtrlCreateLabel("0", 230, 223, 36, 17)
    
17. GUISetState(@SW_SHOW)
    
18. Read()
    
19. 
    
20. While 1
    
21.         $nMsg = GUIGetMsg()
    
22.         Switch $nMsg
    
23.                 Case $GUI_EVENT_CLOSE
    
24.                         Exit
    
25.                 Case $Button1
    
26.                         tian()
    
27.         EndSwitch
    
28. WEnd
    
29. EndFunc
    
30. 
    
31. 
    
32. func WM_NOTIFY($hWndGUI, $MsgID, $WParam, $LParam)
    
33. 
    
34.         Local $tagNMHDR, $Event, $hWndFrom, $IDFrom
    
35.         Local $tagNMHDR = DllStructCreate("int;int;int", $LParam)
    
36.         If @error Then Return $GUI_RUNDEFMSG
    
37.         $IDFrom = DllStructGetData($tagNMHDR, 2)
    
38.         $Event = DllStructGetData($tagNMHDR, 3)
    
39.         $tagNMHDR = 0
    
40.         Switch $IDFrom;选择产生事件的控件
    
41. 
    
42.                         Case $ListView1
    
43. 
    
44.                                 Switch $Event; 选择产生的事件
    
45. 
    
46.                                         Case $NM_CLICK ; 左击
    
47.                                                  $a = _GUICtrlListView_GetSelectedIndices($ListView1)
    
48.         $b = _GUICtrlListView_GetItemTextString($ListView1, Number($a))
    
49.         $c = StringSplit($b,"|")        
    
50.         GUICtrlSetData ($Input1 ,$c[1])
    
51.         GUICtrlSetData ($Input2 ,$c[2])               
    
52.                                         Case $NM_DBLCLK ; 双击
    
53.                                                         
    
54.                                         Case $NM_RCLICK ; 右击
    
55. 
    
56.                                 EndSwitch
    
57.         EndSwitch
    
58.         Return $GUI_RUNDEFMSG
    
59. EndFunc   ;==>WM_NOTIFY
    
60. 
    
61. Func Read()
    
62.         $z = 0
    
63.         _GUICtrlListView_DeleteAllItems($ListView1)
    
64.         $read = IniReadSection($dir,"config")
    
65.         If Not @error Then
    
66.                 For $i = 1 To $read[0][0]
    
67.                         GUICtrlCreateListViewItem($read[$i][0], $ListView1)
    
68.                         _GUICtrlListView_AddSubItem($ListView1, $z, $read[$i][1], 1, $z+1)
    
69.                         GUICtrlSetData($Label4,$z+1)
    
70.                         $z += 1               
    
71.                 Next
    
72.         EndIf
    
73. EndFunc
    
74. 
    
75. Func tian()
    
76.         $z = GUICtrlRead($Label4)
    
77.         $a = GUICtrlRead($Input1)
    
78.         $b = GUICtrlRead($Input2)        
    
79.         If $a <> "" And $b <> "" Then
    
80.                 IniWrite($dir,"config",$a,$b)
    
81.                 GUICtrlCreateListViewItem($a, $ListView1)               
    
82.                 _GUICtrlListView_AddSubItem($ListView1, $z, $b, 1, $z+1)
    
83.                 MsgBox(0,"提示"," 账号： "&$a&" 密码： "&$b&" 保存成功 ")               
    
84.                 GUICtrlSetData($Input1,"")
    
85.                 GUICtrlSetData($Input2,"")
    
86.                 GUICtrlSetData($Label4,$z+1)
    
87.         EndIf        
    
88. EndFunc  

复制代码

jscpu

回复 14# netegg

请教下怎么改!

netegg

# $hListView = _GUICtrlListView_Create($GUI, "", 10, 10, 260, 150)
# GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

下面的消息子函数就可以用了

水木子

你是想做成事件模式吧？

netegg

刚看明白楼主什么意思，做函数前，把listview定义成全局变量Globle $listview，后面的操作再说后面的

jscpu

回复 18# netegg

不行耶
还是提示变量为定义!

如16代码那样
只要他不提示错误就行了!

jscpu

回复 19# 水木子


也不是什么事件
您的代码就是我想要的效果
只是我想把那一整段代码放在FUNC里

可能有多处要用到 !
但是一放FUNC里就出错!
FUNC又不能嵌套   麻烦就在这!

afan

没仔细看。。。

1. #include <GuiListView.au3>
   
2. #include <GUIConstantsEx.au3>
   
3. #include <WindowsConstants.au3>
   
4. 
   
5. Dim $ListView1, $dir, $z, $Label4, $Input1, $Input2
   
6. _11()
   
7. 
   
8. Func _11()
   
9.         $dir = @ScriptDir & "\config.ini"
   
10.         $Form1 = GUICreate("列表框操作", 280, 270)
    
11.         GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
    
12.         $ListView1 = GUICtrlCreateListView("账号           |密码           |", 10, 10, 260, 150)
    
13.         $Button1 = GUICtrlCreateButton("添加", 185, 178, 75, 25, $WS_GROUP)
    
14.         $Input1 = GUICtrlCreateInput("", 60, 180, 120, 21)
    
15.         $Input2 = GUICtrlCreateInput("", 60, 220, 120, 21)
    
16.         $Label1 = GUICtrlCreateLabel("账号：", 20, 183, 36, 17)
    
17.         $Label2 = GUICtrlCreateLabel("密码：", 20, 223, 36, 17)
    
18.         $Label3 = GUICtrlCreateLabel("数据", 200, 223, 36, 17)
    
19.         $Label4 = GUICtrlCreateLabel("0", 230, 223, 36, 17)
    
20.         GUISetState(@SW_SHOW)
    
21.         Read()
    
22. 
    
23.         While 1
    
24.                 $nMsg = GUIGetMsg()
    
25.                 Switch $nMsg
    
26.                         Case $GUI_EVENT_CLOSE
    
27.                                 Exit
    
28.                         Case $Button1
    
29.                                 tian()
    
30.                 EndSwitch
    
31.         WEnd
    
32. EndFunc   ;==>_11
    
33. 
    
34. 
    
35. Func WM_NOTIFY($hWndGUI, $MsgID, $WParam, $LParam)
    
36. 
    
37.         Local $tagNMHDR, $Event, $hWndFrom, $IDFrom
    
38.         Local $tagNMHDR = DllStructCreate("int;int;int", $LParam)
    
39.         If @error Then Return $GUI_RUNDEFMSG
    
40.         $IDFrom = DllStructGetData($tagNMHDR, 2)
    
41.         $Event = DllStructGetData($tagNMHDR, 3)
    
42.         $tagNMHDR = 0
    
43.         Switch $IDFrom;选择产生事件的控件
    
44. 
    
45.                 Case $ListView1
    
46. 
    
47.                         Switch $Event; 选择产生的事件
    
48. 
    
49.                                 Case $NM_CLICK ; 左击
    
50.                                         $a = _GUICtrlListView_GetSelectedIndices($ListView1)
    
51.                                         $b = _GUICtrlListView_GetItemTextString($ListView1, Number($a))
    
52.                                         $c = StringSplit($b, "|")
    
53.                                         GUICtrlSetData($Input1, $c[1])
    
54.                                         GUICtrlSetData($Input2, $c[2])
    
55.                                 Case $NM_DBLCLK ; 双击
    
56. 
    
57.                                 Case $NM_RCLICK ; 右击
    
58. 
    
59.                         EndSwitch
    
60.         EndSwitch
    
61.         Return $GUI_RUNDEFMSG
    
62. EndFunc   ;==>WM_NOTIFY
    
63. 
    
64. Func Read()
    
65.         $z = 0
    
66.         _GUICtrlListView_DeleteAllItems($ListView1)
    
67.         $read = IniReadSection($dir, "config")
    
68.         If Not @error Then
    
69.                 For $i = 1 To $read[0][0]
    
70.                         GUICtrlCreateListViewItem($read[$i][0], $ListView1)
    
71.                         _GUICtrlListView_AddSubItem($ListView1, $z, $read[$i][1], 1, $z + 1)
    
72.                         GUICtrlSetData($Label4, $z + 1)
    
73.                         $z += 1
    
74.                 Next
    
75.         EndIf
    
76. EndFunc   ;==>Read
    
77. 
    
78. Func tian()
    
79.         $z = GUICtrlRead($Label4)
    
80.         $a = GUICtrlRead($Input1)
    
81.         $b = GUICtrlRead($Input2)
    
82.         If $a <> "" And $b <> "" Then
    
83.                 IniWrite($dir, "config", $a, $b)
    
84.                 GUICtrlCreateListViewItem($a, $ListView1)
    
85.                 _GUICtrlListView_AddSubItem($ListView1, $z, $b, 1, $z + 1)
    
86.                 MsgBox(0, "提示", " 账号： " & $a & " 密码： " & $b & " 保存成功 ")
    
87.                 GUICtrlSetData($Input1, "")
    
88.                 GUICtrlSetData($Input2, "")
    
89.                 GUICtrlSetData($Label4, $z + 1)
    
90.         EndIf
    
91. EndFunc   ;==>tian

复制代码

netegg

回复  netegg

不行耶
还是提示变量为定义!

如16代码那样
只要他不提示错误就行了!
jscpu 发表于 2010-1-8 23:37

哪个变量未定义，不是有三个#include吗，下一行直接定义全局变量
把前面几位的代码里面dim改成global

水木子

哎！简直没搞懂，基本靠猜。

maxkingmax

变量未声明

sanmoking

回复 1# jscpu


1、根据选择的条目修改input的内容的方法，不建议楼主用检测鼠标点击操作的方法，那样既占资源（貌似），而且有出错的可能，更重要的是有一个最大的bug（就是鼠标点的时候，input可以根据所选内容进行修改，键盘上下键选的时候，input就傻了），解决这个问题我的方法，请参考【传送门】
2、提示变量不存在的问题，说明你没有好好看过au3的帮助，我引用一下au3的帮助里的原文：

变量的作用域
某个变量的作用域要看您是何时以及如何声明该变量的. 如果您在脚本开头且在所有函数之外声明了某个变量 则该变量将在Global(全局)范围内存在,此时您就可以在脚本的任意位置读取或更改该变量, 我们把这种变量称为全局变量.
如果您是在某个 函数 内部声明一个变量则该变量就只在该函数的 Local(局部) 范围内有效,我们把这种变量称为局部变量. 在函数内创建的变量将在函数结束时 自动被销毁.
在默认情况下,使用 Dim 声明的变量或在函数内部直接赋值而成的变量都是 Local(局部)变量,除非 有同名的全局变量存在(此时将视此变量为该全局变量).  另外我们可以使用关键字 Local 和 Global 来声明变量以 强制 变量的作用域.

所以你要解决这个问题，有两个方法，
一、把所有的全局变量都在func 外边声明，也就是说你就不要去想着把一段创建gui的代码用func包括起来了，除非你在这个func外边把所有的控件变量都提前声明一遍，但那样就绕弯路啦，相当于你写了两遍gui的代码。
二、如果你非要把创建gui的代码部分用func包括起来，那另外一个方法就是，在func里面创建控件的时候把变量声明为全局变量 Global
三、要说啥来着，忘了，回头想起来再说。刚明明想好了的，被同事打断了，工作了，不说了。、、

llztt

可怜的水木子，费老大劲了，呵呵

建议楼主上传全部代码，光让猜怎么行啊，光看你的出错情况，应该是简单的逻辑问题