VBS關(guān)閉當(dāng)前框架問題
作者：金字塔 來源：cxh99.com 發(fā)布時間：2017年05月24日
- 咨詢內(nèi)容：
在以下代碼中，for循環(huán)內(nèi)通過Application.SendMessage(57602)或者Application.PostMessage(57602)來關(guān)閉當(dāng)前框架時，經(jīng)常未能成功，特別是操作多個框架時，請問是什么問題？為了避免失去鼠標(biāo)焦點問題，我還特意在循環(huán)里面加了ShowWindow和ActivateFrame來保證選中金字塔主程序和當(dāng)前框架，但是依然無果。如果把Application.SendMessage(57602)放在循環(huán)之外，即先打開所有框架處理完后，再逐個關(guān)閉框架，則可正常關(guān)閉所有框架，但是這樣勢必會增加資源占用，導(dǎo)致金字塔崩潰。我現(xiàn)在想要做的操作就是，逐一打開各個框架，打開一個框架后處理完馬上關(guān)掉這個框架，再打開下一個框架處理完再馬上關(guān)掉。。。
[此貼子已經(jīng)被作者于2017/3/28 16:35:10編輯過]
- 金字塔客服：
set list = CreateObject("System.Collections.ArrayList")
frameArray = Array("f1", "f2", "f3")
frameNum = UBound(frameArray) + 1
for i = 0 to frameNum - 1
set frame = Application.ActivateFrame(frameArray(i))
gridNum = frame.GridCount
for j = 0 to gridNum - 1
set grid = frame.GetGridByIndex(j)
if grid.FormulaCount = 2 then
set formula = grid.GetFormulaByIndex(1)
a = formula.GetBufData("info", formula.DataSize-1)
list.Add a
end if
next
Application.ShowWindow(3)
Application.ActivateFrame(frameArray(i))
Application.SendMessage(57602)
next
list.Clear
set list = nothing
set frame = nothing
set grid = nothing
set formula = nothing
- 用戶回復(fù)：
.
[此貼子已經(jīng)被作者于2017/3/28 16:43:36編輯過]
- 網(wǎng)友回復(fù)：
set list = CreateObject("System.Collections.ArrayList")
frameArray = Array("f1", "f2", "f3")
frameNum = UBound(frameArray) + 1
for i = 0 to frameNum - 1
set frame = Application.ActivateFrame(frameArray(i))
gridNum = frame.GridCount
for j = 0 to gridNum - 1
set grid = frame.GetGridByIndex(j)
if grid.FormulaCount = 2 then
set formula = grid.GetFormulaByIndex(1)
a = formula.GetBufData("info", formula.DataSize-1)
list.Add a
end if
next
Application.ShowWindow(3)
Application.ActivateFrame(frameArray(i))
Application.SendMessage(57602)
next
list.Clear
set list = nothing
set frame = nothing
set grid = nothing
set formula = nothing
以上是代碼。我去，這是什么破代碼編輯器如此反人類，還不能縮進(jìn)。。。
- 網(wǎng)友回復(fù)：
完全沒人理？
打印本文
關(guān)閉窗口