Versión en Español


Home Downloads License Samples
News? Read the blog 

The following are just a few samples of the code you can build with iFox, so you can see how easy is to create complex applications. I suggest you to download the complete package that includes samples for ASP, Visual FoxPro, Visual Basic y Delphi.

iFox.VFPScript 

Generate a secuence of numbers with a For ... Next cycle

<% For I = 1 to 10 %>

   <font size=<% =LTrim(Str(i)) %>>

   <% =LTrim(Str(i)) %>

   </font><br>

<% Next %>

iFox.WebControls  (Create a form) 

<%
* Create a form and two textboxes
oForm = CreateObject("WebForm")
oNombre = CreateObject("WebTextBox")
oApellido = CreateObject("WebTextBox")


* Set the textboxes properties
oNombre.Name = "Nombre"
oNombre.Label = "Nombre:"
oNombre.Length = 30
oNombre.MaxLength = 30

oApellido.Name = "Apellido"
oApellido.Label = "Apellido:"
oApellido.Length = 30
oApellido.MaxLength = 30

* Add the fields to the form 
oForm.AddField(oNombre)
oForm.AddField(oApellido)

* Build the form
oForm.Initialize()
oForm.DrawInTable()
%>

iFox.WebControls  (Create a table using existing data) 

Use (Server.MapPath("/iFoxDemos/Customers")) Shared In 0

oTable = CreateObject("WebTable")
oTable.RecordSource = "Customers"
oTable.CSSClass = "htmltable"
oTable.CellSpacing = 0

oTable.AddColumn("ID", "Customers.Cust_ID")
oTable.AddColumn("Compañía", "RTrim(Customers.Company)")
oTable.AddColumn("Contacto", "RTrim(Customers.Contact)")

oTable.Columns(1).ColumnWidth = "10%"
oTable.Columns(2).ColumnWidth = "45%"
oTable.Columns(3).ColumnWidth = "45%"

oTable.Draw()

Use in Customers

All mentioned trademarks belongs to the corresponding owners
Developed by Pablo Pioli
for Coliseo Software