Me.Line (10, 10)-(Me.ScaleWidth, Me.ScaleHeight), , B en couleur et +gros svp

Le
Cinémas Décavision
Bonjour Amis Pros d'A2k et BON NOËL.

Afin d'éviter de perdre des heures à chercher ce que vous connaissez déjà,
j'utilise la fonction pour mon état (report) :

Private Sub Report_Page()

'Crée un cadre autour de l'état

pr.ReportPage

Me.Line (10, 10)-(Me.ScaleWidth, Me.ScaleHeight), , B


End Sub


Comment grossir le trait et le mettre en couleur
Peut-être pas possible car rien trouvé là dessus !
La soluce serait mon cadeau de Noël avant ma future et prochaine demande.

Merci à tous et bon reveillon.
Bernard
PS. : J'ai lu qu'avec A2k + Champagne = Erreur#
alors attention les dévellopeurs !
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31

pdg@decavision.fr
http://www.decavision.com/
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Dom
Le #6370101
Bonjour Bernard,

Pour la couleur, peut-être ceci :

Me.Line (10, 10)-(Me.ScaleWidth, Me.ScaleHeight), vbRed, B

Amitiés.

Dominique.

"Cinémas Décavision" 476d3e68$0$846$
Bonjour Amis Pros d'A2k et BON NOËL.

Afin d'éviter de perdre des heures à chercher ce que vous connaissez déjà,
j'utilise la fonction pour mon état (report) :

Private Sub Report_Page()

'Crée un cadre autour de l'état

pr.ReportPage

Me.Line (10, 10)-(Me.ScaleWidth, Me.ScaleHeight), , B


End Sub


Comment grossir le trait et le mettre en couleur...
Peut-être pas possible car rien trouvé là dessus !
La soluce serait mon cadeau de Noël avant ma future et prochaine demande.

Merci à tous et bon reveillon.
Bernard
PS. : J'ai lu qu'avec A2k + Champagne = Erreur#
alors attention les dévellopeurs !
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31


http://www.decavision.com/




Cinémas Décavision
Le #6370081
Merci Dom,

Tu peux retourner manget ta fondue pendant que j'essaye cela...
Et bon Noël à toi et tous ceux du group Access...

Bernard

--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31


http://www.decavision.com/
Dom
Le #6369991
Bonjour Bernard, et tout pareil pour les bon voeux :-)

Le code ci-dessous fonctionne (en tout cas sous Access 97)

Private Sub Report_Page()

Dim rpt As Report, lngCouleur As Long
Dim sngSommet As Single, sngGauche As Single
Dim sngLargeur As Single, sngHauteur As Single

Set rpt = Me
With rpt
' Définit l'échelle en pixels.
.ScaleMode = 3
.DrawWidth = 12 'largeur du trait en pixels
End With

' Limite au sommet.
sngSommet = rpt.ScaleTop + 10 ' Limite à gauche.
sngGauche = rpt.ScaleLeft + 10

' Limite en largeur.
sngLargeur = rpt.ScaleWidth - 10
' Limite en hauteur.
sngHauteur = rpt.ScaleHeight - 10
'Prend la couleur rouge.
lngCouleur = RGB(255, 0, 0) 'pour le bleu ce serait RGB(0,0,255), le
vert RGB(0,255,0)voir dans l'aide les autres valeurs
' Dessine un rectangle.
rpt.Line (sngSommet, sngGauche)-(sngLargeur, sngHauteur), lngCouleur, B
End Sub

Cordialement,

Dominique.

"Cinémas Décavision" 476e542d$0$865$
Merci Dom,

Tu peux retourner manget ta fondue pendant que j'essaye cela...
Et bon Noël à toi et tous ceux du group Access...

Bernard

--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31


http://www.decavision.com/




Cinémas Décavision
Le #6343071
Bonjour Dom,

OK je vais l'essayer et je te dirais (l'année prochaine) si cela fonctionne
sous A2K.

Bon Noël et meilleurs voeux à toi et à tous les contributeurs de ce
merveilleux groupe.

Bernard

PS Je t'attends toujours au cinéma, tu es le seul qui soit de la région !

--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31


http://www.decavision.com/
Dom
Le #6343061
Re,

Promis, je viens au DK en janvier 2008 :-))), et je passe à A2K !

La tartiflette, on se la fait avant ou après la projection ? ;-)))

Bien à toi.

Dominique.


"Cinémas Décavision" 476f834e$0$832$
Bonjour Dom,

OK je vais l'essayer et je te dirais (l'année prochaine) si cela
fonctionne
sous A2K.

Bon Noël et meilleurs voeux à toi et à tous les contributeurs de ce
merveilleux groupe.

Bernard

PS Je t'attends toujours au cinéma, tu es le seul qui soit de la région !

--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31


http://www.decavision.com/




Cinémas Décavision
Le #6342991
Re-Salut

Trop impatient pour attendre l'an prochain pour essayer cela....
Je confirme, cela fonctionne bien sur A2K.

Pour = La tartiflette, on se la fait avant ou après la projection ? ;-)))

C'est quand tu veux.

Bernard
Publicité
Poster une réponse
Anonyme