Voici comment faire un zoom sur une table avec la roulette + Ctrl à la manière de word ou excel

Dans les déclarations globales de la fenêtre
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
EXTERNE "KeyConst.WL"
gxCoef_zoom_table est un numérique = 1
Ajouter l'entrée de code sur la table
Roulette souris (WM_MOUSEWHEEL) sur TABLE_SansNom1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
// sur l'évènement roulette + Ctrl
SI ToucheEnfoncée(teControl) ALORS
	ZoomTable("TABLE_SansNom1",0.1,-0.090909)
FIN
Procédure permettant de zoomer sur la table
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
PROCEDURE ZoomTable(Table_a_zoomer,Vitesse_zoom_plus,Vitesse_zoom_moins)
 
nSens est un entier = PoidsFort(_EVE.wParam)  
nNb_colonne est un entier = TableOccurrence({Table_a_zoomer},toColonne)
i est un entier
 
SI nSens < 0 ALORS
	//   La roulette de la souris va vers le bas --> zoom -
	gxCoef_zoom_table = Vitesse_zoom_moins
SINON
	//   La roulette de la souris va vers le haut --> zoom +
	gxCoef_zoom_table = Vitesse_zoom_plus
FIN
 
POUR i = 1 A nNb_colonne
	// largeur des colonnes
	{Table_a_zoomer+"."+TableEnumèreColonne({Table_a_zoomer},i)}..Largeur = Arrondi({Table_a_zoomer+"."+TableEnumèreColonne({Table_a_zoomer},i)}..Largeur * (1 + gxCoef_zoom_table),0)
	// taille police
	{Table_a_zoomer+"."+TableEnumèreColonne({Table_a_zoomer},i)}..PoliceTaille = Arrondi({Table_a_zoomer+"."+TableEnumèreColonne({Table_a_zoomer},i)}..PoliceTaille * (1 + gxCoef_zoom_table),2)
FIN
// hauteur des lignes
{Table_a_zoomer}..HauteurLigne = Arrondi({Table_a_zoomer}..HauteurLigne * (1 + gxCoef_zoom_table),0)
Bon dev
Laurent