stef2004
Messages postés105Date d'inscriptionmercredi 4 février 2004StatutMembreDernière intervention29 décembre 2005
-
14 avril 2004 à 10:46
ChristophePel
Messages postés7Date d'inscriptionmardi 6 janvier 2004StatutMembreDernière intervention25 octobre 2008
-
28 mars 2005 à 12:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
ChristophePel
Messages postés7Date d'inscriptionmardi 6 janvier 2004StatutMembreDernière intervention25 octobre 2008 28 mars 2005 à 12:28
Le timer, c'est pas terrible mais ça fonctionne si tu met ton code dans "Form_activate" (Sans le timer evidemment !!!!)
assui
Messages postés1Date d'inscriptionmardi 8 mars 2005StatutMembreDernière intervention 8 mars 2005 8 mars 2005 à 18:32
salut associé je me nomme assui kouakou emmanuel, étudiant en télécommunications. je suis très intéressé par l'ingéniosité des developeurs, malheuresement je suis un amateur en la matière. alors je souhaitérais profiter de ton expérience.
cs_DiaKt
Messages postés20Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention 7 janvier 2005 17 avril 2004 à 11:51
Ton code est....... mal commenté, surchargé pour rien, plein d'erreurs, et tu explique mal ou placer le code car tout le code n'est pas a mettre dans un timer car il y a des declarations de variables etc.... donc je t'ai mis 3/10 car d'apres hqv0 il y a une chance que tu l'ai fait a l'aide d'un tuto donc woila ++ DiaKt DiaKt@aol.com
cs_azerty25
Messages postés1114Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 6 mai 2007 15 avril 2004 à 06:57
Vous pouvez aussi supprimer les lignes Me.ScaleHeight = 256, Me.DrawStyle = vbInsideSolid et Me.DrawWidth = 5 (celle ci sert à déterminer la bordure avant le dessin, c'est donc facultatif)
cs_azerty25
Messages postés1114Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 6 mai 2007 15 avril 2004 à 06:53
Voici le code un peu corrigé à mettre dans une form
Option Explicit
Private Sub Form_Load()
Dim t As Single
Dim i As Single
Me.DrawStyle = vbInsideSolid
Me.DrawWidth = 5
Me.ScaleMode = vbPixels
Me.ScaleHeight = 256
Me.AutoRedraw = True
For i = 0 To 254
Me.Line (0, 1)-(Me.Width, i + 1), RGB(255 - i, 0, 0), B
' actuellement rouge. Pour vert:RGB(0, 255 - i, 0) et bleu:RGB(0, 0, 255 - i)
Next i
End Sub
cs_jp50
Messages postés45Date d'inscriptionsamedi 14 avril 2001StatutMembreDernière intervention 3 janvier 2008 15 avril 2004 à 00:32
Il faut aussi que tu mette Me.show au début de ton code.
cs_Stephane
Messages postés550Date d'inscriptionvendredi 5 janvier 2001StatutMembreDernière intervention23 septembre 2006 14 avril 2004 à 15:18
e_nex > dans le load ca marche pas parce que la form n'a pas autoredraw en true.
Met true et essai
hqv0
Messages postés54Date d'inscriptionsamedi 22 novembre 2003StatutMembreDernière intervention12 juin 2004 14 avril 2004 à 10:57
Bonjour e_NeX , J'aime tous les trucs visuels comme cela, c'est bien d'avoir donné ton travail, seulement tu t'es cassé les nenettes pour rien, car cet exemple (en bleu) fait parti des exemples des premieres pages du livre Visual basic 6 pour les debutants. En tout cas je te felicite de travailler sur la recherche d'agrementer nos interfaces, bien trop de personnes se contentent de faire des supers codes qui tuent mais delaissent le visuel de leur projet.
Ah oui sinon 'Eimer1.interval 0' c'est en realité 'Timer1.interval 0'
J'espere revoir tes projets ici .
stef2004
Messages postés105Date d'inscriptionmercredi 4 février 2004StatutMembreDernière intervention29 décembre 2005 14 avril 2004 à 10:46
chez moi VB me dit que ds, dw, sm.......i.... sont des variables indefinies
28 mars 2005 à 12:28
8 mars 2005 à 18:32
17 avril 2004 à 11:51
15 avril 2004 à 06:57
15 avril 2004 à 06:53
Option Explicit
Private Sub Form_Load()
Dim t As Single
Dim i As Single
Me.DrawStyle = vbInsideSolid
Me.DrawWidth = 5
Me.ScaleMode = vbPixels
Me.ScaleHeight = 256
Me.AutoRedraw = True
For i = 0 To 254
Me.Line (0, 1)-(Me.Width, i + 1), RGB(255 - i, 0, 0), B
' actuellement rouge. Pour vert:RGB(0, 255 - i, 0) et bleu:RGB(0, 0, 255 - i)
Next i
End Sub
15 avril 2004 à 00:32
14 avril 2004 à 15:18
Met true et essai
14 avril 2004 à 10:57
Ah oui sinon 'Eimer1.interval 0' c'est en realité 'Timer1.interval 0'
J'espere revoir tes projets ici .
14 avril 2004 à 10:46