Creating
a gambas2
program,
step by step, a telephone index
From : http://listingambas.blogspot.com/2011/06/definir-el-gridview-gridviewdatos.html
Define the
gridview: GridViewData
We will use gridviewData so that the user can view data of the index.
For this we must first define the number of
columns, width, font, etc..
The module will create a procedure called title.define with the
following code:
PUBLIC SUB
define ()
WITH
FMain. GridViewDatos
. header
=
3
. Row s
. COUNT
=
1
. columns
. COUNT
=
16
. Columns
[ 0
]. title
=
"Picture"
. Columns
[ 1
]. title
=
"Name"
. Columns
[ 2
]. title
=
"Surname"
. Columns
[ 3
]. title
=
"PC#"
. Columns
[ 4
]. title
=
"Company"
. Columns
[ 5
]. title
=
"Position"
. Columns
[ 6
]. title
=
"Company Tel."
. Columns
[ 7
]. title
=
"Company Mobile"
. Columns
[ 8
]. title
=
"Private Tel."
. Columns
[ 9
]. title
=
"Private Mobile"
. Columns
[ 10
]. title
=
"Fax"
. Columns
[ 11
]. title
=
"Mail"
. Columns
[ 12
]. title
=
"Website"
. Columns
[ 13
]. title
=
"Address"
. Columns
[ 14
]. title
=
"Comments"
. Columns
[ 15
]. title
=
"Date"
. Columns
[ 0
]. width
=
74
. Columns
[ 1
]. width
=
80
. Columns
[ 2
]. width
=
131
. Columns
[ 3
]. width
=
80
. Columns
[ 4
]. width
=
80
. Columns
[ 5
]. width
=
113
. Columns
[ 6
]. width
=
87
. Columns
[ 7
]. width
=
95
. Columns
[ 8
]. width
=
90
. Columns
[ 9
]. width
=
98
. Columns
[ 10
]. width
=
80
. Columns
[ 11
]. width
=
80
. Columns
[ 12
]. width
=
80
. Columns
[ 13
]. width
=
80
. Columns
[ 14
]. width
=
165
. Columns
[ 15
]. width
=
81
. font
. name
=
"Sans"
. font
. size
=
9
. Background
=
16777215
. Foreground
=
0
END WITH
END
And we add to form, in procedure
'Open', a call to this subroutine:
PUBLIC SUB
Form_Open ()
ME.CENTER ()
var. reinit ()
title. define ()
END
Note:
ME.CENTER-causes the form to be
displayed at the center of the screen.