XP
Mon May 14 08:42:00 CDT 2007
Hi Mayayana,
I like the code style you suggest with the separate Subs in the HEAD section;
In my case, I have nested DIVs and the mouseover/out event never triggers.
THis is similar to the other issue I had with the context menu where we
needed "parent." in front of the call in order for it to work.
I tried using "parent." again like so: <DIV parent.Class="My_Class"> but
this doesn't work...do you have any suggestions? If it is easier, here is a
full example...
<HTML>
<HEAD>
<TITLE>File Encryption Device</title>
<HTA:Application
ID="oEncryptorApp"
SINGLEINSTANCE="Yes"
CAPTION="Yes"
SCROLL="No"
Border="Thin"
BorderStyle="Sunken"
InnerBorder="No"
MinimizeButton="No"
MaximizeButton="No"/>
<Style>
.divGR {color: #000000;}
</style>
<SCRIPT LANGUAGE="VBScript">
Sub divGR_onmouseover()
With divGR.style
.color="BLACK"
.backgroundcolor="#00FF00"
End With
End Sub
Sub divGR_onmouseout()
With divGR.Style
.color="#00FF00"
.backgroundcolor="Black"
End With
End Sub
</script>
</head>
<SCRIPT LANGUAGE="VBScript">
Dim sBegGrad
Dim sEndGrad
Dim oPopup
Set oPopup = window.createpopup
Sub Window_OnLoad
Self.ResizeTo 425,360
End Sub
Function ContextMenu
lefter=window.event.offsetX+10
topper=window.event.offsetY+10
oPopup.document.body.innerHTML=oContextHTML.innerHTML
oPopup.document.body.style.cursor="hand"
oPopup.document.body.style.fontfamily="VERDANA"
oPopup.document.body.style.fontsize="9pt"
oPopup.document.body.style.color="#60dd49"
oPopup.document.body.Style.padding="1"
oPopup.document.body.style.Backgroundcolor="black"
oPopup.document.body.style.border="2px solid"
oPopup.document.body.style.bordercolor="#0000FF"
oPopup.show lefter, topper, 130, 180, window.document.body
window.event.returnvalue=false
End Function
Sub MenuItem1()
Msgbox "Test click item 1"
End Sub
Sub MenuItem2()
Msgbox "Test click item 2"
End Sub
</Script>
<BODY oncontextmenu="ContextMenu"
STYLE="filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=1,
StartColorStr='#000000', EndColorStr='#0000FF')">
<DIV ID="oContextHTML" Style="display:none;">
<DIV ID="SC1" Class="divGR">
<SPAN onclick="parent.MenuItem1()" language="VBScript">Menu Item 1</span>
</div>
<DIV ID="SC2" Class="divGR">
<SPAN onclick="parent.MenuItem2()" language="VBScript">Menu Item 2</span>
</div>
</Body>
Thanks again for you help...
"mayayana" wrote:
> In addition to the other samples, you can also use
> a script sub. Personally I like that method to keep it all in
> the header, rather than in local tags, so that I can keep
> track of it. So I'll end up with something like:
>
> <HEAD>
>
> <STYLE>
> .div1 {color: #000000;}
> </STYLE>
>
> <SCRIPT LANGUAGE="VBScript">
> Sub div1_onmouseout()
> With div1.style
> .color = "#FF0000"
> .borderColor = "#FFFF00"
> End With
> End Sub
> </SCRIPT>
>
> </HEAD>
> <BODY>
> <DIV CLASS="div1" ID="div1">
> text here
> </DIV>
>
> By doing it that way I have all CSS and dynamic scripting
> actions in the HEAD section where I can organize them and
> edit them easily, and I don't have to worry about unplanned
> cascading. (The in-tag styles take precedence over styles
> declared in a CSS file or STYLE tag.) But of course it's all
> just a matter of taste.
>
>
> > Is it possible to "call" or use a style in a DIV onmouseover/onmouseout?
> >
> > For example:
> >
> > <DIV ID="SC1" onmouseover=<MY_STYLE_1> onmouseout=<MY_STYLE_2>
> > Style="border:1px solid #54BC00;">
> >
> > If so, how do you reference it? Examples much appreciated...
> >
> > Thanks
>
>
>