Create new "me"

[M O J O]

Hi,

Instead of doing this....
Public Class Form1
Public Shared Sub CreateAndShow()
Dim f As New Form1
f.Show()
End Sub
End Class

I would like to make it generic by doing something like...

Public Class Form1
Public Shared Sub CreateAndShow()
Dim f As New Me
f.Show()
End Sub
End Class

.... but "Me" is not accepted, neither is "Dim f As New TypeOf(Me)".

I would like to put the CreateAndShow in a base form and then inherit from
it and still be able to use the CreateAndShow method.

Any suggestions? TANKS!!! :o)

M O J O

[teslar91]

That's a good idea, so I tried solving it as an exercise. The good
news is that it works.

The bad news is that I've been learning .NET for about a week, so I'm
rather embarassed to show you how I did it. But here goes:

Dim s1 As String = Me.ToString
' s1 is in the format "WindowsApplica tion1.Form1, Text: Form1"
' Now remove the part that isn't the class name.
Dim i1 As Integer = InStr(s1, ",")
If i1 0 Then s1 = Mid(s1, 1, i1 - 1)
' Note: Can't use Left(s1, i1-1) above - for some reason VB thinks
I'm trying to
' access Me.Left instead! <grrr>
Dim objNewForm As Object =
Activator.Creat eInstance(Type. GetType(s1))
Dim frm As Form = DirectCast(objN ewForm, Form)
frm.Show()

[teslar91]

Ok, I worked on it some more, and this version is far less embarrasing!
Enjoy:

DirectCast(Acti vator.CreateIns tance(Type.GetT ype(Me.GetType. ToString)),
Form).Show()

[Andrew Morton]

te******@hotmai l.com wrote:

If i1 0 Then s1 = Mid(s1, 1, i1 - 1)
' Note: Can't use Left(s1, i1-1) above - for some reason VB thinks
I'm trying to
' access Me.Left instead! <grrr>

You can use the line:

Imports VB = Microsoft.Visua lBasic

before your code so that you can use VB.Left(s1, i1-1). That tells it that
you want to use VB as an abbreviation for Microsoft.Visua lBasic.

Also, if you use Option Strict On, it will tell you when things don't match
up the way they should.

HTH

Andrew

[M O J O]

Hi teslar91,

Thanks for helping me out here.

My problem is, that I can't use "Me", so your solution...

Public Shared Sub CreateAndShow()
Dim s1 As String = Me.ToString
' s1 is in the format "WindowsApplica tion1.Form1, Text: Form1"
' Now remove the part that isn't the class name.
Dim i1 As Integer = InStr(s1, ",")
If i1 0 Then s1 = Mid(s1, 1, i1 - 1)
' Note: Can't use Left(s1, i1-1) above - for some reason VB thinks'm
trying to
' access Me.Left instead! <grrr>
Dim objNewForm As Object = Activator.Creat eInstance(Type. GetType(s1))
Dim frm As Form = DirectCast(objN ewForm, Form)
frm.Show()
End Sub
.... gives me this error:

'Me' is valid only within an instance method.

I need to call the sub inside a shared sub, so I don't have an instance yet.

Any other suggestions? :o(

M O J O

"te******@hotma il.com" wrote:

Ok, I worked on it some more, and this version is far less embarrasing!
Enjoy:

DirectCast(Acti vator.CreateIns tance(Type.GetT ype(Me.GetType. ToString)),
Form).Show()

[Robinson]

>
'Me' is valid only within an instance method.

I need to call the sub inside a shared sub, so I don't have an instance
yet.

Any other suggestions? :o(

M O J O

Static (shared) methods don't have a "Me". They are applicable to any
instance, hence cannot work on any specific instance. In this case you have
to pass in a "Me" as a parameter.

[Cor Ligthert [MVP]]

Mojo,

It is possible to create objects from classes. But never objects from
objects. (Although object is a class itself as well. To be more precise the
highest class from which every thing derives).

The startup form is a kind of strange thing in VB.Net (but handy) it has
inbuild a Sub main, where in it creates an object from itself. For the same
case you use a Module or Shared Class in which you can create your form
object. Than you can create as much objects from that class as you wish.

I hope this gives an idea.

Cor

"M O J O" <MO**@discussio ns.microsoft.co mschreef in bericht
news:88******** *************** ***********@mic rosoft.com...

Hi,

Instead of doing this....
Public Class Form1
Public Shared Sub CreateAndShow()
Dim f As New Form1
f.Show()
End Sub
End Class

I would like to make it generic by doing something like...

Public Class Form1
Public Shared Sub CreateAndShow()
Dim f As New Me
f.Show()
End Sub
End Class

... but "Me" is not accepted, neither is "Dim f As New TypeOf(Me)".

I would like to put the CreateAndShow in a base form and then inherit from
it and still be able to use the CreateAndShow method.

Any suggestions? TANKS!!! :o)

M O J O

[GhostInAK]

Hello M O J O,

What's the point of this? If the goal is to not have to call .Show when
you create a form (lazy-ass).. then add Me.Show to the base form's ctor.

-Boo

Hi,

Instead of doing this....

Public Class Form1
Public Shared Sub CreateAndShow()
Dim f As New Form1
f.Show()
End Sub
End Class
I would like to make it generic by doing something like...

Public Class Form1
Public Shared Sub CreateAndShow()
Dim f As New Me
f.Show()
End Sub
End Class
... but "Me" is not accepted, neither is "Dim f As New TypeOf(Me)".

I would like to put the CreateAndShow in a base form and then inherit
from it and still be able to use the CreateAndShow method.

Any suggestions? TANKS!!! :o)

M O J O

[Oenone]

M O J O wrote:

My problem is, that I can't use "Me", so your solution...

[...]

... gives me this error:

'Me' is valid only within an instance method.

I need to call the sub inside a shared sub, so I don't have an
instance yet.

Try this:

\\\
Dim myTypeName As String
Dim myObject As Object

'Get the name of the type of this class
myTypeName =
Reflection.Meth odBase.GetCurre ntMethod.Declar ingType.ToStrin g
'Create a new instance of this type
myObject = Activator.Creat eInstance(Type. GetType(myTypeN ame))
///

This can be used in a Shared method. It uses Reflection to get a handle to
the executing method, and from there to the type that contains that method
(i.e., your class). It then uses the Activator object to create a new
instance of an object of that type. Hopefully this will get you closer to
where you want to be?

--

(O)enone

[Steve Long]

-Boo,
Must you berate everyone?
"GhostInAK" <gh*******@gmai l.comwrote in message
news:be******** *************** ***@news.micros oft.com...

Hello M O J O,

What's the point of this? If the goal is to not have to call .Show when
you create a form (lazy-ass).. then add Me.Show to the base form's ctor.
-Boo

>Hi,

Instead of doing this....

Public Class Form1
Public Shared Sub CreateAndShow()
Dim f As New Form1
f.Show()
End Sub
End Class
I would like to make it generic by doing something like...

Public Class Form1
Public Shared Sub CreateAndShow()
Dim f As New Me
f.Show()
End Sub
End Class
... but "Me" is not accepted, neither is "Dim f As New TypeOf(Me)".

I would like to put the CreateAndShow in a base form and then inherit
from it and still be able to use the CreateAndShow method.

Any suggestions? TANKS!!! :o)

M O J O