Gambas France BETA


Pas de compte ? Incription

Tout petit tableur

À propos de ce code

Le seul but de ce bout de code est de faire passer des données d'une classe à une autre et de voir comment les événements peuvent interagir.
Si vous avez d'autres astuces, n’hésitez pas.

Commentaires

Commentaire de gambix, Le 22/11/2016 à 16:03:45
Ce n'est pas ce que je pourrais appeler un "Tableur". C'est un tableau qui additionne par ligne et par colonnes.
Commentaire de davidmue, Le 13/4/2017 à 21:29:02
Salut,
Le code est intéressant du point de vue de la personnalisation des contrôles et des événements.
Merci.
Pour faire fonctionner l'application, j'ai retoucher le code comme suit :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
'
' (FMain)
PUBLIC SUB Form_Open()
DIM i, j AS INTEGER
DIM pan AS Panel
DIM cellule AS Class1
FOR i = 0 TO 2
Panel1.Arrangement = Arrange.Row
pan = NEW Panel(Panel1)
pan.Width = Panel1.Width
pan.Height = Panel1.Height / 3
pan.Arrangement = Arrange.Column
FOR j = 0 TO 2
cellule = NEW Class1(pan) AS "cellule"
cellule.Width = Panel1.W / 3
cellule.Height = Panel1.H / 3
NEXT
NEXT
END
'
' (Class1)
PROPERTY Height AS INTEGER
PROPERTY Width AS INTEGER
' ...
PRIVATE FUNCTION Height_Read() AS INTEGER
RETURN valeur.Height
END
PRIVATE SUB Height_Write(Value AS INTEGER)
valeur.Height = Value
END
PRIVATE FUNCTION Width_Read() AS INTEGER
RETURN valeur.Width
END
PRIVATE SUB Width_Write(Value AS INTEGER)
valeur.Width = Value
END
'