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
Jacques Thiery
Voici un code qui je crois te conviendra
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long Const SRCCOPY = &HCC0020
Private Sub Form_Resize() Form1.Picture1.AutoRedraw = True Form1.Picture1.ScaleMode = PIXELS sDC! = Form1.Picture1.hDC dDC! = Form1.hDC sH = Form1.Picture1.ScaleHeight sW = Form1.Picture1.ScaleWidth Rows = Form1.ScaleWidth sW cols = Form1.ScaleHeight sH For I = 0 To Rows dX = I * sW For J = 0 To cols dY = J * sH RET = BitBlt(dDC!, dX, dY, sW, sH, sDC!, sX, sY, SRCCOPY) Next J Next I Form1.Refresh End Sub
Form1 est la form qui contient un picturebox Picture1 dans lequel tu mets l'image que tu veux repeter je pense avoir repondu a ta question
"aa" a écrit dans le message de news:%
Bonjour,
J'aimerais que crystal report compte le nombre de lignes que j'ai dans mon etat en prenant compte des sauts de pages pas groupement.
Comment faire ?
J'ai essaye count mais ca me compte toutes les lignes.
Merci de votre aide.
M
Voici un code qui je crois te conviendra
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X
As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal
hSrcDC As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long)
As Long
Const SRCCOPY = &HCC0020
Private Sub Form_Resize()
Form1.Picture1.AutoRedraw = True
Form1.Picture1.ScaleMode = PIXELS
sDC! = Form1.Picture1.hDC
dDC! = Form1.hDC
sH = Form1.Picture1.ScaleHeight
sW = Form1.Picture1.ScaleWidth
Rows = Form1.ScaleWidth sW
cols = Form1.ScaleHeight sH
For I = 0 To Rows
dX = I * sW
For J = 0 To cols
dY = J * sH
RET = BitBlt(dDC!, dX, dY, sW, sH, sDC!, sX, sY, SRCCOPY)
Next J
Next I
Form1.Refresh
End Sub
Form1 est la form qui contient un picturebox Picture1 dans lequel tu mets
l'image que tu veux repeter
je pense avoir repondu a ta question
"aa" <news@microsoft.com> a écrit dans le message de
news:%23kmCnY05EHA.2540@TK2MSFTNGP09.phx.gbl...
Bonjour,
J'aimerais que crystal report compte le nombre de lignes que j'ai dans mon
etat en prenant compte des sauts de pages pas groupement.
Comment faire ?
J'ai essaye count mais ca me compte toutes les lignes.
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long Const SRCCOPY = &HCC0020
Private Sub Form_Resize() Form1.Picture1.AutoRedraw = True Form1.Picture1.ScaleMode = PIXELS sDC! = Form1.Picture1.hDC dDC! = Form1.hDC sH = Form1.Picture1.ScaleHeight sW = Form1.Picture1.ScaleWidth Rows = Form1.ScaleWidth sW cols = Form1.ScaleHeight sH For I = 0 To Rows dX = I * sW For J = 0 To cols dY = J * sH RET = BitBlt(dDC!, dX, dY, sW, sH, sDC!, sX, sY, SRCCOPY) Next J Next I Form1.Refresh End Sub
Form1 est la form qui contient un picturebox Picture1 dans lequel tu mets l'image que tu veux repeter je pense avoir repondu a ta question
"aa" a écrit dans le message de news:%
Bonjour,
J'aimerais que crystal report compte le nombre de lignes que j'ai dans mon etat en prenant compte des sauts de pages pas groupement.
Comment faire ?
J'ai essaye count mais ca me compte toutes les lignes.
Merci de votre aide.
M
Jacques Thiery
Mise ici par erreur
"Jacques Thiery" a écrit dans le message de news:41c927ed$0$1501$
Voici un code qui je crois te conviendra
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal
X
As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long,
ByVal
hSrcDC As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As
Long)
As Long Const SRCCOPY = &HCC0020
Private Sub Form_Resize() Form1.Picture1.AutoRedraw = True Form1.Picture1.ScaleMode = PIXELS sDC! = Form1.Picture1.hDC dDC! = Form1.hDC sH = Form1.Picture1.ScaleHeight sW = Form1.Picture1.ScaleWidth Rows = Form1.ScaleWidth sW cols = Form1.ScaleHeight sH For I = 0 To Rows dX = I * sW For J = 0 To cols dY = J * sH RET = BitBlt(dDC!, dX, dY, sW, sH, sDC!, sX, sY, SRCCOPY) Next J Next I Form1.Refresh End Sub
Form1 est la form qui contient un picturebox Picture1 dans lequel tu mets l'image que tu veux repeter je pense avoir repondu a ta question
"aa" a écrit dans le message de news:% > Bonjour, > > J'aimerais que crystal report compte le nombre de lignes que j'ai dans
mon
> etat en prenant compte des sauts de pages pas groupement. > > Comment faire ? > > J'ai essaye count mais ca me compte toutes les lignes. > > Merci de votre aide. > > M > >
Mise ici par erreur
"Jacques Thiery" <jthiery@noos.fr> a écrit dans le message de
news:41c927ed$0$1501$79c14f64@nan-newsreader-07.noos.net...
Voici un code qui je crois te conviendra
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal
X
As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long,
ByVal
hSrcDC As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As
Long)
As Long
Const SRCCOPY = &HCC0020
Private Sub Form_Resize()
Form1.Picture1.AutoRedraw = True
Form1.Picture1.ScaleMode = PIXELS
sDC! = Form1.Picture1.hDC
dDC! = Form1.hDC
sH = Form1.Picture1.ScaleHeight
sW = Form1.Picture1.ScaleWidth
Rows = Form1.ScaleWidth sW
cols = Form1.ScaleHeight sH
For I = 0 To Rows
dX = I * sW
For J = 0 To cols
dY = J * sH
RET = BitBlt(dDC!, dX, dY, sW, sH, sDC!, sX, sY, SRCCOPY)
Next J
Next I
Form1.Refresh
End Sub
Form1 est la form qui contient un picturebox Picture1 dans lequel tu mets
l'image que tu veux repeter
je pense avoir repondu a ta question
"aa" <news@microsoft.com> a écrit dans le message de
news:%23kmCnY05EHA.2540@TK2MSFTNGP09.phx.gbl...
> Bonjour,
>
> J'aimerais que crystal report compte le nombre de lignes que j'ai dans
mon
> etat en prenant compte des sauts de pages pas groupement.
>
> Comment faire ?
>
> J'ai essaye count mais ca me compte toutes les lignes.
>
> Merci de votre aide.
>
> M
>
>
"Jacques Thiery" a écrit dans le message de news:41c927ed$0$1501$
Voici un code qui je crois te conviendra
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal
X
As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long,
ByVal
hSrcDC As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As
Long)
As Long Const SRCCOPY = &HCC0020
Private Sub Form_Resize() Form1.Picture1.AutoRedraw = True Form1.Picture1.ScaleMode = PIXELS sDC! = Form1.Picture1.hDC dDC! = Form1.hDC sH = Form1.Picture1.ScaleHeight sW = Form1.Picture1.ScaleWidth Rows = Form1.ScaleWidth sW cols = Form1.ScaleHeight sH For I = 0 To Rows dX = I * sW For J = 0 To cols dY = J * sH RET = BitBlt(dDC!, dX, dY, sW, sH, sDC!, sX, sY, SRCCOPY) Next J Next I Form1.Refresh End Sub
Form1 est la form qui contient un picturebox Picture1 dans lequel tu mets l'image que tu veux repeter je pense avoir repondu a ta question
"aa" a écrit dans le message de news:% > Bonjour, > > J'aimerais que crystal report compte le nombre de lignes que j'ai dans
mon
> etat en prenant compte des sauts de pages pas groupement. > > Comment faire ? > > J'ai essaye count mais ca me compte toutes les lignes. > > Merci de votre aide. > > M > >
