malhivertman1
Messages postés489Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention22 novembre 2007
-
10 oct. 2006 à 13:37
malhivertman1
Messages postés489Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention22 novembre 2007
-
11 oct. 2006 à 10:32
J'ai créer un projet Bibliotheques de classe ou dedans, j'ai ce code
Imports System.Drawing
Imports System.Drawing.Imaging
Public Class Design
Inherits System.Web.UI.Page
Private Montitre As String
Private Largeur As Integer
Private Hauteur As Integer
Private CouleurFond As Color
Public Sub New()
Dim MonBitMap As New Bitmap(350, 150)
Dim MonObjGfx As Graphics
MonObjGfx = Graphics.FromImage(MonBitMap)
' On met un fond blanc
MonObjGfx.Clear(Color.Red)
' On trace un rectangle tout autour de notre image
MonObjGfx.DrawRectangle(Pens.Black, 0, 0, 350, 150)
' On donne un titre à notre graphique
MonObjGfx.DrawString("Test", New Font("Verdana", 10, FontStyle.Bold), Brushes.Blue, New PointF(5, 5))
' On trace le rectangle de couleur Bleu
'MonObjGfx.FillRectangle(New SolidBrush(Color.Blue), 45 + 5, 230, 13, 10)
' Antialiasing
MonObjGfx.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
MonBitMap.Save(Response.OutputStream, ImageFormat.Gif)
End Sub
Public Sub New(ByVal Montitre As String, ByVal Largeur As Integer, ByVal Hauteur As Integer, ByVal CouleurFond As Color)
Dim MonBitMap As New Bitmap(Largeur, Hauteur)
Dim MonObjGfx As Graphics
MonObjGfx = Graphics.FromImage(MonBitMap)
' On met un fond blanc
MonObjGfx.Clear(CouleurFond)
' On trace un rectangle tout autour de notre image
MonObjGfx.DrawRectangle(Pens.Black, 0, 0, Largeur, Hauteur)
' On donne un titre à notre graphique
MonObjGfx.DrawString(Montitre, New Font("Verdana", 10, FontStyle.Bold), Brushes.Blue, New PointF(5, 5))
' On trace le rectangle de couleur Bleu
'MonObjGfx.FillRectangle(New SolidBrush(CouleurGraph), 45 + 5, 230, 13, 10)
' Antialiasing
MonObjGfx.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
MonBitMap.Save(Response.OutputStream, ImageFormat.Jpeg)
End Sub
End Class
Ensuite, je genere ma dll mais qd je l'ajoute a un autre projet et que je veux faire
Dim test As New Design
j'ai un erreur qui me dit "type attendu" et je suis obligé de faire
malhivertman1
Messages postés489Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention22 novembre 20071 11 oct. 2006 à 08:34
Une derniere chose est je te laisse tranquil
En fait, je voudrait que mon dessin soit dessiné directement sur ma page, or la, ca ne fait rien.
Pourtant qd je place mon code sur une page aspx et que je l'apel d'une image, j'ai bien un carré rouge qui apparait donc qu'est-ce qu'il faut que je modifie pour qu'il soit visible directement, sans passer par une image?
nhervagault
Messages postés6063Date d'inscriptiondimanche 13 avril 2003StatutMembreDernière intervention15 juillet 201137 11 oct. 2006 à 10:14
Salut,
J'ai enfin trouvé pourquoi tu n'arrivais pas à faire fonctionner ton premier code
et pourquoi tu n'arrives pas a afficher ton image.
Après quelques recherches.
et analyse de ton code, j'ai découvert ton problème
c'est que tu travailles dans le new et pas dans le page load
Et donc dans le new qui est la première fonction du cycle de vie de la page.
Et donc response n'est pas connue car il est initialiser dans les fonctions
page_init, ... de la page je ne sais pas laquelle. (il faudrait passer un coup de refector dessus)
En mettant ton code dans le le page load tout tourne correctement.
malhivertman1
Messages postés489Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention22 novembre 20071 11 oct. 2006 à 10:32
Oui la, en fait, j'apel une fonction de ma classe a partir du New et tout marche.
Par contre, comment faire pour que j'ai accés a cette classe a partir de la boite d'outils?