2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

Új hozzászólás Aktív témák

  • martonx martonx veterán
    #1823
    #1822 dkaro
    Új Válasz
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    martonx
    martonx
    veterán
    #1822 dkaro
    #1822 dkaro

    Sziasztok!
    Most a multiple selecttel akadtam el. Úgy olvastam hogy egy stringben tárolódik le az értéke a kiválasztott elemeknek vesszővel elválasztva. Adott ez a kód:
    <html>
    <head>
    <title>My HTML application</title>
    <HTA:APPLICATION
    APPLICATIONNAME="My HTML application"
    ID="MyHTMLapplication"
    VERSION="1.0"/>

    <script language="VBScript">
    Sub RunScript
    Dim strValaszt
    strValaszt = ertek.value
    document.write("<span>"&strValaszt&"</span>")

    End Sub
    </script>
    </head>

    <body bgcolor="white">
    <form>
    <select multiple="multiple" size="3" name="ertek">
    <option value='1'>1</option>
    <option value='2'>2</option>
    <option value='3'>3</option>
    </select>
    <input type="button" value="próba" onClick="RunScript">
    </form>

    </body>
    </html>

    Csak az első kijelölt elem kerül bele a változóba. Hogy tudom belevarázsolni mindet?
    Köszönöm!

    Sub RunScript
    For i = 0 to (ertek.Options.Length - 1)
    If (ertek.Options(i).Selected) Then
    strComputer = strComputer & ertek.Options(i).Value & vbcrlf
    End If
    Next
    Msgbox strComputer
    End Sub

Új hozzászólás Aktív témák