/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
ComboBox i focus
Fra : Neo.dk


Dato : 26-03-02 12:52

Hej alle

Hvordan "nulstiller" jeg en combobox ?

- altså stiller comboboxen til det første valg og med focus på comboboxen
ved f.eks. tryk på en knap.

Håber at der er en der vil hjælpe.

Tusind tak

Neo.dk



 
 
Jens Vestergaard (26-03-2002)
Kommentar
Fra : Jens Vestergaard


Dato : 26-03-02 13:44

"Neo.dk" <neo___dk@hotmail.com> skrev i en meddelelse
news:3ca060b1$0$72400$edfadb0f@dspool01.news.tele.dk...
> Hej alle
>
> Hvordan "nulstiller" jeg en combobox ?
>
> - altså stiller comboboxen til det første valg og med focus på comboboxen
> ved f.eks. tryk på en knap.


Kig på .SetFocus og/eller .TabIndex = 0 samt .ListIndex = 0

--
mvh
Jens Vestergaard
www.railsoft.dk



Neo.dk (26-03-2002)
Kommentar
Fra : Neo.dk


Dato : 26-03-02 14:06

> Kig på .SetFocus og/eller .TabIndex = 0 samt .ListIndex = 0
>
> --
> mvh
> Jens Vestergaard
> www.railsoft.dk

Hej igen Jens

Jeg synes at jeg har prøvet med .SetFocus

Private Sub Combo()
' formålet men denne sub er at nulstille Combo til det første valg
' og sætte Combo i focus
Combo.AddItem "valg1"
Combo.AddItem "valg2"
Combo.AddItem "valg3"
Combo.AddItem "valg4"
Combo.AddItem "valg5"
Combo.AddItem "valg6"
'Combo.ListIndex = 0
'Combo.TabIndex = 0
Combo.SetFocus
End Sub

Men jeg får følgende fejl:

Runtime error 5
invalid procedure call or argument.
og markering ved "Combo.SetFocus"

Har du en ide til hvad jeg gør galt ?

Mvh Neo.dk




Jens Vestergaard (26-03-2002)
Kommentar
Fra : Jens Vestergaard


Dato : 26-03-02 15:37

"Neo.dk" <neo___dk@hotmail.com> skrev i en meddelelse
news:3ca07212$0$72058$edfadb0f@dspool01.news.tele.dk...
> > Kig på .SetFocus og/eller .TabIndex = 0 samt .ListIndex = 0
> >
> > --
> > mvh
> > Jens Vestergaard
> > www.railsoft.dk
>
> Hej igen Jens
>

<objekt>.SetFocus giver fejl, hvis ikke formen, hvor <objekt> er på er
synlig - typisk, hvis man prøver SetFocus i Load-eventen.

Måske er der er sammenhæng til dit problem?

--
mvh
Jens Vestergaard
www.railsoft.dk



Neo.dk (26-03-2002)
Kommentar
Fra : Neo.dk


Dato : 26-03-02 16:01

> <objekt>.SetFocus giver fejl, hvis ikke formen, hvor <objekt> er på er
> synlig - typisk, hvis man prøver SetFocus i Load-eventen.
>
> Måske er der er sammenhæng til dit problem?
>
> --
> mvh
> Jens Vestergaard
> www.railsoft.dk

Hej Jens

Jeg tror at jeg fandt løsningen/en løsning på problemet - læs mit svar på
Raymans post

Tusind tak for hjælpen !!!

Mvh Neo.dk



Rayman (26-03-2002)
Kommentar
Fra : Rayman


Dato : 26-03-02 14:03

Combo1.Listindex = 1
Combo1.SetFocus

Eller måske Combo1.ListIndex = -1 (ingen valgt)

Mvh. Rayman.

"Neo.dk" <neo___dk@hotmail.com> wrote in message
news:3ca060b1$0$72400$edfadb0f@dspool01.news.tele.dk...
> Hej alle
>
> Hvordan "nulstiller" jeg en combobox ?
>
> - altså stiller comboboxen til det første valg og med focus på comboboxen
> ved f.eks. tryk på en knap.
>
> Håber at der er en der vil hjælpe.
>
> Tusind tak
>
> Neo.dk
>
>



