COLO V1.0 (( LOGICIEL DE COLORIAGE ET D'IMAGE POUR ENFANTS ))
cs_Tidus
Messages postés78Date d'inscriptiondimanche 21 avril 2002StatutMembreDernière intervention 7 juillet 2003
-
6 juil. 2002 à 21:17
nid69ita
Messages postés2Date d'inscriptionjeudi 6 août 2009StatutMembreDernière intervention 6 août 2009
-
6 août 2009 à 21:23
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
nid69ita
Messages postés2Date d'inscriptionjeudi 6 août 2009StatutMembreDernière intervention 6 août 2009 6 août 2009 à 21:23
Okay, le zip n'est pas a zip de winzip me a zip de winrar (.rar) :-))
nid69ita
Messages postés2Date d'inscriptionjeudi 6 août 2009StatutMembreDernière intervention 6 août 2009 6 août 2009 à 21:00
Excuse moi, J'ai eu un probleme avec le zip. :-((
dedson
Messages postés6Date d'inscriptionvendredi 10 mai 2002StatutMembreDernière intervention 6 septembre 2002 16 juil. 2002 à 18:34
Ton code est génial, je débute en Vb et je sens que j'ai encore du chemin à faire
crossblade
Messages postés113Date d'inscriptiondimanche 14 avril 2002StatutMembreDernière intervention 3 février 2007 10 juil. 2002 à 20:30
je ne pense pas l'avoir tailler à la serpe... Mais je n'ai pas de site et je n'avais un problème que de 25ko (au fait quelle est la taille maximale de zip car avant je croyait que c'était 350ko ?) et plus de personne peuvent en profiter sur un gros site comme VBfrance.com... bonne prog Patrice99
crossblade
Messages postés113Date d'inscriptiondimanche 14 avril 2002StatutMembreDernière intervention 3 février 2007 10 juil. 2002 à 20:29
je ne pense pas l'avoir tailler à la serpe... Mais je n'ai pas de site et je n'avais un problème que de 25ko et plus de personne peuvent en profiter sur un gros site comme VBfrance.com... bonne prog Patrice99
cs_Patrice99
Messages postés1221Date d'inscriptionjeudi 23 août 2001StatutMembreDernière intervention 9 septembre 2018 9 juil. 2002 à 13:31
ouais, domage, ca à l'air jolie, qd tu as un zip trop gros, tu n'a qu'à le mettre la ou tu veux sur le web et mettre un lien en indiquant la taille, plutot que de tailler ton prog à la serpe !
crossblade
Messages postés113Date d'inscriptiondimanche 14 avril 2002StatutMembreDernière intervention 3 février 2007 8 juil. 2002 à 19:01
je ne vois pas ce que tu veut dire jia2812.. ????
jia2812
Messages postés57Date d'inscriptionmardi 17 avril 2001StatutMembreDernière intervention10 janvier 2003 8 juil. 2002 à 16:04
Hey, ça déchire ton prog!!!!!!!! Putain, respect niveau design!... ;-)
Sino, y manke des effets, ça vaut ps encore Photoshop, mais bon, cé déjà ps mal!... ;-P
Dis-moi comment tu fais au niveau contrôles personnalisés, surtout au niveau propriétés, car j'y comprends que dalle, pr en créer??? 1 bon tuto' là-dessus?...
Bone prog'!!!!!!!!!!!!
Gogogogogogogogoogogooooooooooooooooooooooo
crossblade
Messages postés113Date d'inscriptiondimanche 14 avril 2002StatutMembreDernière intervention 3 février 2007 8 juil. 2002 à 11:40
pour répondre à patrice99 il faut que tu remplace le module3 partie FilterG par
Public Sub FilterG(ByVal Filtro As iFilterG, ByVal Pic As Long, ByVal Factor As Long, ByRef pProgress As Long)
Dim hdcNew As Long
Dim oldhand As Long
Dim ret As Long
Dim BytesPerScanLine As Long
Dim PadBytesPerScanLine As Long
If WorkFilterG = True Then Exit Sub
WorkFilterG = True
'On Error GoTo FilterError:
'get data buffer
Call GetObject(Pic, Len(PicInfo), PicInfo)
hdcNew = CreateCompatibleDC(0&)
oldhand = SelectObject(hdcNew, Pic)
With DIBInfo.bmiHeader
.biSize = 40
.biWidth = PicInfo.bmWidth
.biHeight = -PicInfo.bmHeight
.biPlanes = 1
.biBitCount = 32
.biCompression = BI_RGB
BytesPerScanLine = ((((.biWidth * .biBitCount) + 31) 32) * 4)
PadBytesPerScanLine = _
BytesPerScanLine - (((.biWidth * .biBitCount) + 7) 8)
.biSizeImage = BytesPerScanLine * Abs(.biHeight)
End With
ReDim iDATA(1 To 4, 1 To PicInfo.bmWidth, 1 To PicInfo.bmHeight) As Byte
ReDim bDATA(1 To 4, 1 To PicInfo.bmWidth, 1 To PicInfo.bmHeight) As Byte
ret = GetDIBits(hdcNew, Pic, 0, PicInfo.bmHeight, iDATA(1, 1, 1), DIBInfo, DIB_RGB_COLORS)
ret = GetDIBits(hdcNew, Pic, 0, PicInfo.bmHeight, bDATA(1, 1, 1), DIBInfo, DIB_RGB_COLORS)
Select Case Filtro
Case iNEGATIVE: Call NegativeImage(pProgress)
Case iDIFFUSE: Call Diffuse(pProgress, Factor)
Case iSMOOTH: Call Smooth(pProgress)
Case iCONTOUR: Call Contour(pProgress, Factor)
Case iGREYSCALE: Call GreyScale(pProgress)
Case iRELIEF: Call Relief(pProgress)
Case iBRIGHTNESS: Call Brightness(pProgress, Factor)
Case iPIXELIZE: Call Pixelize(pProgress, Factor)
Case iAQUA: Call Aqua(pProgress)
End Select
ret = SetDIBits(hdcNew, Pic, 0, PicInfo.bmHeight, iDATA(1, 1, 1), DIBInfo, DIB_RGB_COLORS)
SelectObject hdcNew, oldhand
DeleteDC hdcNew
ReDim iDATA(1 To 4, 1 To 2, 1 To 2) As Byte
ReDim bDATA(1 To 4, 1 To 2, 1 To 2) As Byte
WorkFilterG = False
Exit Sub
FilterError:
MsgBox "Filter Error"
WorkFilterG = False
End Sub
Car étant donner que comme indiquer ci-dessus je n'ai pas fais les modules, j'ai supprimer des procédures que je n'utilisait pas pour gagner de la place car le prog était trop gros.... merci, bone prog et encore une fois bonne vacances B-)
cs_Patrice99
Messages postés1221Date d'inscriptionjeudi 23 août 2001StatutMembreDernière intervention 9 septembre 2018 8 juil. 2002 à 09:14
Chez moi ca ne marche pas, vb ne trouve pas la procédure Sharpen !?
CaptainChoc
Messages postés35Date d'inscriptionlundi 16 octobre 2000StatutMembreDernière intervention20 juin 2006 7 juil. 2002 à 21:52
Ton adresse mail !! C'est pour ca que je t'ai donn la mienne pour que tu m'crives ;-) Ecris moi cette adresse stp ==> dbprog@laposte.net
Je te remercie. A bientot
blackwizzard
Messages postés1258Date d'inscriptionmercredi 21 mars 2001StatutMembreDernière intervention21 juin 20092 7 juil. 2002 à 21:05
heu...waow!
je suis sur le cul là...
crossblade
Messages postés113Date d'inscriptiondimanche 14 avril 2002StatutMembreDernière intervention 3 février 2007 7 juil. 2002 à 12:11
quelle adresse ? mon adresse e-mail ou personnelle
CaptainChoc
Messages postés35Date d'inscriptionlundi 16 octobre 2000StatutMembreDernière intervention20 juin 2006 7 juil. 2002 à 11:56
Magnifique :-)
Moi je met 10 pour ce petit prog sympathique !
J'aimerai rentrer en conctact avec toi (crossblade), tu pourrais me donner ton adresse stp... Ecris moi cette adresse: dbprog@laposte.net
Je te remercie, et franchement bravo, j'ai mme pas trouv de bug ;-)
crossblade
Messages postés113Date d'inscriptiondimanche 14 avril 2002StatutMembreDernière intervention 3 février 2007 7 juil. 2002 à 11:14
merci à tous
cs_Mercury
Messages postés329Date d'inscriptionjeudi 3 janvier 2002StatutMembreDernière intervention 7 octobre 2005 7 juil. 2002 à 08:06
Vraiment bien. Les fonctions graphiques sont intéressantes, la partie code l'est aussi. J'espère que tu vas le faire évoluer. 10/10. Excellent travail.
cs_OphidiaN
Messages postés235Date d'inscriptionmercredi 4 avril 2001StatutMembreDernière intervention 9 novembre 2007 7 juil. 2002 à 00:28
hé mec, continue comme ça, t'arrache tout :)
cs_Alain Proviste
Messages postés908Date d'inscriptionjeudi 26 juillet 2001StatutModérateurDernière intervention 1 février 20152 6 juil. 2002 à 21:57
Ouah trop fort...
C'est un excellent programme...
Toi je sens que tu vas réussir ta vie...
En plus il est beau ton prog...
Bravo...
crossblade
Messages postés113Date d'inscriptiondimanche 14 avril 2002StatutMembreDernière intervention 3 février 2007 6 juil. 2002 à 21:43
J'ai eu un petit problème de zip et j'ai du réduire sa taille. j'ai donc enlevé tous les sauts de ligne inutiles (car à mon plus grand étonnement, ca prend de la place ) ainsi que les commentaires ainsi que le nom de son auteur (partie module) Manuel Augusto Nogueira dos Santos .. Merci, bonnes vacances à tous et bonne prog B-)
cs_Tidus
Messages postés78Date d'inscriptiondimanche 21 avril 2002StatutMembreDernière intervention 7 juillet 2003 6 juil. 2002 à 21:17
6 août 2009 à 21:23
6 août 2009 à 21:00
16 juil. 2002 à 18:34
10 juil. 2002 à 20:30
10 juil. 2002 à 20:29
9 juil. 2002 à 13:31
8 juil. 2002 à 19:01
8 juil. 2002 à 16:04
Sino, y manke des effets, ça vaut ps encore Photoshop, mais bon, cé déjà ps mal!... ;-P
Dis-moi comment tu fais au niveau contrôles personnalisés, surtout au niveau propriétés, car j'y comprends que dalle, pr en créer??? 1 bon tuto' là-dessus?...
Bone prog'!!!!!!!!!!!!
Gogogogogogogogoogogooooooooooooooooooooooo
8 juil. 2002 à 11:40
Public Sub FilterG(ByVal Filtro As iFilterG, ByVal Pic As Long, ByVal Factor As Long, ByRef pProgress As Long)
Dim hdcNew As Long
Dim oldhand As Long
Dim ret As Long
Dim BytesPerScanLine As Long
Dim PadBytesPerScanLine As Long
If WorkFilterG = True Then Exit Sub
WorkFilterG = True
'On Error GoTo FilterError:
'get data buffer
Call GetObject(Pic, Len(PicInfo), PicInfo)
hdcNew = CreateCompatibleDC(0&)
oldhand = SelectObject(hdcNew, Pic)
With DIBInfo.bmiHeader
.biSize = 40
.biWidth = PicInfo.bmWidth
.biHeight = -PicInfo.bmHeight
.biPlanes = 1
.biBitCount = 32
.biCompression = BI_RGB
BytesPerScanLine = ((((.biWidth * .biBitCount) + 31) 32) * 4)
PadBytesPerScanLine = _
BytesPerScanLine - (((.biWidth * .biBitCount) + 7) 8)
.biSizeImage = BytesPerScanLine * Abs(.biHeight)
End With
ReDim iDATA(1 To 4, 1 To PicInfo.bmWidth, 1 To PicInfo.bmHeight) As Byte
ReDim bDATA(1 To 4, 1 To PicInfo.bmWidth, 1 To PicInfo.bmHeight) As Byte
ret = GetDIBits(hdcNew, Pic, 0, PicInfo.bmHeight, iDATA(1, 1, 1), DIBInfo, DIB_RGB_COLORS)
ret = GetDIBits(hdcNew, Pic, 0, PicInfo.bmHeight, bDATA(1, 1, 1), DIBInfo, DIB_RGB_COLORS)
Select Case Filtro
Case iNEGATIVE: Call NegativeImage(pProgress)
Case iDIFFUSE: Call Diffuse(pProgress, Factor)
Case iSMOOTH: Call Smooth(pProgress)
Case iCONTOUR: Call Contour(pProgress, Factor)
Case iGREYSCALE: Call GreyScale(pProgress)
Case iRELIEF: Call Relief(pProgress)
Case iBRIGHTNESS: Call Brightness(pProgress, Factor)
Case iPIXELIZE: Call Pixelize(pProgress, Factor)
Case iAQUA: Call Aqua(pProgress)
End Select
ret = SetDIBits(hdcNew, Pic, 0, PicInfo.bmHeight, iDATA(1, 1, 1), DIBInfo, DIB_RGB_COLORS)
SelectObject hdcNew, oldhand
DeleteDC hdcNew
ReDim iDATA(1 To 4, 1 To 2, 1 To 2) As Byte
ReDim bDATA(1 To 4, 1 To 2, 1 To 2) As Byte
WorkFilterG = False
Exit Sub
FilterError:
MsgBox "Filter Error"
WorkFilterG = False
End Sub
Car étant donner que comme indiquer ci-dessus je n'ai pas fais les modules, j'ai supprimer des procédures que je n'utilisait pas pour gagner de la place car le prog était trop gros.... merci, bone prog et encore une fois bonne vacances B-)
8 juil. 2002 à 09:14
7 juil. 2002 à 21:52
Je te remercie. A bientot
7 juil. 2002 à 21:05
je suis sur le cul là...
7 juil. 2002 à 12:11
7 juil. 2002 à 11:56
Moi je met 10 pour ce petit prog sympathique !
J'aimerai rentrer en conctact avec toi (crossblade), tu pourrais me donner ton adresse stp... Ecris moi cette adresse: dbprog@laposte.net
Je te remercie, et franchement bravo, j'ai mme pas trouv de bug ;-)
7 juil. 2002 à 11:14
7 juil. 2002 à 08:06
7 juil. 2002 à 00:28
6 juil. 2002 à 21:57
C'est un excellent programme...
Toi je sens que tu vas réussir ta vie...
En plus il est beau ton prog...
Bravo...
6 juil. 2002 à 21:43
6 juil. 2002 à 21:17