Object reference not set

[localhost]

Can someone point me the small error I have made here?
Public Sub InitBestand()
Dim Programma As Application
gstrBestand = Programma.UserAppDataPath
If Strings.Right(gstrBestand, 1) <> "\" Then gstrBestand &= "\"
gstrBestand &= "beginner.txt"
End Sub
The error is:
An unhandled exception of type 'System.NullReferenceException' occurred in
system.windows.forms.dll

Additional information: Object reference not set to an instance of an
object.

The line with the error is:
gstrBestand = Programma.UserAppDataPath

I thought it was enough to do "Dim Programma As Application"
Apparently not?

--
localghost

[One Handed Man [ OHM# ]]

Dim Programma As New Application

Regards - OHM

localhost wrote:

Can someone point me the small error I have made here?
Public Sub InitBestand()
Dim Programma As Application
gstrBestand = Programma.UserAppDataPath
If Strings.Right(gstrBestand, 1) <> "\" Then gstrBestand &=
"\" gstrBestand &= "beginner.txt"
End Sub
The error is:
An unhandled exception of type 'System.NullReferenceException'
occurred in system.windows.forms.dll

Additional information: Object reference not set to an instance of an
object.

The line with the error is:
gstrBestand = Programma.UserAppDataPath

I thought it was enough to do "Dim Programma As Application"
Apparently not?

--
Best Regards - OHM

O_H_M{at}BTInternet{dot}com

[Herfried K. Wagner [MVP]]

* localhost <lo*******@localdomain.org> scripsit:

Can someone point me the small error I have made here?

Public Sub InitBestand()
Dim Programma As Application
gstrBestand = Programma.UserAppDataPath
If Strings.Right(gstrBestand, 1) <> "\" Then gstrBestand &= "\"
gstrBestand &= "beginner.txt"
End Sub

Skip the 1st line and use this:

\\\
gstrBestand = Application.UserAppDataPath
///

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Hexathioorthooxalate]

???

I'm just working on this one, 'twas my first try too but the constructor for
"Application" is private.
Hex.

"One Handed Man [ OHM# ]" <O_H_M{at}BTInternet{dot}com> wrote in message
news:%2****************@TK2MSFTNGP09.phx.gbl...

Dim Programma As New Application

Regards - OHM

localhost wrote:

Can someone point me the small error I have made here?
Public Sub InitBestand()
Dim Programma As Application
gstrBestand = Programma.UserAppDataPath
If Strings.Right(gstrBestand, 1) <> "\" Then gstrBestand &=
"\" gstrBestand &= "beginner.txt"
End Sub
The error is:
An unhandled exception of type 'System.NullReferenceException'
occurred in system.windows.forms.dll

Additional information: Object reference not set to an instance of an
object.

The line with the error is:
gstrBestand = Programma.UserAppDataPath

I thought it was enough to do "Dim Programma As Application"
Apparently not?

--
Best Regards - OHM

O_H_M{at}BTInternet{dot}com

[localhost]

"One Handed Man [ OHM# ]" <O_H_M{at}BTInternet{dot}com> wrote in news:
#M**************@TK2MSFTNGP09.phx.gbl:

localhost wrote:

Can someone point me the small error I have made here?
Public Sub InitBestand()
Dim Programma As Application
gstrBestand = Programma.UserAppDataPath
If Strings.Right(gstrBestand, 1) <> "\" Then gstrBestand &=
"\" gstrBestand &= "beginner.txt"
End Sub

Dim Programma As New Application

Regards - OHM

I already guessed, thanks anyway. By the way, .NET added paranthesis after
Application.

But now I get "Overload resolution failed because no 'New' is accessible."

--
localghost

[localhost]

hi***************@gmx.at (Herfried K. Wagner [MVP]) wrote in
news:u4**************@TK2MSFTNGP09.phx.gbl:

* localhost <lo*******@localdomain.org> scripsit:

Can someone point me the small error I have made here?

Public Sub InitBestand()
Dim Programma As Application
gstrBestand = Programma.UserAppDataPath
If Strings.Right(gstrBestand, 1) <> "\" Then gstrBestand &= "\"
gstrBestand &= "beginner.txt"
End Sub

Skip the 1st line and use this:

\\\
gstrBestand = Application.UserAppDataPath
///

No, same error again. Now on this new line you suggested.
:(

--
localghost

[Hexathioorthooxalate]

Not totally confident on why your solution doesn't work but for the
meantime, try

Public Sub InitBestand()
' Dim Programma As Application
' gstrBestand = Programma.UserAppDataPath
gstrBestand = Application.UserAppDataPath
If Strings.Right(gstrBestand, 1) <> "\" Then gstrBestand &= "\"
End Sub

Hexathioorthooxalate
"One Handed Man [ OHM# ]" <O_H_M{at}BTInternet{dot}com> wrote in message
news:%2****************@TK2MSFTNGP09.phx.gbl...

Dim Programma As New Application

Regards - OHM

localhost wrote:

Can someone point me the small error I have made here?
Public Sub InitBestand()
Dim Programma As Application
gstrBestand = Programma.UserAppDataPath
If Strings.Right(gstrBestand, 1) <> "\" Then gstrBestand &=
"\" gstrBestand &= "beginner.txt"
End Sub
The error is:
An unhandled exception of type 'System.NullReferenceException'
occurred in system.windows.forms.dll

Additional information: Object reference not set to an instance of an
object.

The line with the error is:
gstrBestand = Programma.UserAppDataPath

I thought it was enough to do "Dim Programma As Application"
Apparently not?

--
Best Regards - OHM

O_H_M{at}BTInternet{dot}com

[localhost]

"Hexathioorthooxalate" <ru***@spameremove.clara.co.uk> wrote in
news:10****************@demeter.uk.clara.net:

???

I'm just working on this one, 'twas my first try too but the
constructor for "Application" is private.
Hex.

I'm not as good as most people here, but is "private constructor for
Application" just another way of saying you cannot use "New"?

PS: until a week ago I dabbled around in VB6, so bear with me. :)

--
localghost

[Hexathioorthooxalate]

"localhost" <lo*******@localdomain.org> wrote in message
news:rO**********************@phobos.telenet-ops.be...

"Hexathioorthooxalate" <ru***@spameremove.clara.co.uk> wrote in
news:10****************@demeter.uk.clara.net:

???

I'm just working on this one, 'twas my first try too but the
constructor for "Application" is private.
Hex.
I'm not as good as most people here, but is "private constructor for
Application" just another way of saying you cannot use "New"?

Yes.

It is odd you are getting this error. Both your original solution, and the
one I posted a few minutes ago, work fine for me (VS2003, .NET 1.1).

PS: until a week ago I dabbled around in VB6, so bear with me. :)

