01. januar 2002 - 23:54
Der er
1 kommentar og
1 løsning
Større tekstmængde ved click på liste - skal ende med exe-fil.
På en form har jeg en liste med bl.a. Bamse og Dukkelise.Ved click vælges Bamse.
Jeg skal nu med måske 1000 ord forklare noget om Bamse.Hjælpefil? Hjælpetekst?
Programmet skal til sidst kunne laves til exe-fil.
Problem: Hvor skal jeg skrive teksten og hvordan kaldes den? Jeg er næsten nybegynder, så jeg må have en udførlig forklaring.
02. januar 2002 - 00:33
#1
\'1) List1 ListBox
\'1) Text1 TextBox
\'Set Text1.MultiLine til True og Text1.ScrollBars til 2 - Vertical
\'----------------------------------- Form1 -----------------------------------
Private ListTekst() As String
Public Function AddTekst(Tekst As String, Index As Integer)
ReDim Preserve ListTekst(Index) As String
ListTekst(Index) = Tekst
End Function
Public Function VisTekst(Index As Integer) As String
VisTekst = ListTekst(Index)
End Function
Private Sub Form_Load()
List1.AddItem \"Bamse\" \'Tilføje i List1 (ListIndex 0)
AddTekst \"Bamse Tekst på 1000 ord.\", 0 \'Tilføje AddTekst (Index 0)
List1.AddItem \"Dukkelise\" \'Tilføje i List1 (ListIndex 1)
AddTekst \"Dukkelise Tekst på 1000 ord.\", 1 \'Tilføje AddTekst (Index 1)
List1.AddItem \"Kylling\" \'Tilføje i List1 (ListIndex 2)
AddTekst \"Kylling:\" & vbNewLine & \"Tekst på 1000 ord.\", 2 \'Tilføje AddTekst (Index 2)
List1.ListIndex = 0 \'Marker ListIndex 0 i List1
End Sub
Private Sub List1_Click()
Text1.Text = VisTekst(List1.ListIndex) \'Henter Tekst fra Index
End Sub
\'----------------------------------- Form1 -----------------------------------
