Solved

A Loop for a Type

Posted on 2003-12-05
3
277 Views
Last Modified: 2010-04-17
Hi,

is this possible to use a Loop to assign values to each field of a Type

ex.:
Type tScreen
     Height as String
     Width as String
     Price as Double
     Color as String
end Type

...something like...

For each "Field" of the Type
    This field = This value
next "Field"

Thanks for all.
0
Comment
Question by:PapaOne
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
3 Comments
 
LVL 15

Expert Comment

by:SRigney
ID: 9883084
Not sure the language.

In vb you can use
Dim ctl As Control
For Each ctl in Controls
   Select Case TypeName(ctl)
      Case "TextBox":
         ctl.Text = textvalue
      Case "ComboBox":
         ctl.ListItem = listitemindex
   End Select
Next
0
 
LVL 10

Accepted Solution

by:
D_M_D earned 50 total points
ID: 9883202
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you’re thinking to yourself “That description sounds a lot like two people doing the work that one could accomplish,” you’re not alone.
This article will inform Clients about common and important expectations from the freelancers (Experts) who are looking at your Gig.
With the power of JIRA, there's an unlimited number of ways you can customize it, use it and benefit from it. With that in mind, there's bound to be things that I wasn't able to cover in this course. With this summary we'll look at some places to go…
Six Sigma Control Plans

631 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question