Me.Line (10, 10)-(Me.ScaleWidth, Me.ScaleHeight), , B en couleur et +gros svp
6 réponses
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Dom
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" a écrit dans le message de news: 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/
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" <pdg@decavision.fr> a écrit dans le message de news:
476d3e68$0$846$ba4acef3@news.orange.fr...
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
Me.Line (10, 10)-(Me.ScaleWidth, Me.ScaleHeight), vbRed, B
Amitiés.
Dominique.
"Cinémas Décavision" a écrit dans le message de news: 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
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/
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
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
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" a écrit dans le message de news: 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/
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" <pdg@decavision.fr> a écrit dans le message de news:
476e542d$0$865$ba4acef3@news.orange.fr...
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
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" a écrit dans le message de news: 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
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/
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