Sub Globals
End Sub
Sub App_Start
Form1.Show
obj.New1(true)
o.New1(false)
table1.AddCol(cstring,"c1",50)
table1.AddCol(cstring,"c2",50)
table1.AddCol(cstring,"c3",50)
For i = 1 To 10
table1.AddRow(i,i,i)
Next
SetAlternateRowsColor("Table1",cSilver)
AddMouseDownEvent("Table1")
HitTest("Table1",35,30)
End Sub
Sub AddMouseDownEvent(TableName)
obj.FromControl(TableName)
event.New1(obj.Value,"MouseDown")
End Sub
Sub event_NewEvent
o.Value = event.Data
HitTest("Table1",o.GetProperty("X"),o.GetProperty("Y"))
End Sub
Sub HitTest(TableName,x,y)
obj.FromControl(TableName)
o.Value = obj.RunMethod3("HitTest",x,"System.Int32",y,"System.Int32")
ListBox1.Clear
ListBox1.Add("X: " & x & " Y: " & y)
ListBox1.Add("Row: " & o.GetProperty("Row"))
ListBox1.Add("Column: " & o.GetProperty("Column"))
ListBox1.Add("Type: " & o.GetProperty("Type"))
End Sub
Sub SetAlternateRowsColor (TableName,Color)
If CPPC Then Return 'devices do not support this method
obj.FromControl(TableName)
o.CreateNew("System.Drawing.Color" & o.System_Drawing)
o.Value = o.RunMethod2("FromArgb",Color,"System.Int32")
obj.Value = obj.GetProperty("TableStyles")
obj.Value = obj.GetProperty2("Item",0)
obj.SetProperty2("AlternatingBackColor", o.Value)
End Sub