myform.Controls.Item(i)

[Murat Kelleci]

Form:
addlist(me)

Module:

Sub addlist(ByVal myform As Form)

Dim myList As New ListBox()

myList = myform.Controls.Item(1)

mylist.items.add("test")

End Sub
I have many listboxes and text boxes and i can find their control index
number to use like myform.control.item(i).
Can u help me?

[Herfried K. Wagner [MVP]]

* "Murat Kelleci" <overflow_at_softhome_net> scripsit:

Form:
addlist(me)

Module:

Sub addlist(ByVal myform As Form)

Dim myList As New ListBox()
'As New' doesn't make sense here. Skip the 'New'.
myList = myform.Controls.Item(1)

mylist.items.add("test")

End Sub
I have many listboxes and text boxes and i can find their control index
number to use like myform.control.item(i).

???

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

[Blumidoo]

> I have many listboxes and text boxes and i can find their control index

number to use like myform.control.item(i).
Can u help me?

I don't understand your question, would you please re-phrase it?

sincerely,
--
Sebastian Zaklada
Skilled Software
http://www.skilledsoftware.com
************************************
SQL Source Control 2003 - for
SQL Server Source Safe integration
and custom databases documentation

[One Handed Man [ OHM# ]]

Dim c As Windows.Forms.Control

For Each c In Me.Controls

If c.GetType.ToString() = "System.Windows.Forms.TextBox" Then

MsgBox(c.Text)

End If

Next

Regards - OHM

Murat Kelleci wrote:

Form:
addlist(me)

Module:

Sub addlist(ByVal myform As Form)

Dim myList As New ListBox()

myList = myform.Controls.Item(1)

mylist.items.add("test")

End Sub
I have many listboxes and text boxes and i can find their control
index number to use like myform.control.item(i).
Can u help me?

Regards - OHM# OneHandedMan{at}BTInternet{dot}com

[Armin Zingler]

"One Handed Man [ OHM# ]" <OneHandedMan{at}BTInternet{dot}com> schrieb

Dim c As Windows.Forms.Control

For Each c In Me.Controls

If c.GetType.ToString() = "System.Windows.Forms.TextBox"
Then
or:
If TypeOf c Is System.Windows.Forms.Textbox Then

MsgBox(c.Text)

End If

Next

--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Herfried K. Wagner [MVP]]

* "One Handed Man [ OHM# ]" <OneHandedMan{at}BTInternet{dot}com> scripsit:

Dim c As Windows.Forms.Control

For Each c In Me.Controls

If c.GetType.ToString() = "System.Windows.Forms.TextBox" Then
Why not 'If TypeOf c Is TextBox Then'?
MsgBox(c.Text)

End If

Next

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

[One Handed Man [ OHM# ]]

I like 2 b different, you dont !

OHM
Herfried K. Wagner [MVP] wrote:

* "One Handed Man [ OHM# ]" <OneHandedMan{at}BTInternet{dot}com>
scripsit:

Dim c As Windows.Forms.Control

For Each c In Me.Controls

If c.GetType.ToString() = "System.Windows.Forms.TextBox" Then

Why not 'If TypeOf c Is TextBox Then'?

MsgBox(c.Text)

End If

Next

Regards - OHM# OneHandedMan{at}BTInternet{dot}com

[Armin Zingler]

"One Handed Man [ OHM# ]" <OneHandedMan{at}BTInternet{dot}com> schrieb

I like 2 b different, you dont !

We like types resolved at compile time. ;-)
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Herfried K. Wagner [MVP]]

* "One Handed Man [ OHM# ]" <OneHandedMan{at}BTInternet{dot}com> scripsit:

I like 2 b different, you dont !

ROFL -- I like to write "elegant" code.

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

[One Handed Man [ OHM# ]]

:)

Armin Zingler wrote:

"One Handed Man [ OHM# ]" <OneHandedMan{at}BTInternet{dot}com> schrieb

I like 2 b different, you dont !

We like types resolved at compile time. ;-)

Regards - OHM# OneHandedMan{at}BTInternet{dot}com

[One Handed Man [ OHM# ]]

:)

Herfried K. Wagner [MVP] wrote:

* "One Handed Man [ OHM# ]" <OneHandedMan{at}BTInternet{dot}com>
scripsit:

I like 2 b different, you dont !

ROFL -- I like to write "elegant" code.

Regards - OHM# OneHandedMan{at}BTInternet{dot}com

[One Handed Man [ OHM# ]]

At least my code works. )=

Herfried K. Wagner [MVP] wrote:

* "One Handed Man [ OHM# ]" <OneHandedMan{at}BTInternet{dot}com>
scripsit:

I like 2 b different, you dont !

ROFL -- I like to write "elegant" code.

Regards - OHM# OneHandedMan{at}BTInternet{dot}com

[Herfried K. Wagner [MVP]]

* "Armin Zingler" <az*******@freenet.de> scripsit:

I like 2 b different, you dont !

We like types resolved at compile time. ;-)

Who is "we"?

:-)))

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

[Herfried K. Wagner [MVP]]

* "One Handed Man [ OHM# ]" <OneHandedMan{at}BTInternet{dot}com> scripsit:

At least my code works. )=

I didn't doubt that.

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

[One Handed Man [ OHM# ]]

I think Armin is referencing a very long thread on Type Casting we were
involved in.

Regards - OHM

Herfried K. Wagner [MVP] wrote:

* "Armin Zingler" <az*******@freenet.de> scripsit:

I like 2 b different, you dont !

We like types resolved at compile time. ;-)

Who is "we"?

:-)))

Regards - OHM# OneHandedMan{at}BTInternet{dot}com

[One Handed Man [ OHM# ]]

It Voz a Joke !

I vill hold up mine hand ( mine only hand ) next time to signal you to laugh
!!

ROTFL
Regards - OHM

Herfried K. Wagner [MVP] wrote:

* "One Handed Man [ OHM# ]" <OneHandedMan{at}BTInternet{dot}com>
scripsit:

At least my code works. )=

I didn't doubt that.

Regards - OHM# OneHandedMan{at}BTInternet{dot}com

[Armin Zingler]

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> schrieb

* "Armin Zingler" <az*******@freenet.de> scripsit:

I like 2 b different, you dont !

We like types resolved at compile time. ;-)

Who is "we"?

:-)))

You and I, because we gave the same answer.
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Cor]

I have not seen a pInvoke in this thread so it is not something Herfried
likes

You and I, because we gave the same answer.

(I know the answer from Armin on this)

:-))

Cor

[Herfried K. Wagner [MVP]]

* "One Handed Man [ OHM# ]" <OneHandedMan{at}BTInternet{dot}com> scripsit:

It Voz a Joke !

I vill hold up mine hand ( mine only hand ) next time to signal you to laugh
!!

ROTFL

LOL -- I dodn't interpret the ")=" as a smiley...

;-)

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

[Herfried K. Wagner [MVP]]

* "Cor" <no*@non.com> scripsit:

I have not seen a pInvoke in this thread so it is not something Herfried
likes

Mhm... Are you sure I like p/invoke?

;-)

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