selecteren in een listbox

[Sousuke]

ik ben nu bezig met een prog voor het selecteren van films. ik heb een listbox gebruikt. als ik dan een film selcteer moet die naar een andere form gaan waar de gegevens over die film staat. weet iemand wat voor codes ik moet gebruiken?
hoop dat ik duidelijk genoeg ben

Sousuke

 

[DENNIS90]

Bedoel je het zo?

Hier een voorbeeld:

1) Op form1 plaats je een ListBox.

2) Voeg een tweede Form toe.
Dit gaat via Project/Add Form (of via de menu-bar, vanaf links op 't 2e icoontje klikken)

Plaats op dit tweede Form een Text-Box.
En geef vervolgens via het Property-venster de volgende eigenschappen mee aan deze Text-Box:

Zet MultiLine op True
Zet ScrollBars op Vertical
(2 bovenstaandde eigenschappen kunnen alleen op Design-Time worden ingesteld)

3) Code voor Form_Load (van Form 1).

Private Sub Form_Load()
    List1.AddItem "Film 1"
    List1.AddItem "Film 2"
    List1.AddItem "Film 3"
    List1.AddItem "Film 4"
    List1.AddItem "Film 5"
    List1.AddItem "Film 6"
    List1.AddItem "Film 7"
    List1.AddItem "Film 8"
    List1.AddItem "Film 9"
    List1.AddItem "Film 10"
    Form2.Show
End Sub

4) Code vor de ListBox.

Private Sub List1_Click()
    Select Case List1.ListIndex
        Case 0
            Form2.Text1 = "Hier een beschrijving geven over Film 1"
            Form2.Caption = "Beschrijving Film 1"
        Case 1
            Form2.Text1 = "Hier een beschrijving geven over Film 2"
            Form2.Caption = "Beschrijving Film 2"
        Case 2
            Form2.Text1 = "Hier een beschrijving geven over Film 3"
            Form2.Caption = "Beschrijving Film 3"
        Case 3
            Form2.Text1 = "Hier een beschrijving geven over Film 4"
            Form2.Caption = "Beschrijving Film 4"
        Case 4
            Form2.Text1 = "Hier een beschrijving geven over Film 5"
            Form2.Caption = "Beschrijving Film 5"
        Case 5
            Form2.Text1 = "Hier een beschrijving geven over Film 6"
            Form2.Caption = "Beschrijving Film 6"
        Case 6
            Form2.Text1 = "Hier een beschrijving geven over Film 7"
            Form2.Caption = "Beschrijving Film 7"
        Case 7
            Form2.Text1 = "Hier een beschrijving geven over Film 8"
            Form2.Caption = "Beschrijving Film 8"
        Case 8
            Form2.Text1 = "Hier een beschrijving geven over Film 9"
            Form2.Caption = "Beschrijving Film 9"
        Case 9
            Form2.Text1 = "Hier een beschrijving geven over Film 10"
            Form2.Caption = "Beschrijving Film 10"
    End Select
End Sub

5) Run het programma.

De juiste positionering van beide Forms, dat ze elkaar niet overlappen, heb ik hier achterwege
gelaten. Het is niet zo moeilijk om dit goed voor elkaar te krijgen.

Groetjes,

Dennis.

 

[Sousuke]

hai dennis,

heel erg bedankt. het werkt nu!! zoiets zou ik nooit zelf kunnen doen ;P
thanks!!

Sousuke