Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1442 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  évenement fin d'entete ou section d'un entete

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

évenement fin d'entete ou section d'un entete

n°709881
fcoisb
go ! go ! go !
Posté le 27-04-2004 à 16:13:26  profilanswer
 

Bonjour, dans un état access, pour encadrer un groupements de produits j'utilise :  
 

Code :
  1. sur la propriété impression d'un entete de groupe :
  3. Dim X1 As Single, Offset As Single
  4. Offset = 1440 / Me.GridX ' Convertit Grille X en twips
  5. X1 = etat2.Left - Offset  ' Calcule X1 en twips
  6. Me.Line (X1, X1)-(X1, 10000)   ' Dessine la ligne verticale
  7. Me.Line (10000, X1)-(10000, 10000)   ' Dessine la ligne verticale
  9.     Me.Line (X1, X1)-(10000, X1)   ' Dessine la ligne horizontale


 
Le problème c'est qu'il ne me mets pas de ligne à la fin de l'entete du groupe ni quand il y a une section :-/
 
Ces évenements sont il disponible?


Message édité par fcoisb le 27-04-2004 à 16:14:43
mood
Publicité
Posté le 27-04-2004 à 16:13:26  profilanswer
 

n°709996
fcoisb
go ! go ! go !
Posté le 27-04-2004 à 17:17:17  profilanswer
 

up

n°710305
fcoisb
go ! go ! go !
Posté le 27-04-2004 à 22:22:44  profilanswer
 

up

n°710517
fcoisb
go ! go ! go !
Posté le 28-04-2004 à 10:44:49  profilanswer
 

up

n°711003
fcoisb
go ! go ! go !
Posté le 28-04-2004 à 15:20:14  profilanswer
 

up

n°711089
fcoisb
go ! go ! go !
Posté le 28-04-2004 à 16:02:03  profilanswer
 

up

n°711126
fcoisb
go ! go ! go !
Posté le 28-04-2004 à 16:22:52  profilanswer
 

c'est possible au moins?

n°711213
fcoisb
go ! go ! go !
Posté le 28-04-2004 à 18:22:27  profilanswer
 

up

n°711549
fcoisb
go ! go ! go !
Posté le 29-04-2004 à 10:06:38  profilanswer
 

up

n°711911
fcoisb
go ! go ! go !
Posté le 29-04-2004 à 15:36:58  profilanswer
 

:sweat:  
 
c'est bon (si ça peut interesser quelqu'un) ...
 

Code :
  1. Dim X1 As Single
  2. Dim X2 As Single
  3. Dim Y1 As Single
  4. Dim Y2 As Single
  5. Dim offset As Single
  7.        ' Specify unit of measurement for coordinates on a page...
  8.        Me.ScaleMode = 1 ' ...in twips (1440 twips = 1 inch).
  10.        ' Define an offset of 1/8 inch from the text box to the rectangle.
  11.        '    offset = 1440 / Me.GridX ' Convertit Grille X en twips
  12.        'offset = 100
  13.        'offset = 0
  15.        ' X and Y coordinates for the top left corner of the box.
  16.        X1 = Me![etat3].Left ' - offset
  17.        Y1 = Me![etat3].Top ' - offset
  19.        ' X and Y coordinates for the bottom right corner of the box.
  20.        X2 = Me![etat3].Left + Me![etat3].Width' + offset
  21.        Y2 = Me![etat3].Top + Me![etat3].Height' + offset
  23.        Me.DrawWidth = 3        ' Width of the line (in pixels).
  24.        'Color = RGB(0, 0, 0)    ' Use black line color.
  26.        ' Draw the rectangle with the Line method.
  27.        'Me.Line (X1, Y1)-(X2, Y2)
  28.  
  30. Me.Line (X1, Y1)-(X1, Y2) 'ligne gauche
  31. Me.Line (X2, Y1)-(X2, Y2) 'ligne droite
  32.  
  35. If (nb1 = 1) Then
  36.        Me.Line (X1, Y1)-(X2, Y1) 'ligne haut
  37. End If
  39. If (nb2 = 1) Then
  40.        Me.Line (X1, Y2)-(X2, Y2) 'ligne bas
  41. End If


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  évenement fin d'entete ou section d'un entete

 

Sujets relatifs
pb: taille d'un entete de groupe ne se réduit pas avec image[wxwindows] evenement
[JAVA] je cherche un evenement sur une JList[ VB EXCEL] Comment recup un evenement ?
Aimeriez-vous que syl soit TT&Ban de cette section ?Aimeriez-vous qu'os2 soit TT&Ban de cette section ?
valeure d'1 évenement windowsAttendre un évènement en base de données dans une servlet
C# + SVG : problème de d'entête http : specialist wantedModifier la priorite de Gestionnaire d'evenement en JavaScript
Plus de sujets relatifs à : évenement fin d'entete ou section d'un entete

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.061 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR