Links i Visual Basic 6.0

Ikke forstået? "lave et link til denne tekst"?

Ja, fx: der henvises til note 1. - Og så et klik på teksten "note1",
der linker til indholdet af note 1.

Hvad mener du med en note - snakker vi word?

Nej, martin moth. Med mit listindex fremkalder jeg et emne. Emnets tekst kommer frem i en tekstboks. Emnet slutter nu med en henvisning, til en anden tekst et andet sted i programmet. Og spørgsmålet er så, om jeg fra teksten i tekstboksen kan lave et link til denne anden tekst.
Håber du forstår mig nu. :=)

Nej - er SLET ikke med:

"med mit listindex fremkalder jeg et emne"?

Det er ret så uforståeligt. Fremkalder et emne? Hvad mener du - loader du noget tekst fra en database, fra en tekstfil eller?

"en henvisning, til en anden tekst et andet sted i programmet"

What? Et andet sted i hvad for et program. Mener du en henvisning til noget tekst der hentes fra en database?

"teksten i tekstboksen kan lave et link til denne anden tekst??"

What??? Hvad for en anden tekst? 

Det er 100% sort snak. Prøv at forestille dig, at jeg ikke aner noget som helst om det program du laver - ved ikke hvilke komponenter du bruger. Det eneste jeg ved, er at jeg har en fornemmelse af at programmet skal kunne noget med noget tekst.

Kom med noget kode, eller sig hvilke komponenter du har i dit program.

Private Sub Form_Load()
With List1
.AddItem "Violinbyggere"
.additem “Instrumentmagere”
End with
Private Sub list1_click()
If List1.Text = "Violinbyggere" Then
text2.text = “Bla. bla. Udenlandske violinbyggere (se note 1)”
(Og aktivering af ”note 1” skal så være et link, der får indholdet af note 1 til at fremkomme i fx text3.text.
End if
Var det bedre?

Linierne
  List1.additem “Instrumentmagere”
  text2.text = “Bla. bla. Udenlandske violinbyggere (se note 1)”
kan ikke kompileres af VB6.0 (forudsat list1 er en listbox og text1 er en textbox)

Jeg tror jeg smutter fra det her spørgsmål - held og lykke :o)

Ja det kan du nemt!

- - - START - - -

Public Emne1, Emne2, Emne3 As String

Private Sub Form_Load()
    List1.AddItem "Emne 1"
    List1.AddItem "Emne 2"
    List1.AddItem "Emne 3"
   
    Emne1 = "Ja du har så valgt emne 1. Her er ikke meget at sige, bare held og lykke!"
    Emne2 = "Ja du har så valgt emne 2. Hvad vil du med det?"
    Emne3 = "Ja du har så valgt emne 3. Sådan er det bare!"

End Sub

Private Sub List1_Click()
    If UCase(List1.Text) = "EMNE 1" Then: Label1.Caption = Emne1
    If UCase(List1.Text) = "EMNE 2" Then: Label1.Caption = Emne2
    If UCase(List1.Text) = "EMNE 3" Then: Label1.Caption = Emne3
End Sub

- - - SLUT - - -

>kantoraza Helt perfekt. Point 15 var baseret på et ja/nej spørgsmål og ikke på så fin og gennemført hjælp. Jeg prøver, om jeg kan forhøje pointtallet lidt. Mange tak! :o))

Sorry, det er længe siden jeg har brugt Eksperten, det lykkedes ikke at forhøje pointtallet. Jeg vender snart tilbage med flere spørgsmål, så skal jeg huske, at jeg skylder dig nogle point. Det var som sagt for billigt.

okay. fint nok...

tak

Sorry - det kunne jeg også have svaret - jeg havde bare - som det fremgår - ret svært med at forstå hvad du mente... :o)