--
localghost

[localhost]

"Hexathioorthooxalate" <ru***@spameremove.clara.co.uk> wrote in
news:10****************@demeter.uk.clara.net:

"localhost" <lo*******@localdomain.org> wrote in message
news:rO**********************@phobos.telenet-ops.be...

"Hexathioorthooxalate" <ru***@spameremove.clara.co.uk> wrote in
news:10****************@demeter.uk.clara.net:

> ???
>
> I'm just working on this one, 'twas my first try too but the
> constructor for "Application" is private.
> Hex.

I'm not as good as most people here, but is "private constructor for
Application" just another way of saying you cannot use "New"?

Yes.

It is odd you are getting this error. Both your original solution, and
the one I posted a few minutes ago, work fine for me (VS2003, .NET
1.1).

I am using VS2002 and .NET 1.0.
Could that be the root cause of all evil?

--
localghost

[Hexathioorthooxalate]

Just to so we'll all looking at the same picture, create a new WinForms
application with a single form (called Form1), pop a button on the form
(called Button1), and paste in the following.

When you click the Button, do you get the same error?
Option Strict On
Option Explicit On

Public Class Form1
Inherits System.Windows.Forms.Form

'[+]Windows Form Designer Code

Public Sub InitBestand()
Dim gstrBestand As String = Application.UserAppDataPath
If Strings.Right(gstrBestand, 1) <> "\" Then gstrBestand &= "\"
MsgBox(gstrBestand)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Call InitBestand()
End Sub
End Class

