The Open Source Swiss Army Knife

/code/vbscript/
/code/vbscript/ + sub-categories
http://www.sirfsup.com/
web directory content
    
      

Not logged in
Chat Register Login
return to:  http:/www.sirfsup.com      /code   /vbscript 
Permalink: controls.htm
Title: add
article options : please login   |  print view

  1. if
  2. for

if

On Error Resume Next
Set mappAcad = GetObject(,"AutoCAD.Application")
If (Err.Number = 0) Then
    MsgBox "Unable to connect to AutoCAD!"
    Unload Me
End If

		

if intnumber = 1 then
	...
elseif intNumber =2  then
	...
else
	...
end if

for

  1. one
    dim matriz (10)
    for i=0 to 10
      matriz(i)=100 * i
    next
    
    for i=0 to 10
      document.writeln("Posicion " & i & ": " & matriz(i) &  "
    ") next
  2. two
    for x=0 to UBound(miArray)
      document.write(miArray(x))
    next
    

    Leave a Reply
    Your Name:     anonymous
    Your Email:
    Website:  
    Comments:

    The author will be notified of your reply.
    return to top