【已解决】把其他控件准确写进某个tab中。老问题了，但还弄不懂
本帖最后由 powerofos 于 2010-3-22 22:04 编辑随着某TAB内控件越来越多，LISTVIEW内内容越来越多，软件打开的时候特别慢，而且有时候有些输入框INPUT会消失，奇怪了。。
目前我只写到了刷新LISTVIEW部分。
func Ref_XML()
$objXML = ObjCreate("Microsoft.XMLDOM")
$sFile = $objXML.load($SourceFile)
If not $sFile then
MsgBox(16,"","加载"&$SourceFile&"失败,文件不存在!!!")
Else
$objRootsite = $objXML.documentElement.selectSingleNode("master")
$AllNodesNum = $objRootsite.childNodes.length - 1
If $AllNodesNum < 0 then
_GUICtrlStatusBar_SetText($MainStatusBar,"找不到任何记录，请先添加。")
Else
Global $Tab_A_ListItemHandle[$AllNodesNum+1]
For $i = 0 to $AllNodesNum
$R_ItemArray = $objRootsite.childNodes.item($i).childNodes.item(11).text
$R_ItemArray = $objRootsite.childNodes.item($i).childNodes.item(0).text
$Tab_A_ListItemHandle[$i] = GUICtrlCreateListViewItem($R_ItemArray&"|"&$R_ItemArray,$Tab_A_ListView)
_GUICtrlStatusBar_SetText($MainStatusBar,"当前列表共有:"&_GUICtrlListView_GetItemCount($Tab_A_ListView)&"项")
Next
EndIf
EndIf
endfunc
老问题，搜索过论坛，得到“没把控件写进TAB中”的答案，但还是没弄懂，请赐教。
...........继续UP UP UP. 想别人帮忙最好好让别人测试，取一段代码别人无法测试，还要首先去读懂你的是什么DD……
精简一段有代表性的例子，相对容易解决得多~ 嗯，再附上文件，请大家帮帮忙，奇怪的问题。。。 ...........继续UP UP UP. ................再等等 .......... 回复 4# powerofos
把 GUISetState(@SW_SHOW,$MainGUI) 这行移到循环前面：
GUISetState(@SW_SHOW,$MainGUI)
While 1
Sleep(1000)
WEnd 今天晚上才看到你的回复，我马上看看，谢谢afan版主:face (36): 回复 7# afan
......问题解决了，原来还可以这样。。。再次感谢afan版主:face (36): saili。。。。。
页:
[1]