Litt "små" problemer her

[Brandaran]

Hei jeg sliter med at jeg skal få info i vær sine textbox disse kodene har jeg:

 

Public Sub Add(box As String, text As String)

box.SelStart = Len(box)

box.SelText = text & vbCrLf

box.SelStart = Len(box)

End Sub

 

og dette i udp_Dataarr greiene;

 

 

 

 

delTekst = Split(Data, "\")

Add (en,delTekst(4))

 

//Box 1 heter en etc

 

 

Dette er error;

 

Compile Error:

 

Expected: =

 

thx

[asware]

Tror ikke jeg helt skjønner "tegninga" her... Kan du forklare litt nermer hva du skal gjøre?

[Jonas]

Jeg regner med det er linja med Add() som gir error. Slik skal det skrives:

Add en,delTekst(4)

[Brandaran]

Oki funka litt:P men

 

Public Sub Add(box As String, text As String)

box.SelStart = Len(box)

box.SelText = text & vbCrLf

box.SelStart = Len(box)

End Sub

 

error som kommer nå er

 

Compile Error:

 

Invalid Qualifier

[asware]

Er egentlig box en textbox? I så fall må du deklarere den som en tekstbox og ikke som sting... String er bare tekst

 

Public Sub Add(box as textbox, text As String)
box.SelStart = Len(box)
box.SelText = text & vbCrLf
box.SelStart = Len(box)
End Sub

 

 

Du kan forresten godt skrive med paranteser rundt, men da må du skrive call først:

 

Call Add(en, delTekst(4))

 

Jeg synes det er greiere slik... Men vet ikke hva som er best/riktig...

 

 

Prøv om noe av dette hjalp..

[Jonas]

Len(box.Text)

[asware]

Stemmer det jonas... Du må nok ha Len(box.Text)...

[GeirGrusom]

Dessuten, box.selStart = Len(box.Text) vil sette selstart pekeren til slutten av tekstboksen, da ville box.text = box.text & text & vbCrLf gjort samme nytten.

 

Call (og Let) er noe som henger igjen fra gamle dager, det er helt unødvendig.

[asware]

Call (og Let) er noe som henger igjen fra gamle dager, det er helt unødvendig.

 

Noe jeg alldri har vist... Men det var godt å få klarhet i det...