OFFtopic - VBSkript
Verfasst: Do 26 Okt, 2000 17:20<HTML>Kann mir jemand von euch helfen, der sich ein wenig mit java auskennt?
ich mein, ich kenn mich ja eh a bissl aus, aber an dem da werd ich noch verzweifeln!!!!
Also, es geht wie folgt, ....
Ich habe folgendes Beispiel:
<HEAD>
<TITLE>Pop Up Menu</TITLE>
<STYLE TYPE="text/css">
<!--
#text {
POSITION: absolute;
Z-INDEX: 1;
LEFT: 10px;
TOP: 5px;}
#iDL {
POSITION: absolute;
Z-INDEX: 1;
LEFT: 10px;
TOP: 150px;}
-->
</style>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<DIV ID="iDL" CLASS="iconNav">
Download
</DIV>
<OBJECT ID="Menu1" WIDTH=0 HEIGHT=0
CLASSID="CLSID:F5131C24-E56D-11CF-B78A-444553540000"
CODEBASE="#version=1,0,0,9">
<PARAM NAME="_Version" VALUE="65536">
<PARAM NAME="_ExtentX" VALUE="2646">
<PARAM NAME="_ExtentY" VALUE="1323">
<PARAM NAME="_StockProps" VALUE="0">
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
dim Site, Imgdir
Site = "http://" & location.host
Imgdir = Site + "/ie/images/topnav/"
dim menu1Ready
menu1Ready = false
sub document_onMouseover()
dim srcElement
set srcElement = window.event.srcElement
if srcElement.classname = "iconNav" then
srcElement.style.color = "#00A8FF"
window.event.cancelBubble = true
end if
end sub
sub document_onMouseout()
dim srcElement
set srcElement = window.event.srcElement
if srcElement.classname = "iconNav" then
srcElement.style.color = "black"
window.event.cancelBubble = true
end if
end sub
sub document_onClick()
if (document.all.Menu1.readyState = 4) Or (document.all.Menu1.readyState = "complete") then menu1Ready = true
dim srcElement
set srcElement = window.event.srcElement
select case srcElement.id
case "iHome"
top.location.href= Site + "/ie/default.asp"
case "iProd"
if menu1Ready then
Prod_Menu
else
productInfo()
end if
case "iDL"
if menu1Ready then
Down_Menu()
else
download()
end if
end select
end sub
sub Menu1_Onclick(id)
url = menu1.GetItemValue(id)
top.location.href=url
end sub
Sub window_onbeforeunload()
if menu1Ready then call Menu1.RemoveAllItems()
end sub
sub Ad (cde,lbl,menuitem,par)
dim temp
temp = lbl
' if lcase(cde)=MarkMenu then
' temp = ">" & temp
' else
temp = " " & temp
' end if
Menu1.AddItem cde,temp,menuitem,par
end sub
Sub Down_Menu()
Menu1.RemoveAllItems
Ad "ieDL_Over","DHTML Demos Home Page","http://www.ruleweb.com/dhtml/",""
Ad "ieDL_IE4","Internet Explorer 4.0 Demos","http://www.ruleweb.com/dhtml/",""
Ad "ieDL4_W32","Pop Out Menu","../popoutnetscape/popout.html","ieDL_IE4"
Ad "ieDL4_W16","Preview Presentation","../preview/preview.html","ieDL_IE4"
Ad "ieDL4_Mac","Sequencer JS","../sequence/sequence.html","ieDL_IE4"
Ad "ieDL4_Unix","Sequencer Active X","../Sequence/jeffsequencex.html","ieDL_IE4"
Ad "ieDL_IE4c","Internet Explorer 4.0 Components","http://www.microsoft.com/ie/ie40/download/?/ie/ie40/download/addon.htm",""
Ad "ieDL_IE3c","Netscape 4.0 Demos","",""
Ad "ieDL_citx","Drag and Drop","http://developer.netscape.com/library/examples/dynhtml/dragable/index.html","ieDL_IE3c"
Ad "ieDL_html","Horizontal Wipe","../netscape/horizontalwipe.html","ieDL_IE3c"
Ad "ieDL_shock","Animation","../netscape/animation.html","ieDL_IE3c"
Ad "ieDL_mls","Skeleton Game","../Skeleton/skeletonheadworksx.html","ieDL_IE3c"
call Menu1.Popup (100,104)
end sub
-->
</SCRIPT>
und ich versuche dieses Script zweimal zu verwenden.
in einer seite.
dh, ich möchte 4-5 Wörter haben, wo so ein Pop up Menü kommt!
ABER EIN INDIVIDUELL KONFIGURIERBARES!!!
Ich glaube, ich mache eh nur eine kleinigkeit falsch, bin aber für hilfe dankbar.
Nochmals, entschuldigung, passt net ganz ins ADSL Forum,
aber ich war ja brav und hab [OT] gschrieben.
)
hp
franzl</HTML>
ich mein, ich kenn mich ja eh a bissl aus, aber an dem da werd ich noch verzweifeln!!!!
Also, es geht wie folgt, ....
Ich habe folgendes Beispiel:
<HEAD>
<TITLE>Pop Up Menu</TITLE>
<STYLE TYPE="text/css">
<!--
#text {
POSITION: absolute;
Z-INDEX: 1;
LEFT: 10px;
TOP: 5px;}
#iDL {
POSITION: absolute;
Z-INDEX: 1;
LEFT: 10px;
TOP: 150px;}
-->
</style>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<DIV ID="iDL" CLASS="iconNav">
Download
</DIV>
<OBJECT ID="Menu1" WIDTH=0 HEIGHT=0
CLASSID="CLSID:F5131C24-E56D-11CF-B78A-444553540000"
CODEBASE="#version=1,0,0,9">
<PARAM NAME="_Version" VALUE="65536">
<PARAM NAME="_ExtentX" VALUE="2646">
<PARAM NAME="_ExtentY" VALUE="1323">
<PARAM NAME="_StockProps" VALUE="0">
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
dim Site, Imgdir
Site = "http://" & location.host
Imgdir = Site + "/ie/images/topnav/"
dim menu1Ready
menu1Ready = false
sub document_onMouseover()
dim srcElement
set srcElement = window.event.srcElement
if srcElement.classname = "iconNav" then
srcElement.style.color = "#00A8FF"
window.event.cancelBubble = true
end if
end sub
sub document_onMouseout()
dim srcElement
set srcElement = window.event.srcElement
if srcElement.classname = "iconNav" then
srcElement.style.color = "black"
window.event.cancelBubble = true
end if
end sub
sub document_onClick()
if (document.all.Menu1.readyState = 4) Or (document.all.Menu1.readyState = "complete") then menu1Ready = true
dim srcElement
set srcElement = window.event.srcElement
select case srcElement.id
case "iHome"
top.location.href= Site + "/ie/default.asp"
case "iProd"
if menu1Ready then
Prod_Menu
else
productInfo()
end if
case "iDL"
if menu1Ready then
Down_Menu()
else
download()
end if
end select
end sub
sub Menu1_Onclick(id)
url = menu1.GetItemValue(id)
top.location.href=url
end sub
Sub window_onbeforeunload()
if menu1Ready then call Menu1.RemoveAllItems()
end sub
sub Ad (cde,lbl,menuitem,par)
dim temp
temp = lbl
' if lcase(cde)=MarkMenu then
' temp = ">" & temp
' else
temp = " " & temp
' end if
Menu1.AddItem cde,temp,menuitem,par
end sub
Sub Down_Menu()
Menu1.RemoveAllItems
Ad "ieDL_Over","DHTML Demos Home Page","http://www.ruleweb.com/dhtml/",""
Ad "ieDL_IE4","Internet Explorer 4.0 Demos","http://www.ruleweb.com/dhtml/",""
Ad "ieDL4_W32","Pop Out Menu","../popoutnetscape/popout.html","ieDL_IE4"
Ad "ieDL4_W16","Preview Presentation","../preview/preview.html","ieDL_IE4"
Ad "ieDL4_Mac","Sequencer JS","../sequence/sequence.html","ieDL_IE4"
Ad "ieDL4_Unix","Sequencer Active X","../Sequence/jeffsequencex.html","ieDL_IE4"
Ad "ieDL_IE4c","Internet Explorer 4.0 Components","http://www.microsoft.com/ie/ie40/download/?/ie/ie40/download/addon.htm",""
Ad "ieDL_IE3c","Netscape 4.0 Demos","",""
Ad "ieDL_citx","Drag and Drop","http://developer.netscape.com/library/examples/dynhtml/dragable/index.html","ieDL_IE3c"
Ad "ieDL_html","Horizontal Wipe","../netscape/horizontalwipe.html","ieDL_IE3c"
Ad "ieDL_shock","Animation","../netscape/animation.html","ieDL_IE3c"
Ad "ieDL_mls","Skeleton Game","../Skeleton/skeletonheadworksx.html","ieDL_IE3c"
call Menu1.Popup (100,104)
end sub
-->
</SCRIPT>
und ich versuche dieses Script zweimal zu verwenden.
in einer seite.
dh, ich möchte 4-5 Wörter haben, wo so ein Pop up Menü kommt!
ABER EIN INDIVIDUELL KONFIGURIERBARES!!!
Ich glaube, ich mache eh nur eine kleinigkeit falsch, bin aber für hilfe dankbar.
Nochmals, entschuldigung, passt net ganz ins ADSL Forum,
aber ich war ja brav und hab [OT] gschrieben.
)
hp
franzl</HTML>