"localhost" <lo*******@localdomain.org> wrote in message
news:cT**********************@phobos.telenet-ops.be...

"Hexathioorthooxalate" <ru***@spameremove.clara.co.uk> wrote in
news:10****************@demeter.uk.clara.net:

"localhost" <lo*******@localdomain.org> wrote in message
news:rO**********************@phobos.telenet-ops.be...

"Hexathioorthooxalate" <ru***@spameremove.clara.co.uk> wrote in
news:10****************@demeter.uk.clara.net:

> ???
>
> I'm just working on this one, 'twas my first try too but the
> constructor for "Application" is private.
> Hex.

I'm not as good as most people here, but is "private constructor for
Application" just another way of saying you cannot use "New"?

Yes.

It is odd you are getting this error. Both your original solution, and
the one I posted a few minutes ago, work fine for me (VS2003, .NET
1.1).

I am using VS2002 and .NET 1.0.
Could that be the root cause of all evil?

--
localghost

[localhost]

"Hexathioorthooxalate" <ru***@spameremove.clara.co.uk> wrote in
news:10****************@demeter.uk.clara.net:

Just to so we'll all looking at the same picture, create a new WinForms
application with a single form (called Form1), pop a button on the form
(called Button1), and paste in the following.

When you click the Button, do you get the same error?
Option Strict On
Option Explicit On

Public Class Form1
Inherits System.Windows.Forms.Form

'[+]Windows Form Designer Code

Public Sub InitBestand()
Dim gstrBestand As String = Application.UserAppDataPath
If Strings.Right(gstrBestand, 1) <> "\" Then gstrBestand &= "\"
MsgBox(gstrBestand)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Call InitBestand()
End Sub
End Class

Hmmm... that works?
What now? Throw away my old application and copy/paste the code to the new
one?

--
localghost

[Hexathioorthooxalate]

Hmmm... that works?
What now? Throw away my old application and copy/paste the code to the new
one?

--
localghost

Or go bug hunting!

Glad to be of help.
Hex.

[Tom Leylan]

"localhost" <lo*******@localdomain.org> wrote...

Can someone point me the small error I have made here? Public Sub InitBestand()
Dim Programma As Application
gstrBestand = Programma.UserAppDataPath
If Strings.Right(gstrBestand, 1) <> "\" Then gstrBestand &= "\"
gstrBestand &= "beginner.txt"
End Sub I thought it was enough to do "Dim Programma As Application"
Apparently not?

I believe two things are going on here. The first problem is that you are
defining variable as type Application but not assigning it any reference to
an Application. You cannot create an instance of the Application class. So
that's why you are getting the null reference exception, the reference is
null.

Now as to why it doesn't work when you reference Application.UserAppDataPath
directly? Something else is up. When something odd happens I suggest you
simply start over with a new test app and just try to type the single line
Console.Writeline(Application.UserAppDataPath)

You should see UserAppDataPath show up in IntelliSense and of course it
should output the path when you run it.

Tom

[Herfried K. Wagner [MVP]]

* localhost <lo*******@localdomain.org> scripsit:

gstrBestand = Application.UserAppDataPath
///

