Text 247, 113 rader
Skriven 2005-02-23 17:59:00 av "kirk Shirley" <kirkshirl (1:278/230)
Ärende: Re: Need help with a Combo box.
=======================================


Thanks
I can work with that.
Kirk
Jan Hyde <StellaDrinker@REMOVE.ME.uboot.com> wrote in message
news:at7p11tpn6thk3lo19semeddopva4p0g6p@4ax.com...
> "kirk shirley" <kirkshirley@hotmail.com>'s wild thoughts
> were released on Wed, 23 Feb 2005 08:56:47 -0600 bearing the
> following fruit:
>
> >Sorry, I don't fully understand. I don't know what you mean by setting
the
> >index to zero.  And if I remove theIndex AS Integer, it just sits there.
>
> "I am trying to use a combo box but I get a
> Procedure declaration does not match description of event or
> procedure having the same name"
>
> Now
>
> Private Sub PortNum_Change(Index As Integer)
>
> only applies to control arrays, your PostNum combo box is
> NOT part of a control array is it?
>
> If you don't understand what the index property of a control
> is then go with my other sugesting and remove the 'Index as
> integer' bit. IE
>
> Private Sub PortNum_Change()
>
> >I just want to get the results of the combo box into a variable.
Something I
> >can work with.   I can't find a good example of how to work with combo
> >boxes.
>
> Well that is an entirely differnt question.
>
> Try this for a start
>
> Private Sub Combo1_Click()
> Dim strTemp As String
> Dim intTemp As Integer
> strTemp = Combo1.Text
> intTemp = Combo1.ListIndex
>
> MsgBox "Item " & intTemp & " is " & strTemp
>
> End Sub
>
>
>
>
> >Kirk
> >
> >
> >Jan Hyde <StellaDrinker@REMOVE.ME.uboot.com> wrote in message
> >news:jsgo11t91n6vtm632m38nl41gf54jvj0r6@4ax.com...
> >> "kirk shirley" <kirkshirley@hotmail.com>'s wild thoughts
> >> were released on Tue, 22 Feb 2005 23:06:41 -0600 bearing the
> >> following fruit:
> >>
> >> >I am  a little confused.  I am trying to use a combo box but I get a
> >> >Procedure declaration does not match description of event or procedure
> >> >having the same name.     I think it's a problem with the index as
> >> >integer(coppied  from my options button).
> >> >
> >> >Thanks
> >> >Kirk
> >> >
> >> >Private Sub PortNum_Change(Index As Integer)
> >> >' choose between the com ports here
> >> >   Dim PortSelect As Integer
> >> >  Picture4.Cls
> >> >PortSelect = Index
> >> >  Picture4.Print PortSelect
> >> >End Sub
> >> >
> >>
> >> The (Index As Integer) only applies to control arrays.
> >>
> >> Either remove this bit, or set the index of your combo box
> >> to 0 (thus making it a control array)
> >>
> >>
> >>
> >> Jan Hyde (VB MVP)
> >>
> >> --
> >> An Alsatian dog complained to British Transport that he couldn't get on
> >> a train on the Underground.  "There are always scores of small dogs in
> >> front of me," he said. "Well," replied the official, "you shouldn't
> >> travel during the peke hour." (Very Punny)
> >>
> >> [Abolish the TV Licence - http://www.tvlicensing.biz/]
> >>
> >
>
>
> Jan Hyde (VB MVP)
>
> --
> The inventor of engraving made a pretty penny  (Alan F. G. Lewis)
>
> [Abolish the TV Licence - http://www.tvlicensing.biz/]
>




--- UseNet To RIME Gateway @ 2/23/05 5:51:09 PM ---
 * Origin: MoonDog BBS, Brooklyn,NY, 718 692-2498, 1:278/230 (1:278/230)