Neo.dk (26-03-2002)
Kommentar
Fra : Neo.dk


Dato : 26-03-02 14:40


"Rayman" <rayman_dk@email.com> skrev i en meddelelse
news:uk_n8.335$567.58677@news000.worldonline.dk...
> Combo1.Listindex = 1
> Combo1.SetFocus
>
> Eller måske Combo1.ListIndex = -1 (ingen valgt)
>
> Mvh. Rayman.

Hej Rayman

Ja så lykkedes det, men problemet lå et andet sted end jeg havde forventet.

givet: 1 knap og 1 combo

ved tryk på knap kaldtes følgende:

Private Sub Combo()
' formålet men denne sub er at nulstille Combo til det første valg
' og sætte Combo i focus
Combo.AddItem "valg1"
Combo.AddItem "valg2"
Combo.AddItem "valg3"
Combo.AddItem "valg4"
Combo.AddItem "valg5"
Combo.AddItem "valg6"
Combo.ListIndex = 0
Combo.SetFocus
End Sub

Private Sub TilføjKnap_Click()
call Combo
End Sub

men dette gav fejl !

men det virker nu med følgende fremgangsmåde:

Private Sub Combo()
' formålet men denne sub er at nulstille Combo til det første valg
' og sætte Combo i focus
Combo.AddItem "valg1"
Combo.AddItem "valg2"
Combo.AddItem "valg3"
Combo.AddItem "valg4"
Combo.AddItem "valg5"
Combo.AddItem "valg6"
End Sub

Private Sub TilføjKnap_Click()
Combo.SetFocus
Combo.ListIndex = 0
End Sub

Kan du forklare hvorfor jeg fik fejl ?

Mvh Neo.dk




Rayman (29-03-2002)
Kommentar
Fra : Rayman


Dato : 29-03-02 12:27

Øhh, næh. Men det er rigtigt at du ikke kan sætte focus, når controllen ikke
er synlig/enabled. Det eneste der er at gøre ved det, er en 'On Error Resume
Next' eller måske flytte koden til 'Activate' Eventet. Derudover, skal du
lige huske at bruge en 'Clear' før du tilføjer elementer, eller bliver de
bare tilføjet til enden af listen.
Og så lige for at opklare det med TabIndex, så er det ikke noget der styrer
kontrollen, men det er rækkefølgen af elementerne, når man bruger Tab tasten
i stedet for musen. Og den bliver også brugt nå en Label har en HotKey dvs.
et understreget bogstav. Her kan label'en ikke få focus, men den giver i
stedet focus til den næste kontrol i TabIndex rækkefølgen.


Mvh. Rayman


"Neo.dk" <neo___dk@hotmail.com> wrote in message
news:3ca079f6$0$88692$edfadb0f@dspool01.news.tele.dk...
>
> "Rayman" <rayman_dk@email.com> skrev i en meddelelse
> news:uk_n8.335$567.58677@news000.worldonline.dk...
> > Combo1.Listindex = 1
> > Combo1.SetFocus
> >
> > Eller måske Combo1.ListIndex = -1 (ingen valgt)
> >
> > Mvh. Rayman.
>
> Hej Rayman
>
> Ja så lykkedes det, men problemet lå et andet sted end jeg havde
forventet.
>
> givet: 1 knap og 1 combo
>
> ved tryk på knap kaldtes følgende:
>
> Private Sub Combo()
> ' formålet men denne sub er at nulstille Combo til det første valg
> ' og sætte Combo i focus
> Combo.AddItem "valg1"
> Combo.AddItem "valg2"
> Combo.AddItem "valg3"
> Combo.AddItem "valg4"
> Combo.AddItem "valg5"
> Combo.AddItem "valg6"
> Combo.ListIndex = 0
> Combo.SetFocus
> End Sub
>
> Private Sub TilføjKnap_Click()
> call Combo
> End Sub
>
> men dette gav fejl !
>
> men det virker nu med følgende fremgangsmåde:
>
> Private Sub Combo()
> ' formålet men denne sub er at nulstille Combo til det første valg
> ' og sætte Combo i focus
> Combo.AddItem "valg1"
> Combo.AddItem "valg2"
> Combo.AddItem "valg3"
> Combo.AddItem "valg4"
> Combo.AddItem "valg5"
> Combo.AddItem "valg6"
> End Sub
>
> Private Sub TilføjKnap_Click()
> Combo.SetFocus
> Combo.ListIndex = 0
> End Sub
>
> Kan du forklare hvorfor jeg fik fejl ?
>
> Mvh Neo.dk
>
>
>



