| |
cmrw
Posts: 2
Score: 0
Joined: 10/22/2008
From: Dallas
Status: offline
|
Please, Please help. I have a problem in an .hta app that I have created. I have buttons where I have replaced the standard button with an image file. My question is I cannot get the "hover" or "onMouseOver" to work. I want it so that when some one mouses over the button the image changes. Everything else works except that. What am I doing wrong? Here is the code, sorry for it being so long.
<html>
<title>PBK Project Explorer</title>
<head>
<HTA:APPLICATION
APPLICATIONNAME="PBK Project Explorer"
SCROLL="yes"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
ICON="%systemroot%/projectexplore.ico"
>
</head>
<style>
BODY
{
BackGround-Color:Transparent;
Filter:progid:DXImageTransform.Microsoft.Gradient
(StartColorStr='#CC0000',endColorStr='#8b0000');
Font: arial,sans-serif
margin-top: 10px;`
margin-left: 20px;
margin-right: 20px;
margin-bottom: 5px;
color: #CC3333;
}
.button
{
border: none;
width: 187px;
height: 30px;
font-family: impact;
font-size: 9pt;
background-color: transparent;
background-image: url(images/button_main.gif);
}
.button:onMouseOver
{
border: none;
width: 187px;
height: 30px;
font-family: impact;
font-size: 9pt;
background-color: transparent;
background-image: url(images/button_over.gif);
}
td
{
font-family: impact;
font-size: 9pt;
}
#scroll
{
height:100%;
overflow:auto;
}
SELECT.FixedWidth
{
width: 17em; /* maybe use px for pixels or pt for points here */
}
</style>
<script language="VBScript">
window.resizeTo 275,850
'Sub Window_OnLoad
Set objShell = CreateObject("Wscript.Shell")
Sub Proj_Hou
objShell.Run "\\echo\projects_hou"
End Sub
Sub Proj_Dal
objShell.Run "\\neo\projects"
End Sub
Sub Proj_fw
objShell.Run "\\iris\projects"
End Sub
Sub Proj_ssh
objShell.Run "\\ssh2\projects"
End Sub
Sub Proj_san
objShell.Run "\\siren\projects_san"
End Sub
Sub Proj_aus
objShell.Run "\\orion\projects_aus"
End Sub
Sub Proj_rgv
objShell.Run "\\poseidon\projects_rgv"
End Sub
Sub Project_Photos
objShell.Run "\\aries\marketingprojects\Marketing\Images\_Photos\_PBK\_Projects\_HighRes"
End Sub
Sub Marketing_hou
objShell.Run "\\apollo\marketing"
End Sub
Sub Logos
objShell.Run "\\apollo\marketing\Images\Logos\HighRes"
End Sub
Sub Design_hou
objShell.Run "\\apollo\pbkdetail\design"
End Sub
Sub Interiors_hou
objShell.Run "\\apollo\interiors"
End Sub
Sub Intranet
objShell.Run "http://intranet/default.aspx"
End Sub
Sub Gallery
objShell.Run "\\chaos\gallery"
End Sub
Sub FTP_OutBox
objShell.Run "\\chaos\outbox"
End Sub
Sub FTP_InBox
objShell.Run "\\chaos\inbox"
End Sub
Sub FTP_ASC
objShell.Run "\\chaos\asc"
End Sub
Sub Job_signs
objShell.Run "\\apollo\pbkdetail\DESIGN\JOBSIGNS"
End Sub
Sub Oce_Scans
objShell.Run "\\zeus\oce-scan"
End Sub
Sub Oce_Scan_archives
objShell.Run "\\zeus\scan-archive"
End Sub
Sub Hou_Mgmt_Sched
strCommand = chr(34) & "\\apollo\Data\Admin Standards\Management Schedule\Full Mgmt weekly Schedule 2008.xls" & chr(34)
Const NORMAL_WINDOW = 1
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "excel", strCommand, , , NORMAL_WINDOW
Set objShell = CreateObject("Wscript.Shell")
End Sub
Sub Proj_3d
objShell.Run "\\zeus\projects3d"
End Sub
Sub MyDocs
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "explorer.exe %userprofile%\my documents"
End Sub
Sub MyPicts
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "explorer.exe %userprofile%\my documents\my pictures"
End Sub
Sub MyComp
objShell.Run "c:\"
End Sub
Sub MyTemp
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "explorer.exe %temp%"
End Sub
</script>
<body>
<div align="center">
<input class="button" TYPE=BUTTON value="Houston Projects" name="btnProj_Hou" onClick="Proj_Hou" font color = "blue">
<br>
<input class="button" TYPE=BUTTON value="Dallas Projects" name="btnProj_dal" onClick="Proj_dal" >
<br>
<input class="button" TYPE=BUTTON value="Fort Worth Projects" name="btnProj_fw" onClick="Proj_fw" >
<br>
<input class="button" TYPE=BUTTON value="League City Projects" name="btnProj_ssh" onClick="Proj_ssh" >
<br>
<input class="button" TYPE=BUTTON value="San Antonio Projects" name="btnProj_san" onClick="Proj_san" >
<br>
<input class="button" TYPE=BUTTON value="Austin Projects" name="btnProj_aus" onClick="Proj_aus" >
<br>
<input class="button" TYPE=BUTTON value="McAllen Projects" name="btnProj_rgv" onClick="Proj_rgv" >
<br>
<input class="button" TYPE=BUTTON value="Project Photographs" name="btnProject_Photos" onClick="Project_Photos" >
<br>
<input class="button" TYPE=BUTTON value="Marketing" name="btnMarketing_hou" onClick="Marketing_hou" >
<br>
<input class="button" TYPE=BUTTON value="Logos" name="btnLogos" onClick="Logos" >
<br>
<input class="button" TYPE=BUTTON value="Job Signs" name="btnJob_signs" onClick="Job_signs" >
<br>
<input class="button" TYPE=BUTTON value="Design Houston" name="btnDesign_hou" onClick="Design_hou" >
<br>
<input class="button" TYPE=BUTTON value="Interiors Houston" name="btnInteriors_hou" onClick="Interiors_hou" >
<br>
<input class="button" TYPE=BUTTON value="PBK Intranet" name="btnIntranet" onClick="Intranet" >
<br>
<input class="button" TYPE=BUTTON value="Gallery on Chaos" name="btnGallery" onClick="Gallery" >
<br>
<input class="button" TYPE=BUTTON value="FTP OutBox" name="btnFTP_OutBox" onClick="FTP_OutBox" >
<br>
<input class="button" TYPE=BUTTON value="FTP InBox" name="btnFTP_InBox" onClick="FTP_InBox" >
<br>
<input class="button" TYPE=BUTTON value="FTP ASC" name="btnFTP_ASC" onClick="FTP_ASC" >
<br>
<input class="button" TYPE=BUTTON value="Houston Mgmt Schedule" name="btnHou_Mgmt_Sched" onClick="Hou_Mgmt_Sched" >
<br>
<input class="button" TYPE=BUTTON value="Projects 3D" name="btnProj_3d" onClick="Proj_3d" >
<br>
<input class="button" TYPE=BUTTON value="Oce Scan Folder" name="btnOce_Scans" onClick="Oce_Scans" >
<br>
<input class="button" TYPE=BUTTON value="Oce Scan Archives" name="btnOce_Scan_archives" onClick="Oce_Scan_archives" >
<br>
<input class="button" TYPE=BUTTON value="My Computer" name="btnMyComp" onClick="MyComp" >
<br>
<input class="button" TYPE=BUTTON value="My Documents Folder" name="btnMyDocs" onClick="MyDocs" >
<br>
<input class="button" TYPE=BUTTON value="My Pictures Folder" name="btnMyPicts" onClick="MyPicts" >
<br>
<input class="button" TYPE=BUTTON value="My Temp Folder" name="btnMyTemp" onClick="MyTemp" >
</div>
</body>
</html>
|
|
Printable Version
HTA: Image Rollover Button - 
RE: HTA: Image Rollover Button - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread