Autor Zpráva
p06
Profil *
ahoj,

mam do skoly za ukol jeden maly priklad v VBScriptu. Najde se dobra duse co mi sem hodi reseni, moc mi to pomuze, dekuji.

zadani:
· Vytvořte stránku s krátkým textem, který bude červený.
· Po kliknutí na tento text se jeho barva změní na černou.
Měsíček
Profil
<script type="text/vbscript">
  Sub Change_color()
    document.getElementById("text").style.color="black"
  End Sub
</script> 

<p id="text" onClick="Change_color()" style="color:red;">
  Nemusíš děkovat!
</p>
Bubák
Profil
Já bych dal první řádek takto:
<script type="text/vbscript">

Ale udělej to tak, jak vás to učí ve škole ;-)
Měsíček
Profil
Já taky Bubáku, změnil jsem to ještě před tvým postem :-)
Bubák
Profil
Refresh před odesláním textu nedělám ;-)
p06
Profil *
diky moc chlapi!!! snad to jednou vratim... GL
p06
Profil *
tak jsem ted chtel ukol odevzdat a nevim co je spatne, ale text se neobarvuje :( mam to takto a ulozil jsem to jako obycejnou html stranku...

<html>
<head>
<title>VBSript</title>
</head>
<body>

<SCRIPT LANGUAGE = "VBScript">
  Sub Change_color()
    document.getElementById("text").style.color="black"
  End Sub
</SCRIPT> 

<p id="text" onClick="Change_color()" style="color:red;">
  Text, který se obarví na černo po kliknutí myší.
</p>

</body>
</html>
Měsíček
Profil
Tento kód funguje. V jakém prohlížeči jsi to spustil?
Bubák
Profil
Sice jsi použil LANGUAGE = "VBScript", jako původně Měsíček, nyní se používá atribut "type", ale to na funkčnost nemá vliv.
V jakém prohlížeči jsi to zkoušel? VBScript umí jen Internet Explorer.

Dodatek: Měsíček pořád předbíhá ;-)
p06
Profil *
sakra chlapi, vy jste ale aktivni! Necekal takovouto rychlost... :) jj byl problem v prohlizeci, oteviral jsem to FF, ted uz to je ok :)
Ten LANGUAGE = "VBScript" mame uvedeny ve scriptech, tak jsem zkousel kde je zavada, ale ta byla jinde jak uz ted vim... :)

a ze jsem tak drzej... :) mam tu na pristi tyden jeste jeden ukol s VBS, nastesti posledni :) pomuzete mi s tim tez? :)
· Na stránku vložte prvek ActiveX (tlačítko) Microsoft Forms 2.0 Command Button.
· Napište událostní proceduru, která způsobí, že po klepnutí na tlačítko se objeví okno s hlášením VBScriptu.
Měsíček
Profil
Když se trochu posnažíš sám .. a ukážeš co jsi vykoumal tak ti to zredukuji tak, aby to fungovalo.
Měsíček
Profil
Pro začátek si přečti tohle http://home.pf.jcu.cz/~pepe/Diplomky/koubele.doc
p06
Profil *
:) ok ok, cekal jsem nejakou takovou reakci ;) ale dik
pk
Profil *
Tak uz jsem neco slepil podle script, ale potreboval bych mit jistotu ze to je dobre. Protoze termin odevzdani mam dnes a pochybuji, ze jeste dnes mi to bude vraceno k opraveni. Takze bych to potreboval odevzdat tak aby to splnovalo pozadavky ze zadani.

Zadani:
· Na stránku vložte prvek ActiveX (tlačítko) Microsoft Forms 2.0 Command Button.
· Napište událostní proceduru, která způsobí, že po klepnutí na tlačítko se objeví okno s hlášením VBScriptu.

reseni
<html>
<head>
<title>Prvek ActiveX</title>

<script type="text/vbscript">
    Sub button_Click
        MsgBox "Děkuji, úkol je úspěšně splněn."
    End Sub
</script>

</head>
<body>

<object id="button" width=110 height=26 classid="CLSID:D7053240-CE69-11CD-A777-00DD01143C57">
    <param name="Caption" value="Ukaž hlášeni VBS">
    <param name="Size" value="2540;846">
    <param name="FontCharSet" value="238">
    <param name="FontPitchAndFamily" value="2">
    <param name="ParagraphAlign" value="3">
    <param name="FontWeight" value="0">
</object>

</body>
</html>


Muze mi to nekdo prekontroloat? dikes.
Měsíček
Profil
Řekl bych, že to je v pohodě :)
pk
Profil *
tak snad to uzna :) jinak dikes za predchozi pomoc!! GL

Vaše odpověď


Prosím používejte diakritiku a interpunkci.

Ochrana proti spamu. Napište prosím číslo dvě-sta čtyřicet-sedm:

0