[Visual Basic 6] Looping through form objects. - Tilted Forum Project Discussion Community

John Henry · 05-05-2004, 07:46 AM

I'm writing a program that takes data from a load of textboxes on a form and puts them in a database. I know about the With command and I figure there must be some way to loop through all the textboxes on a particular form rather than having to cut and paste instructions for each one.

Can't find anything in the documentation/Google/Experts-Exchange etc. as I don't really know what I'm looking for.

Any ideas?

Stompy · 05-05-2004, 10:20 AM

Assuming all your textboxes are prefixed with "txt", you could try something like:

Code:

    Dim e As Control
    
    For Each e In Me.Controls
        If (TypeOf e Is TextBox) Then
            MsgBox e.Name + " = " + e.Text
        End If
    Next

I haven't used VB in a while, so I don't remember if there's a way to check the type of a control... like "if e is TextBox" (which you can do in .net)

[edit]

NM, Just remembered it. Code above edited for TypeOf

John Henry · 05-06-2004, 03:33 AM

Excellent. Cheers

AxelF · 05-06-2004, 11:44 AM

Just name them the same and they will be a collection. Then you access them using their index. Having 4 boxes they will be indexed 0-3. Like txtPlants(1) for the second one.
( It looks best in the code if you define global constants naming them:

cTrees = 0
cFlowers = 1 etc.

Then reference them like this: txtPlants(cTrees)
)

They will share the same code with the index passed into the sub if you have some code on Click for example.

By doing this you can loop through them like:

for i = 0 to 4

' your code here using this kind of reference: txtPlants(i)

next i

05-05-2004, 07:46 AM	#1 (permalink)
John Henry Addict Location: Grey Britain	[Visual Basic 6] Looping through form objects. I'm writing a program that takes data from a load of textboxes on a form and puts them in a database. I know about the With command and I figure there must be some way to loop through all the textboxes on a particular form rather than having to cut and paste instructions for each one. Can't find anything in the documentation/Google/Experts-Exchange etc. as I don't really know what I'm looking for. Any ideas? __________________ "No one was behaving from very Buddhist motives. Then, thought Pigsy, he was hardly a Buddha, nor was he a monkey. Presently, he was a pig spirit changed into a little girl pretending to be a little boy to be offered to a water monster. It was all very simple to a pig spirit."

05-05-2004, 10:20 AM	#2 (permalink)
Stompy Banned from being Banned Location: Donkey	Assuming all your textboxes are prefixed with "txt", you could try something like: Code: Dim e As Control For Each e In Me.Controls If (TypeOf e Is TextBox) Then MsgBox e.Name + " = " + e.Text End If Next I haven't used VB in a while, so I don't remember if there's a way to check the type of a control... like "if e is TextBox" (which you can do in .net) [edit] NM, Just remembered it. Code above edited for TypeOf __________________ I love lamp. Last edited by Stompy; 05-05-2004 at 10:24 AM..

05-06-2004, 03:33 AM	#3 (permalink)
John Henry Addict Location: Grey Britain	Excellent. Cheers __________________ "No one was behaving from very Buddhist motives. Then, thought Pigsy, he was hardly a Buddha, nor was he a monkey. Presently, he was a pig spirit changed into a little girl pretending to be a little boy to be offered to a water monster. It was all very simple to a pig spirit."

05-06-2004, 11:44 AM	#4 (permalink)
AxelF Crazy Location: Europe	Just name them the same and they will be a collection. Then you access them using their index. Having 4 boxes they will be indexed 0-3. Like txtPlants(1) for the second one. ( It looks best in the code if you define global constants naming them: cTrees = 0 cFlowers = 1 etc. Then reference them like this: txtPlants(cTrees) ) They will share the same code with the index passed into the sub if you have some code on Click for example. By doing this you can loop through them like: for i = 0 to 4 ' your code here using this kind of reference: txtPlants(i) next i __________________ Coffee