[VB.net 1.1] Developpement Objet

Version imprimable

09/10/2006, 15h50
malhivertman1

[VB.net 1.1] Developpement Objet

Bonjour,

J'aimerai créer une dll pour y stocker des fonctions graphiques mais je ne sais comment faire.
J'ai d'abord créer un Design.vb dans l'assembly mais aprés ça....:?

Si qq peut m'aider, je lui serait trés reconnaissant !
09/10/2006, 15h55
elkamy

salut,

tu ajoute un projet bibliothèque de classes

tu construit tes classes avec toutes tes méthodes qui vont bien ,

tu génére ton projet , et alors dans le bin de ton projet tu trouve ta dll

voila .
09/10/2006, 15h58
malhivertman1

et donc, je ne peux pas, a partir de mon projet existant et de mon Design.vb, faire ma dll?
09/10/2006, 16h05
elkamy

en fait faut que tu passe par une bibliothèque de class , c'est elle qui va générer ta dll.

Donc tu peux demarrer un projet Bibliothèque de classe, dans ton projet tu peux ajouter des forms.

ensuite tu génére , et la tu auras ta dll

voila
09/10/2006, 16h07
malhivertman1

ok merci, je vais regarder ça !
09/10/2006, 16h13
malhivertman1

par contre les Imports que je fesai pour avoir les éléments qui me servait pour le dessin graphique ne sont pas reconnu dans le projet Bibliotheque de classe..:cry:
09/10/2006, 16h29
elkamy

Comment ca ?

faut importer celle des winforms aussi, je pense
09/10/2006, 16h40
malhivertman1
Citation:

Envoyé par elkamy

Comment ca ?

Quand je met
Code:

1 2 Imports System.Drawing Imports System.Drawing.Imaging
J'ai une erreur genre 'System.Drawing introuvable'
10/10/2006, 09h18
malhivertman1

En fait, il ne sont pas présent dans les Imports System, comment faire pour les importer qd même?

ok il fallait juste que j'ajoute qq référence dans mon projet et c'etait bon.
Donc reprenons, j'ai créer un projet Bibliotheques de classe ou dedans, j'ai ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
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

Code:

Dim test As New Design

j'ai un erreur qui me dit "type attendu" et je suis obligé de faire

Code:

Dim gael As New Design.Design

J'aimerai savoir pk?

Merci

10/10/2006, 15h50
malhivertman1

Le probleme d'avant est reglé mais maintenant ça me dit, "reponse non disponible dans ce contexte", ce veut dire quoi?

C'est des que ca passe sur Dim test as New Design que ça me dit ça