Copy Linie !!!!!

List1.ListIndex = 6
Text1.Text = List1.ListIndex

Virker ikke ved mig :(

Run-time Error 380

380 Invalid property value....

hele min kode ser sådan her ud

Private Sub Command1_Click()
For i = 0 To 20
List1.AddItem (i)
Next i

List1.ListIndex = 6
Text1.Text = List1.ListIndex
End Sub

hvad har du stående i listboxen ???

jelzin101 >

1
2
3
4
5
6
7
8
9
10

Det er jo kun en test

Ok fik det til at virke.....

Jeg har vist dummet mig lidt.... jeg havde glemt at skrive til 6 men der i mod kun til 4 og så er det jo klart der kommer error :)

Truti [DK]

og jelzin101 du skal selvfølgelig have de mange points ;)

ved jeg det var i din original jeg tænkte på :0)

men her er noget der burde virke :
Private Sub Command1_Click()
With List1
.AddItem \"eksperten\"
.AddItem \"er\"
.AddItem \"meget\"
.AddItem \"meget\"
.AddItem \"langsom\"
.AddItem \"her\"
.AddItem \"i\"
.AddItem \"aften\"
End With

List1.ListIndex = 6
Text1.Text = List1.Text
End Sub

det første virkede ikke 100% da det den gør er at udskrive list.index hvilket ikke er indholdet :) -jeg tror snart jeg skal sove :0)

tak for pts. -du har bragt mig på 117 pladsen ! :)

sikkert nimda virus der spøger
http://www.eksperten.dk/kategori/95 er inficeret iflg http://www.virus112.dk/

jelzin101 > Waaaaaaa nok har jeg lige Accepteret dit svar da jeg finder ud af at det er total forkert :(((

dr.truti>> mit sidste svar virker :)

jelzin101 > Waaaaaaa nok har jeg lige Accepteret dit svar da jeg finder ud af at det er total forkert :(((


List1.ListIndex = 6
Text1.Text = List1.ListIndex

Det her svare fo til det samme som

text1.text = 6 \'!!!!!!!!!!!!!!!

List1.ListIndex = 6            \'Her angives 6 i listindex (list index er linie nummer funktionen)
Text1.Text = List1.ListIndex    \'Og her oades det ind i text1.text det vi lige har erklæret. 


det har desværre ikke 2 meter at gøre med hvad der står i list1.list (nummer)......

Damn manner jeg håber virkelig at du gidder sq på det selvom du har fået dine points :-)

Truti [DK]

I stædet for at loade tal ind i list1.list så prøv at skriv a,b,c,d,e,f,g,h manuelt... så ser du problemet...

se mit sidste svar,

\"
list1.listindex = 6
text1.text = list1.text\"

Jepper har set det nu :)

Virker perfekt :)

Takker og sorry for mib lille forstyrelse :)


Private Sub Command1_Click()
With List1
.AddItem \"eksperten\"
.AddItem \"er\"
.AddItem \"meget\"
.AddItem \"meget\"
.AddItem \"langsom\"
.AddItem \"her\"
.AddItem \"i\"
.AddItem \"aften\"
End With

List1.ListIndex = 6
Text1.Text = List1.Text
End Sub

cellaneous >> http://www.microsoft.com/technet/treeview/default.asp?url=/technet/security/bulletin/MS01-020.asp

np. :0)

tror ikke en newsbullitin fra microsoft kan gøre eksperten hurtigere :-P

jo sikkert.... men ellers kanne man bare programmere flere \"stier\" eller en ny opkobling.....

Hvislken står eksperten entlig på nu ?

cell>> ok :0) jeg troede du havde fået den :0)

jelzin >
nah, min virusscanner siger jeg er ok (og min system.ini og den slags er ok), selvom jeg fik en advarsel om Nimda en dag jeg surfede rundt på eksperten (har patchet min browser og den står kontstant på paranoia-niveau) - desværre har jeg kokset en masse systemfiler nu og den slags, og skal nok geninsatllere hele hden :-( så helt ufarlig er eksperten ikke, jeg har haft konstant bøvl med mine cd drev i en måned nu og må nu fjerde uge i træk lokke en nørd til at komme og yde mig førstehjælp.. . suuuk gider snart ikke mere den dumme pc! hader at geninstallere windows og alt der skrammel (spil etc) jeg er blevet vant til at have på den.