|
Inserati o imagine in obiectul text (in TEXTAREA) !
|
səhifə | 6/6 | tarix | 26.10.2017 | ölçüsü | 1,37 Mb. | | #13375 |
| Inserati o imagine in obiectul text (in TEXTAREA) !
Deplasati mouse deasupra fiecarei poze !
onmouseover="bgChange('Peles.jpg')"
background="Peles.jpg"> Castelul Peles |
onmouseover="bgChange('Dragon1.bmp')"
background="Dragon1.bmp"> Cavalerist |
Aici este textul,inserat in obiectul de tip TEXTAREA !
Meniu cu derulare verticala :
Selectati cateva optiuni ! Reveniti cu butonul Back !
Deplasati mouse peste patratele colorate !
onmouseout="bgChange('transparent')
bgcolor="red"> |
onmouseout="bgChange('transparent')"
bgcolor="blue"> |
onmouseout="bgChange('transparent')"
bgcolor="green"> |
Deschide fila dorita !
function functia1 {
alert(document.all.nod1.childNodes(0).nodeValue); }
function functia2 {
alert(document.all.nod2.childNodes(0).nodeValue); }
function functia3 {
alert(document.all.nod3.childNodes(0).nodeValue); }
function functia4 {
alert(document.all.nod4.childNodes(0).nodeValue); }
function functia5 {
alert(document.all.nod1.nodeName); }
function functia6 {
alert(document.all.nod1.childNodes(2).nodeValue); }
function functia7 {
var Text1= document.createTextNode('Text adaugat interactiv !');
document.all.nod1.appendChild(Text1);
}
function functia8 { var sterge1=document.all.nod1.childNodes(0);
document.all.nod1.removeChild(sterge1); }
De rupi din codru
o ramurea,
ce-i pasa
codrului
de ea ?
"Mihail Eminescu"
function functia1() {
alert("Mesaj de avertizare"); }
function functia2() {
if(confirm("Confirmati sau anulati !"))
alert("Actiunea este validata !")
else
alert("Actiunea este anulata !");
function functia3() {
text1=prompt("Introduceti Numele si Prenumele:","Numele si Prenumele");
document.getElementById("t1").value=text1; }
function functia4() {
var p=window.createPopup();
var pbody=p.document.body;
pbody.style.backgroundColor="yellow";
pbody.style.border="solid black 5px";
pbody.innerHTML="Acesta este mesajul inclus ! Click in afara casetei!";
p.show(150,150,200,50,document.body); }
Ce fructe preferati ?
value="mere" > Mere
value="cirese" > Cirese
value="struguri" > Struguri
value="capsuni" > Capsuni
Fructele preferate sunt:
Alegeti fructele preferate:
Fructele preferate sunt:
Alegeti programul dorit !
Introduceti date in prima caseta:
onkeyup="checkLen(this,this.value)">
onkeyup="checkLen(this,this.value)">
onkeyup="checklen(this,this.value)">
var browser = navigator.appName;
var versiune = navigator.appVersion;
var version = parseFloat(versiune);
document.write(browser);
document.write(" "+version);
Data curenta:
Data curenta:
Extrage si calculeaza numere aleatoare !
+
=
Sub Btn1_OnClick()
B1.Value = Extrage()
B2.Value = Extrage()
B3.Value = eval(B1.Value) + eval(B2.Value)
End Sub
Function Extrage()
Randomize
Extrage = 10000*Rnd + 0
End Function
Data si ora exacta !
VALUE="Apasa butonul!" onclick="Btn1Txt data1,ora1">
Exemplu pentru functia InputBox()
Exemplu pentru functia MsgBox()
Deschideti o fila oarecare !
Introduceti data calendaristica: (ziua/luna/anul)
data:
Directorul curent este:
Sub Director1()
Dim fso,fldr,s
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:")
document.write "Directorul radacina este: " & fldr & "
"
document.write "Unitatea este: " & fldr.Drive & "
"
If fldr.IsRootFolder = True Then
document.write "Este director radacina:" & "
"
Else
document.write "Nu este director radacina:" & "
"
End If
fso.CreateFolder ("C:\DirectorNou")
document.write "directorul creat este: C:\DirectorNou" & "
"
document.write "Basename= " & fso.GetBaseName("c:\DirectorNou")&"
"
fso.DeleteFolder ("C:\DirectorNou")
document.write "Directorul sters este: C:\DirectorNou" & "
"
End Sub
Unitatile instalate sunt:
Sub Unitati
Dim fs,d,dc,s
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d in dc
s = s & d.DriveLetter & " - "
Next
MsgBox "Unitati instalate= " & s
End Sub
title=" Salveaza datele - Alt+S " accessKey="s">
title = " reseteaza fila - Alt+R" accesskey="r">
Sub Fisier1
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\Test1.txt",True)
a.WriteLine("Textul inclus in fila arhivata !")
a.Close
MsgBox "Fila test1 a fost creata !"
End Sub
Sub Creata
Dim fs,f,s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("C:\Test1.txt")
s = f.DateCreated
MsgBox s
End Sub
Sub Director1
Dim fs,d
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.CreateFolder("C:\Director1")
MsgBox "directorul a fost creat !"
End Sub
Sub Copiaza
Dim fs,c
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "c:\test1.txt","c:\director1\"
MsgBox "Fila a fost copiata !"
End Sub
DICTIONAR
Introduceti in casete cheia si respectiv valoarea arhivata:
Introduceti cheia pentru valoarea arhivata:
Cauta fila .txt cu Browse,apoi apasa butonul Citeste:
Date preluate din fila beatles.xml:
Membrii formatiei Beatles:
Angajati:
Dostları ilə paylaş: |
|
|