A For Each...Next loop is similar to a For...Next loop. Instead of repeating the statements a specified number of times, a For Each...Next loop repeats a group of statements for each item in a collection of objects or for each element of an array. This is especially helpful if you don't know how many elements are in a collection.
In the following HTML code example, the contents of a Dictionary object is used to place text in several text boxes.
<HTML><HEAD><TITLE>Forms and Elements</TITLE></HEAD><SCRIPT LANGUAGE="VBScript"><!--Sub cmdChange_OnClick Dim d 'Create a variable Set d = CreateObject("Scripting.Dictionary") d.Add "0", "Athens d.Add "1", "Belgrade d.Add "2", "Cairo For Each I in d Document.frmForm.Elements(I).Value = D.Item(I) NextEnd Sub--></SCRIPT><BODY><CENTER><FORM NAME="frmForm" <Input Type = "Text"><p><Input Type = "Text"><p><Input Type = "Text"><p><Input Type = "Text"><p><Input Type = "Button" NAME="cmdChange" VALUE="Click Here"><p></FORM></CENTER></BODY></HTML> 
No comments:
Post a Comment