Neo.dk (30-03-2002)
Kommentar
Fra : Neo.dk


Dato : 30-03-02 21:47

Tusind tak for dit svar Rayman !

Neo.dk

"Rayman" <rayman_dk@email.com> skrev i en meddelelse
news:EcYo8.2589$567.158175@news000.worldonline.dk...
> Øhh, næh. Men det er rigtigt at du ikke kan sætte focus, når controllen
ikke
> er synlig/enabled. Det eneste der er at gøre ved det, er en 'On Error
Resume
> Next' eller måske flytte koden til 'Activate' Eventet. Derudover, skal du
> lige huske at bruge en 'Clear' før du tilføjer elementer, eller bliver de
> bare tilføjet til enden af listen.
> Og så lige for at opklare det med TabIndex, så er det ikke noget der
styrer
> kontrollen, men det er rækkefølgen af elementerne, når man bruger Tab
tasten
> i stedet for musen. Og den bliver også brugt nå en Label har en HotKey
dvs.
> et understreget bogstav. Her kan label'en ikke få focus, men den giver i
> stedet focus til den næste kontrol i TabIndex rækkefølgen.
>
>
> Mvh. Rayman
>
>
> "Neo.dk" <neo___dk@hotmail.com> wrote in message
> news:3ca079f6$0$88692$edfadb0f@dspool01.news.tele.dk...
> >
> > "Rayman" <rayman_dk@email.com> skrev i en meddelelse
> > news:uk_n8.335$567.58677@news000.worldonline.dk...
> > > Combo1.Listindex = 1
> > > Combo1.SetFocus
> > >
> > > Eller måske Combo1.ListIndex = -1 (ingen valgt)
> > >
> > > Mvh. Rayman.
> >
> > Hej Rayman
> >
> > Ja så lykkedes det, men problemet lå et andet sted end jeg havde
> forventet.
> >
> > givet: 1 knap og 1 combo
> >
> > ved tryk på knap kaldtes følgende:
> >
> > Private Sub Combo()
> > ' formålet men denne sub er at nulstille Combo til det første valg
> > ' og sætte Combo i focus
> > Combo.AddItem "valg1"
> > Combo.AddItem "valg2"
> > Combo.AddItem "valg3"
> > Combo.AddItem "valg4"
> > Combo.AddItem "valg5"
> > Combo.AddItem "valg6"
> > Combo.ListIndex = 0
> > Combo.SetFocus
> > End Sub
> >
> > Private Sub TilføjKnap_Click()
> > call Combo
> > End Sub
> >
> > men dette gav fejl !
> >
> > men det virker nu med følgende fremgangsmåde:
> >
> > Private Sub Combo()
> > ' formålet men denne sub er at nulstille Combo til det første valg
> > ' og sætte Combo i focus
> > Combo.AddItem "valg1"
> > Combo.AddItem "valg2"
> > Combo.AddItem "valg3"
> > Combo.AddItem "valg4"
> > Combo.AddItem "valg5"
> > Combo.AddItem "valg6"
> > End Sub
> >
> > Private Sub TilføjKnap_Click()
> > Combo.SetFocus
> > Combo.ListIndex = 0
> > End Sub
> >
> > Kan du forklare hvorfor jeg fik fejl ?
> >
> > Mvh Neo.dk
> >
> >
> >
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408926
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste