Kepek feltöltése tömbe, hivatkozás a képekre

Kepek feltöltése tömbe, hivatkozás a képekre
2009-04-06T16:53:26+02:00
2009-04-07T13:00:42+02:00
2022-11-13T05:15:32+01:00
ferbli
Sziasztok. Nagyon kezdő vagyok a programozásba. Az lenne a kérdésem, hogy hogyan valósíthatok meg olyant hogy képeket olvassak be, majd ezeket egy ListBoxon keresztűl, egy PictureBoxba tudjam megjeleníteni. Tehát kellene egy listbox ami a képeket tartalmazza, majd ha erre kattintok akkor a kiejlölt képek jelenítse meg a pictureboxban. A képek közepes méretűek, tehát nem ikonok.
Mindenfélét lehet találni , de egyik sem az igazi.

Előre is kösz.
Mutasd a teljes hozzászólást!
Köszönöm szépen. Jó a megoldás. Sokat segített. Még ha elakadok, majd hozzátok fordulok. Nem is gondoltam hogy ilyen hamar kapok választ. Van egy sörötök.
Mutasd a teljes hozzászólást!


  • <div id="listbox"> <a href="index.php?imgsrc=1.jpg">1.link</a> <a href="index.php?imgsrc=2.jpg">2.link</a> </div> <div id="pictureBox"> <?php include "<img src=\".$_REQUEST['imgsrc'].\" /> ?> </div>

    a képeket ugyanabba a mappába rakd, vagy akk az imgsrc is legyen images/1.jpg
    Mutasd a teljes hozzászólást!
  • A témakör: Visual Basic és Visual C++
    Mutasd a teljes hozzászólást!
  • Szia!

    Én is kezdő vagyok, de szerintem egy jó megoldás lehet a következő VB6:
    - Készíts egy alkönyvtárat ahova a képeket teszed.
    - A form load -ba írd meg, hogy az alkönyvtárból válogassa le az összes fálj nevét és azokat tedd be a lisboxba.
    - A listbox click eseménykezelőjében csak meg kell oldani, hogy a listbox elemét a picturebox töltse be.

    Ha lesz időm küldök kódot is vb6-ban, ha kell.

    Üdv.: Zizikus
    Mutasd a teljes hozzászólást!
  • Üdv.: én erre gondoltam:
    Tegyél fel vb6-ban a form ra egy picturebox-ot, egy combobox-ot és egy gombot, majd a kód:

    Option Explicit Dim fajlnev As String Private Sub Combo1_click() If Combo1.Text <> "" Then Picture1.Picture = LoadPicture(App.Path & "\Kepek\" & Combo1.Text) End If End Sub Private Sub Form_Load() fajlnev = Dir(App.Path & "\Kepek\*.*") Do While fajlnev <> "" Combo1.AddItem fajlnev fajlnev = Dir Loop End Sub Private Sub Command1_Click() End End Sub

    De van több megoldási lehetőség is a problémára.

    Üdv.: Zizikus
    Mutasd a teljes hozzászólást!
  • Köszönöm szépen. Jó a megoldás. Sokat segített. Még ha elakadok, majd hozzátok fordulok. Nem is gondoltam hogy ilyen hamar kapok választ. Van egy sörötök.
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd