Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
DRAWAREA - Dégradé, texte
REALISER UN DEGRADE, DESSINER UN TEXTE DANS LA DRAWAREA
drawarea010.png

Ce petit tutoriel réalisé par Taoteblue nous présente aujourd'hui la façon de réaliser un dégradé de couleur dans une drawarea.

voici le code de l'application ;

' gambas class File
PUBLIC SUB _new()
END
PUBLIC SUB form_OPEN()
me.center
END
PUBLIC SUB button1_click()
'drawingarea1.clear
'drawingarea1.refresh
draw.begin(drawingarea1)
draw.foreground = color.black
draw.font.size = 20
draw.text("bonjour", 100, 100)
draw.foreground = color.darkyellow
draw.font.size = 20
draw.text("bonjour", 102, 102)
draw.END
END
PUBLIC SUB button2_click()
' drawingarea1.clear
'drawingarea1.refresh
draw.begin(drawingarea1)
draw.foreground = color.gray
draw.font.size = 24
draw.text("attention", 0, 0)
draw.foreground = color.red
draw.font.size = 24
draw.text("attention", 3, 3)
draw.END
END
PUBLIC SUB button3_click()
' drawingarea1.clear
'drawingarea1.refresh
draw.begin(drawingarea1)
draw.foreground = color.black
draw.font.size = 24
draw.text("dedans", 120, 120)
draw.foreground = color.white
draw.font.size = 24
draw.text("dedans", 122, 122)
draw.END
END
PUBLIC SUB button4_click()
' drawingarea1.clear
'drawingarea1.refresh
draw.begin(drawingarea1)
draw.foreground = color.black
draw.font.size = 24
draw.text("dehors", 150, 150)
draw.foreground = color.gray
draw.font.size = 24
draw.text("dehors", 151, 151)
draw.END
END
PUBLIC SUB drawingarea1_draw()
END
PUBLIC SUB button5_click()
DIM a AS variant
DIM b AS Integer
draw.begin(drawingarea1)
a = 0
FOR b = 0 TO 255
draw.foreground = a * 257
a = a + 1
print a
draw.LINE(0, b, 1000, b)
'inc b
NEXT
draw.END
END
PUBLIC SUB button7_click()
DIM a AS variant
DIM b AS Integer
draw.begin(drawingarea1)
a = 0
FOR b = 0 TO 255
draw.foreground = a * 75537
a = a + 1
print a
draw.LINE(0, b, 1000, b)
'inc b
NEXT
draw.END
END
PUBLIC SUB button7_click()
DIM a AS variant
DIM b AS Integer
draw.begin(drawingarea1)
a = 0
FOR b = 0 TO 255
draw.foreground = a
a = a + 1
print a
draw.LINE(0, b, 1000, b)
'inc b
NEXT
draw.END
END


Date de création : 27/10/2009 @ 16:35
Dernière modification : 27/01/2012 @ 22:17
Catégorie : DRAWAREA
Page lue 6434 fois

Imprimer l'article Imprimer l'article


react.gifRéactions à cet article

Personne n'a encore laissé de commentaire.
Soyez donc le premier !


ACCES RAPIDE

doc.png DOCUMENTATION
forum.png   FORUM GAMBAS
logiciel.png LOGICIELS GB
 gb3logo.png  GAMBASFORGE
 mailing.png  MAILING LIST
 bugtracker.png  Gambas Bug Tracker

RECHERCHE




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
actualite et medias
compteur gratuit
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^