Really more shorter and more sure.
' Gambas class file
Private OBS As Observer
Public Sub Form_Open()
'need an observer to get the draw event after the array drawing
OBS = New Observer(TableView1.Children[0], True) As "OBS"
TableView1.Rows.Count = 10000
TableView1.Columns.Count = 6
End
Public Sub OBS_Draw()
Draw.ClipRect = Rect(0, 0, TableView1.Rows.W,
TableView1.Columns.H) 'set the clippin region to the upper left cells
size
Draw.Text("toto", 0, 0, TableView1.Rows.W, TableView1.Columns.H,
Align.Center) 'Draw the text path
End
------------------------------------------------------------------------------
What NetFlow Analyzer can do for you? Monitors network bandwidth and traffic
patterns at an interface-level. Reveals which users, apps, and protocols are
consuming the most bandwidth. Provides multi-vendor support for NetFlow,
J-Flow, sFlow and other flows. Make informed decisions using capacity
planning reports. http://sdm.link/zohodev2dev
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
