|
本帖最后由 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[0] = $objRootsite.childNodes.item($i).childNodes.item(11).text
$R_ItemArray[1] = $objRootsite.childNodes.item($i).childNodes.item(0).text
$Tab_A_ListItemHandle[$i] = GUICtrlCreateListViewItem($R_ItemArray[0]&"|"&$R_ItemArray[1],$Tab_A_ListView)
_GUICtrlStatusBar_SetText($MainStatusBar,"当前列表共有:"&_GUICtrlListView_GetItemCount($Tab_A_ListView)&"项")
Next
EndIf
EndIf
endfunc
老问题,搜索过论坛,得到“没把控件写进TAB中”的答案,但还是没弄懂,请赐教。
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?加入
×
评分
-
查看全部评分
|