afisare imagine login

Dr.Windows · Mesaj de **Dr.Windows** » Joi Apr 04, 2013 2:36 pm

Pai adauga butonul de ex. imediat INAINTE de IMG SRC:

tempFile.Writeline "<input type=""button"" value=""Inchide fereastra"" onclick=""self.close()"">"

si mai exact secventa de cod din exemplul de mai sus se modifica asa:

Cod: Selectaţi tot

tempFile.Writeline "<CENTER>"
tempFile.Writeline "<p>"

tempFile.Writeline "<input type=""button"" value=""Inchide fereastra"" onclick=""self.close()"">"

tempFile.Writeline "<img src=""C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg""/><br>"

danyt · Mesaj de **danyt** » Sâm Apr 06, 2013 7:35 am

Am inserat codul inainte de src insa butonul imi apare de la inceput si pot inchide imaginea de la oricand doresc! Ca sa apara butonul dupa alea 8 secunde si sa poata inchide imaginea, cum trebuie facut? Multumesc.

Dr.Windows · Mesaj de **Dr.Windows** » Lun Apr 08, 2013 8:34 am

Pai dupa alea 8 secunde oricum se inchide pagina automat... la ce ar mai folosi un buton care nu mai apuca sa fie afisat pentru ca pagina s-a inchis?...
Sau nu am inteles eu exact ce trebuie sa se intample in pagina ta...

danyt · Mesaj de **danyt** » Lun Apr 08, 2013 8:33 pm

Vreau ca dupa cele 8 secunde sa imi apara butonul de "close", care sa permita ,,inchiderea" imaginii !

Dr.Windows · Mesaj de **Dr.Windows** » Mar Apr 09, 2013 7:39 am

Atunci reformulez eu (daca am inteles corect): Nu mai vrei sa se inchida AUTOMAT dupa 8 secunde ci doar sa apara un buton si utilizatorul sa fie cel care sa actioneze procedura de inchidere?

L.E.: Daca raspunul este DA... atunci se modifica functia "ShowSplash" dupa cum urmeaza:

Cod: Selectaţi tot

tempFile.Writeline "Sub ShowSplash"
tempFile.Writeline  "	document.getElementById(""button1"").style.display=""block"""
tempFile.Writeline "End Sub"

Adica in loc de inchiderea automata va afisa un buton, dar butonul trebuie inserat inainte de tagul IMG folosind stilul "ascuns" (style="display:none") si un ID de care avem nevoie in functia ShowSplash pentru a afisa butonul:

Cod: Selectaţi tot

tempFile.Writeline "<input type=""button"" id=""button1"" style=""display:none"" value=""Inchide fereastra"" onclick=""self.close()"">"

Si ca sa fie si mai clar, codul COMPLET ar fi urmatorul:

Cod: Selectaţi tot

Sub SplashScreen()
 Dim shell : Set shell = CreateObject("WScript.Shell")
 Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
 Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
 Dim tempName : tempName = "Splash.hta"
 Dim tempFile : Set tempFile = tempFolder.CreateTextFile(tempName)
tempFile.Writeline "<html>"
tempFile.Writeline "<head>"
tempFile.Writeline "<title>Splash Screen</title>"    
tempFile.Writeline "<HTA:APPLICATION ID=""oMyApp"""
tempFile.Writeline "APPLICATIONNAME=""splash"""
tempFile.Writeline "BORDER=""none"""
tempFile.Writeline "CAPTION=""no"""
tempFile.Writeline "SHOWINTASKBAR=""no"""
tempFile.Writeline "SINGLEINSTANCE=""yes"""
tempFile.Writeline "SYSMENU=""no"""
tempFile.Writeline "SCROLL=""no"""
tempFile.Writeline "WINDOWSTATE=""normal"">"
tempFile.Writeline "</head>"
tempFile.Writeline"<SCRIPT LANGUAGE=""VBScript"">"
tempFile.Writeline "Sub CenterWindow(x,y)"         
tempFile.Writeline         "window.resizeTo x, y"      
tempFile.Writeline         "iLeft = window.screen.availWidth/2 - x/2"       
tempFile.Writeline         "itop = window.screen.availHeight/2 - y/2"     
tempFile.Writeline       "window.moveTo ileft, itop"       
tempFile.Writeline "End Sub"    
tempFile.Writeline "Sub Window_OnLoad"
tempFile.Writeline      "CenterWindow 400,300"
tempFile.Writeline      "iTimerID = window.setInterval(""ShowSplash"", 8000)"
tempFile.Writeline "End Sub"
tempFile.Writeline "Sub ShowSplash"
tempFile.Writeline  "	document.getElementById(""button1"").style.display=""block"""
tempFile.Writeline "End Sub"
tempFile.Writeline "</SCRIPT>"
tempFile.Writeline "<body bgcolor=""black"">"
tempFile.Writeline "<DIV id=""Splash"">"
tempFile.Writeline "<CENTER>"
tempFile.Writeline "<p>"
tempFile.Writeline "<input type=""button"" id=""button1"" style=""display:none"" value=""Inchide fereastra"" onclick=""self.close()"">"
tempFile.Writeline "<img src=""C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg""/><br>"
tempFile.Writeline "<center onselectstart=""ShowSplash"" ondragstart=""ShowSplash"" oncontextmenu=""ShowSplash"">"
tempFile.Writeline "</center>" 
tempFile.Writeline "</p>"
tempFile.Writeline "</CENTER>"
tempFile.Writeline "</DIV>"
tempFile.Writeline "</body>"
tempFile.Writeline "</html>" 
tempFile.Writeline "tempFile.Close"
shell.Run tempFolder & "\" & tempName ,1, True
End Sub
Call SplashScreen

danyt · Mesaj de **danyt** » Mar Apr 09, 2013 1:06 pm

Ai inteles foarte bine.
Butonul de inchidere a imaginii apare in pozitia center-top. Pentru usurinta utilizatorilor, pot sa-l mut in right-bottom? Oricum, multumesc frumos.

Dr.Windows · Mesaj de **Dr.Windows** » Mar Apr 09, 2013 1:26 pm

Aplica-i butonului stilul corespunzator (style) - adica pozitie = absoluta (position=absolute) si la ce distanta de marginea din dreapta (right:0)si de jos (bottom:0):

Cod: Selectaţi tot

tempFile.Writeline "<input type=""button"" id=""button1"" style=""display:none;position=absolute;bottom:0;right:0"" value=""Inchide fereastra"" onclick=""self.close()"">"

Toate sunt elemente care tin direct de HTML.

danyt · Mesaj de **danyt** » Joi Apr 11, 2013 7:03 am

E perfect. Multumesc frumos.

danyt · Mesaj de **danyt** » Sâm Iun 08, 2013 8:37 am

Se poate ca imaginea afisata sa ''ia" rezolutia ecranului?....fiindca am constatat ca la unii user-i, care au alta rezolutie setata la monitor, imaginea din fundal ori este prea mare, ori nu acopera tot ecranul?
Sunt alte solutii?
Multumesc.

Dr.Windows · Mesaj de **Dr.Windows** » Mar Iun 11, 2013 5:07 pm

Din pacate aici problema ma cam depaseste, pentru ca tot ce am facut pana acum nu tine de sistemul de operare ci de HTML si modul in care informatia este afisata intr-un browser web. Ce mai ai de facut este sa gasesti functia JavaScript care pusa intrun fisier HTML (evident folosind metoda de mai sus pentru generarea fisierului) care sa faca asta.

Ofertă irepetabilă!

1200 de lecţii video
Microsoft Office

ITLearning/Dr.Excel