akuafif/ahref_call_vb_sub.hta

## ahref_call_vb_sub.hta
<html>
<head>
<title>HTA a href sub calling</title>
<HTA:APPLICATION
    APPLICATIONNAME="HTA a href sub calling"
    ID="hta_utility"
    border            = "thin"
    borderStyle        = "tool"
    caption            = "yes"
    contextMenu        = "yes"
    maximizeButton    = "no"
    minimizeButton    = "yes"
    navigable        = "yes"
    showInTaskbar    = "yes"
    singleInstance    = "yes"
    scroll = "no"
    sysmenu            = "yes"
    windowState        = "normal"
    VERSION="1.0"/>
</head>
<SCRIPT Language="vbscript">
Const Width = 440
Const Height = 130

Sub DoResize
    'resize
    window.resizeTo Width, Height
    screenWidth = Document.ParentWindow.Screen.AvailWidth
    screenHeight = Document.ParentWindow.Screen.AvailHeight
    posLeft = (screenWidth - Width) / 2
    posTop = (screenHeight - Height) / 2
    'move to centerscreen
    window.moveTo posLeft, posTop
End Sub

Sub Window_OnLoad
  DoResize
End Sub

Sub onlinkclick(justsomestring)
	msgbox justsomestring
End sub
</SCRIPT>
<body>
<h2>Example: using "a href" to call vb sub</h2>
<a href="#" onClick="Call onlinkclick('Hello World')">Spawn a pop up</a>
</body>
</html>
	<html>
	<head>
	<title>HTA a href sub calling</title>
	<HTA:APPLICATION
	APPLICATIONNAME="HTA a href sub calling"
	ID="hta_utility"
	border = "thin"
	borderStyle = "tool"
	caption = "yes"
	contextMenu = "yes"
	maximizeButton = "no"
	minimizeButton = "yes"
	navigable = "yes"
	showInTaskbar = "yes"
	singleInstance = "yes"
	scroll = "no"
	sysmenu = "yes"
	windowState = "normal"
	VERSION="1.0"/>
	</head>
	<SCRIPT Language="vbscript">
	Const Width = 440
	Const Height = 130

	Sub DoResize
	'resize
	window.resizeTo Width, Height
	screenWidth = Document.ParentWindow.Screen.AvailWidth
	screenHeight = Document.ParentWindow.Screen.AvailHeight
	posLeft = (screenWidth - Width) / 2
	posTop = (screenHeight - Height) / 2
	'move to centerscreen
	window.moveTo posLeft, posTop
	End Sub

	Sub Window_OnLoad
	DoResize
	End Sub

	Sub onlinkclick(justsomestring)
	msgbox justsomestring
	End sub
	</SCRIPT>
	<body>
	<h2>Example: using "a href" to call vb sub</h2>
	<a href="#" onClick="Call onlinkclick('Hello World')">Spawn a pop up</a>
	</body>
	</html>