Combobox værdi til.......

Evt. kunne du gøre det på en lidt anden måde, med f.eks. en select case

Select Case form2.combo1.text
  case "billed1"
    form1.billed1.left = 100
  case ... o.s.v.

Men det passer måske ikke ind i "dit kram". /Martin

Du kunne give billederne et index nummer!

SÅ:

inde i comboboxen:

Billede(combo1.listindex).left = 100

> Magic Star <

Problemet er bare at combobox'en er på form2 og billederne er på form1. Så når jeg starter med at skrive :"Form1." kan jeg ikke referere til combobox'en på form2 midt i sætningen.

"Select case" kan også bruges, men da jeg har over 100 billeder vil jeg helst undgå denne metode.

Kan du ikke bruge det rasmuss skriver?

sub combo1_change()
  form1.billed(form2.combo1.listindex).left = 100
end sub

Eller hvis det volder problemer, så

sub combo1_change()
  dim dummy as integer
  dummy=combo1.listindex
  form1.billed(dummy).left = 100
end sub

Jeg kan ikke se hvorfor det ikke skulle kunne virke, hvis ellers index for billede passer med index for combo'en.

Den laver fejl når jeg referere til et object på form2 inde i en reference til form1. Det er der problemet opstår.

Jeg ville gøre det sådan at du kalder alle billederne på form1 det samme og laver indexer ud af dem, og navnet kan du så sætte ind i feltet: Image1(i).Tag! Så ser koden sådan ud!


Sub Combo1_Click()
    Dim i as Integer
    For i = 0 To Form1.Image1.UBound
        If Form1.Image1(i).Tag = Combo1 Then
            Form1.Image1(i).Left = 100
            Exit For
        End If
    Next i
End Sub


Det er en lidt tidskrævende måde du gør det på jo - Det ville være meget mere optimalt hvis du gav billednavnene i databasen et ID og satte det ind i feltet Combo1.ItemData(i) og gav billeder samme Index eller Tag - så kunne du lave et direkte opslag! Hvis Du vil ha det så kan du jo skrive igen!!! Men ovenstående virker i hvert fald!!

Det skal virke!

Hvis ikke det virker så kunne du jo prøve at lave det helt forfra!
Det er nogen gange at det virker.

Prøv dette:

opret:
(form1)
(combobox)
(commandbutton)

opret:
(form2)
(image) kald det billede og giv det index nummeret 0. Kopier det og sæt de andre billeder ind.

Start med at skrive:

- I form1_load -
for n = 0 to form2.billede.listcount - 1
  combo1.additem form2.billede(n).list(n)
next n

- I command1_click -
form2.show
for n = 0 to form2.billede(n).listcount - 1
form2.billede(n).visible = false
next n

form2.billede(combo1.listindex).visible = true


-------------------------------------

Det kunne jo være en måde at lave det på!

Hvis ikke det virker kan du bare skrive din e-mail addrsse og så sender jeg dig programmet!!!

Held og lykke!

MVH

> Magic Star < Rasmus

Tusinde Tak for alle svarene. Jeg har brugt Dimle's ide med at hente et ID fra en database og fået det til at virke.

Skal jeg så ikke have pointene?? c",)

Jeg brugte

Fuck, nu har jeg givet point til den forkerte. Kan jeg ikke give dig dimle point på en anden måde?

Jo du kan oprette et nyt spørgsmål med pointene, så laver jeg et svar og så kan du give mig dem!!! :o)

www.Dimle.dk