No, same error again. Now on this new line you suggested.
:(

Are you using 'System.Windows.Forms.Application' or a user defined
class? Maybe you have to instantiate this class:

\\\
Dim d As New Application()
///

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[localhost]

hi***************@gmx.at (Herfried K. Wagner [MVP]) wrote in news:
#P**************@TK2MSFTNGP10.phx.gbl:

* localhost <lo*******@localdomain.org> scripsit:

gstrBestand = Application.UserAppDataPath
///

No, same error again. Now on this new line you suggested.
:(

Are you using 'System.Windows.Forms.Application' or a user defined
class? Maybe you have to instantiate this class:

\\\
Dim d As New Application()
///

uhhh... dunno.
I started again with a new app and copied all the code over.
No more problems now...

[localhost]

"Hexathioorthooxalate" <ru***@spameremove.clara.co.uk> wrote in
news:10****************@demeter.uk.clara.net:

Hmmm... that works?
What now? Throw away my old application and copy/paste the code to
the new one?

--
localghost
Or go bug hunting!

A technique I often use when bug hunting, is putting MsgBox-es all over to
see what is going on. I've learned one thing: NEVER EVER put a msgbox in a
sub that handles the activated event of a form...
form activated --> msgbox pops up --> form is deactivated
close msgbox --> form is activated again --> msgbox popup...

aaaaaargh!
:-@
Glad to be of help.
Hex.

Thanks for giving me a few clues.

[localhost]

"Tom Leylan" <ge*@iamtiredofspam.com> wrote in
news:Op**************@TK2MSFTNGP10.phx.gbl:

Now as to why it doesn't work when you reference
Application.UserAppDataPath directly? Something else is up. When
something odd happens I suggest you simply start over with a new test
app and just try to type the single line
Console.Writeline(Application.UserAppDataPath)

Yup, already did that.
See Message-ID: <n9**********************@phobos.telenet-ops.be>

[localhost]

"Tom Leylan" <ge*@iamtiredofspam.com> wrote in
news:Op**************@TK2MSFTNGP10.phx.gbl:

Now as to why it doesn't work when you reference
Application.UserAppDataPath directly? Something else is up. When
something odd happens I suggest you simply start over with a new test
app and just try to type the single line
Console.Writeline(Application.UserAppDataPath)

Already did that.
See Message-ID: <36**********************@phobos.telenet-ops.be>
Thanks anyway.

--
localghost

[Amedee Van Gasse (localghost)]

localhost <lo*******@localdomain.org> wrote in
news:jn**********************@phobos.telenet-ops.be:

Can someone point me the small error I have made here?

Thanks to everybody who tried to help.

--
Amedee Van Gasse

[Amedee Van Gasse (localghost)]

"Hexathioorthooxalate" <ru***@spameremove.clara.co.uk> wrote in
news:10****************@demeter.uk.clara.net:

By the way, why do you use [C2S6]6- as a nickname on the usenet?
I know it's something with anorganic salts, but what exactly?

--
Amedee Van Gasse aka localghost

[Amedee Van Gasse (localghost)]

"Hexathioorthooxalate" <ru***@spameremove.clara.co.uk> wrote in
news:10****************@demeter.uk.clara.net:

By the way, why do you use [C2S6]6- as a nickname on the usenet?
I know it's something with anorganic salts, but what exactly?

--
Amedee Van Gasse aka localghost

[Amedee Van Gasse (localghost)]

"Hexathioorthooxalate" <ru***@spameremove.clara.co.uk> wrote in
news:10****************@demeter.uk.clara.net:

By the way, why do you use [C2S6]6- as a nickname on the usenet?
I know it's something with anorganic salts, but what exactly?

--
Amedee Van Gasse aka localghost

[Hexathioorthooxalate]

Just a nomme de plume, currently unique. Unfortunately my joint christian
and surnames are still not unique, and I wouldn't want to use them anyway as
every now and then we all observe newsgroup flaming campaigns. If this were
ever happen to me, I would prefer the anonymity.
Hex

See:

http://groups.google.co.uk/groups?hl...TF-8%26hl%3Den


"Amedee Van Gasse (localghost)" <am****@amedee.doesnotwantspam.be> wrote in
message news:eL**********************@phobos.telenet-ops.be...

"Hexathioorthooxalate" <ru***@spameremove.clara.co.uk> wrote in
news:10****************@demeter.uk.clara.net:

By the way, why do you use [C2S6]6- as a nickname on the usenet?
I know it's something with anorganic salts, but what exactly?

--
Amedee Van Gasse aka localghost