[program-l] Re: Multi-select capability in Visual Basic 6
- From: "Eileen Lafond" <Eileen.Lafond@xxxxxxxxxxx>
- To: <program-l@xxxxxxxxxxxxx>
- Date: Fri, 27 Apr 2007 09:38:21 -0700
Thanks, this looks like it will work.
Eileen La Fond
Phone (206) 386-0011
e.mail Eileen.LaFond@xxxxxxxxxxx
>>> Mark Long <markalong64@xxxxxxxxxxx> 4/27/2007 9:11 AM >>>
Some perfect examples at
http://faculty.elgin.edu/mgarrett/VB6/Week07/CodeSnippits.htm
Hope that helps
Mark
> Date: Fri, 27 Apr 2007 08:52:45 -0700> From:
Eileen.Lafond@xxxxxxxxxxx> To: program-l@xxxxxxxxxxxxx> Subject:
[program-l] Re: Multi-select capability in Visual Basic 6> > Thanks for
the help! I had found the multi-select property and had> changed it, but
didn't know about the other part.> > Can you give me an example of code
for the 'Iterate through the list> and set the selected(i) field to
true'?> > Thanks,> > Eileen La Fond> Phone (206) 386-0011> e.mail
Eileen.LaFond@xxxxxxxxxxx> > >>> Mark Long <markalong64@xxxxxxxxxxx>
4/26/2007 9:26 AM >>>> Set the list box's multiselect property to 2> >
Iterate through the list and set the selected(i) field to true> > Hope
that helps> > Mark> > > > > Date: Thu, 26 Apr 2007 09:19:48 -0700>
From:> Eileen.Lafond@xxxxxxxxxxx> To: program-l@xxxxxxxxxxxxx> Subject:>
[program-l] Multi-select capability in Visual Basic 6> > Hi,> I have an>
application with a Visual Basic 6 front end and an Oracle SQL> back
end.> Right now on one of the forms the user can pick one org out> of a
list,> but he wants the capability of highlighting as many orgs as> he
wants at> one time. I have gone through the code and found the code>
that does the> one time select. Can anyone give me an idea of how I can>
make this code> do several selects? If I could be pointed in the right>
direction on> this it would be very helpful.> > The code follows:> >
Private Sub> lstOrgUnits_Click()> > Dim i As Integer> > Const
sROUTINE_NAME => "lstOrgUnits_Click"> On Error GoTo ErrorHandler> > For
i = 0 To> lstOrgUnits.ListCount - 1> If lstOrgUnits.Selected(i) = True
Then>> msSelectedOrgUnit = lstOrgUnits.List(i)> Exit For> End If> Next>
> Exit> Sub> > > Thanks for any help,> > Eileen La Fond> Phone (206)
386-0011>> e.mail Eileen.LaFond@xxxxxxxxxxx> ** To leave the list, click
on the> immediately-following link:-> **>
[mailto:program-l-request@xxxxxxxxxxxxx?subject=unsubscribe]> ** If>
this link doesn't work then send a message to:> **>
program-l-request@xxxxxxxxxxxxx> ** and in the Subject line type> **>
unsubscribe> ** For other list commands such as vacation mode, click on>
the> ** immediately-following link:-> **>
[mailto:program-l-request@xxxxxxxxxxxxx?subject=faq]> ** or send a>
message, to> ** program-l-request@xxxxxxxxxxxxx with the Subject:- faq>
** To leave the list, click on the immediately-following link:-> **
[mailto:program-l-request@xxxxxxxxxxxxx?subject=unsubscribe]> ** If
this link doesn't work then send a message to:> **
program-l-request@xxxxxxxxxxxxx> ** and in the Subject line type> **
unsubscribe> ** For other list commands such as vacation mode, click on
the> ** immediately-following link:-> **
[mailto:program-l-request@xxxxxxxxxxxxx?subject=faq]> ** or send a
message, to> ** program-l-request@xxxxxxxxxxxxx with the Subject:- faq
** To leave the list, click on the immediately-following link:-
** [mailto:program-l-request@xxxxxxxxxxxxx?subject=unsubscribe]
** If this link doesn't work then send a message to:
** program-l-request@xxxxxxxxxxxxx
** and in the Subject line type
** unsubscribe
** For other list commands such as vacation mode, click on the
** immediately-following link:-
** [mailto:program-l-request@xxxxxxxxxxxxx?subject=faq]
** or send a message, to
** program-l-request@xxxxxxxxxxxxx with the Subject:- faq
Other related posts:
