1 | <SCRIPT LANGUAGE=VBScript> |
2 | <!-- |
3 | Dim rgszCtrls(24, 2) |
4 | Dim cMaxCtrls |
5 | cMaxCtrls = 24 |
6 | Sub AddCtrlToList(szCtrl, szCtrlSrc) |
7 | Dim i |
8 | for i = 1 to cMaxCtrls |
9 | if rgszCtrls(i, 1) = szCtrl Then Exit Sub |
10 | if rgszCtrls(i, 1) = "" Then |
11 | rgszCtrls(i, 1) = szCtrl |
12 | rgszCtrls(i, 2) = szCtrlSrc |
13 | Exit Sub |
14 | End If |
15 | next |
16 | End Sub |
17 | |
18 | Sub UpdateRefreshBtn() |
19 | nav_btn_MoveCancelUpdate.Caption = "Cancel" |
20 | End Sub |
21 | --> |
22 | </SCRIPT> |
23 |