Probleme de référence d'objet

Version imprimable

Voici mon 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
Partial Public Class MasterPage
    Inherits System.Web.UI.MasterPage
    Dim buffers As String
    Protected page_niveaux As String
    Protected page_niveaux_int As Integer
    Protected page_titrex As String
    Dim cTitre As Color = Color.FromArgb(255, 218, 185) 'PeachPuff
    Dim cTitre2 As Color = Color.FromArgb(255, 235, 205) 'BlanchedAlmond
    Dim cNegatif As Color = Color.Crimson
    Dim cPositif As Color = Color.Green
    Dim cPourcent As Color = Color.SlateGray
    Dim cFond As Color = Color.White
    Dim cFond2 As Color = Color.Lavender
    Dim cFond3 As Color = Color.MistyRose
    Dim cTexte1 As Color = Color.Navy
    Dim cTexte2 As Color = Color.Black
    Dim cTexte3 As Color = Color.Navy
    Dim cInv As Color = Color.Gray
    Public strConnection As String = "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = """ & Server.MapPath("../Database/netprox.mdb") & """"
    Public strConnectionSIMINTRANET As String = "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = """ & Server.MapPath("../Database/SimIntranet.mdb") & """"
    Public etoile As String = "<font style=""FONT-FAMILY:Arial,Helvetica,sans-serif; COLOR:#ff0000; FONT-SIZE:18px; FONT-WEIGHT:bold;"">&nbsp;*</font>"
    Public urlOleane As String = "https://clients.fr.oleane.com/login.php?username=admin@siminves.fr.fto&password=VBeE45Ty"
    Public urlDell As String = "http://docs.euro.dell.com/register.asp?r=EMEA&c=fr&l=fr&s=BSD&referrer=/docs/systems/dim4600/fr/series_fr.htm&sys=S&st="

Et mon erreur:
"La référence d'objet n'est pas définie à une instance d'un objet."

J'ai essayé de faire:
Dim cInv as new Color
cInv = Color.LightGray

Mais rien ne semble aller...
De plus si je supprime cette ligne, il me met la même erreur sur la ligne suivante, et ainsi de suite!

Merci de votre aide!

01/04/2008, 10h16
BCmDev

Tu ne peux pas utiliser Server car cette propriété n'est pas initialisée : c'est trop tôt.
01/04/2008, 10h18
Erazion

Désolé mais l'erreur est à ce niveau "Dim cInv As Color = Color.Gray"
Tu penses que l'utilisation postérieure de server change qque chose?

L'erreur ne peut pas être sur

Code:

1
2
 
Dim cInv As Color = Color.Gray

Déplace les initialisations dans le Page_Load par exemple :

Code:

1
2
3
4
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        strConnection = "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = """ & Server.MapPath("../Database/netprox.mdb") & """"
    End Sub

et dis-moi ce qu'il en est.

D'accord j'essaie tout de suite

Hum.. Si je déplace les declarations dans mon page_load() , il se passe un truc bizarre... Les problèmes remontent...

Je te montre:

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
    Sub page_load(ByVal obj As Object, ByVal e As EventArgs) Handles Me.Load
        lbl.Text = title
        tbl.Width = width
        tbl.BackColor = ColorTranslator.FromHtml(backcolor)
        tbl.ForeColor = ColorTranslator.FromHtml(forecolor)
        Public strConnection As String = "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = """ & Server.MapPath("../Database/netprox.mdb") & """"
        Public strConnectionSIMINTRANET As String = "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = """ & Server.MapPath("../Database/SimIntranet.mdb") & """"
        Public etoile As String = "<font style=""FONT-FAMILY:Arial,Helvetica,sans-serif; COLOR:#ff0000; FONT-SIZE:18px; FONT-WEIGHT:bold;"">&nbsp;*</font>"
        Public urlOleane As String = "https://clients.fr.oleane.com/login.php?username=admin@siminves.fr.fto&password=VBeE45Ty"
        Public urlDell As String = "http://docs.euro.dell.com/register.asp?r=EMEA&c=fr&l=fr&s=BSD&referrer=/docs/systems/dim4600/fr/series_fr.htm&sys=S&st="
    End Sub
    Dim buffers As String
    Protected page_niveaux As String
    Protected page_niveaux_int As Integer
    Protected page_titrex As String
    Dim cTitre As Color = Color.FromArgb(255, 218, 185) 'PeachPuff
    Dim cTitre2 As Color = Color.FromArgb(255, 235, 205) 'BlanchedAlmond
    Dim cNegatif As Color = Color.Crimson
    Dim cPositif As Color = Color.Green
    Dim cPourcent As Color = Color.SlateGray
    Dim cFond As Color = Color.White
    Dim cFond2 As Color = Color.Lavender
    Dim cFond3 As Color = Color.MistyRose
    Dim cTexte1 As Color = Color.Navy
    Dim cTexte2 As Color = Color.Black
    Dim cTexte3 As Color = Color.Navy
    Dim cInv As Color = Color.Gray

Détails de l'exception: System.NullReferenceException: La référence d'objet n'est pas définie à une instance d'un objet.

Erreur source:

Ligne 147 : Protected page_niveaux As String
Ligne 148 : Protected page_niveaux_int As Integer
Ligne 149 : Protected page_titrex As String
Ligne 150 : Dim cTitre As Color = Color.FromArgb(255, 218, 185) 'PeachPuff
Ligne 151 : Dim cTitre2 As Color = Color.FromArgb(255, 235, 205) 'BlanchedAlmond

On dirait que le probleme se situe a la ligne 149 dans tous les cas :(

01/04/2008, 11h51
Kelpan

Et après compilation ...