JavaScriptからVBscriptの関数をcallするには (ID:77041)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

> JavaScriptからVBscriptの関数を呼び出す場合の方法を教えてください。

各Windows Scriptは、使用言語を明示しておけば相互に呼び出せますよ。

************ Internet Explorerでのクライアントスクリプトの例 ************
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<meta http-equiv="Content-Script-Type" content="text/JScript">
<title>スクリプト言語の混在</title>
</head>
<body>

</body>
</html>
****************************************************

************ Active Server Pagesでの例 ************
<%@Language="VBScript"%><%Option Explicit%>
<html>
<head>
<title>Sample</title>
<script runat="server" language="jscript">
function getUTCString()
{
	var d = new Date()
	return d.toUTCString();
}
</script>
<%
Dim sVBS, sJS
sVBS = FormatDateTime(Now, vbGeneralDate)
sJS = getUTCString()
%>
</head>
<body>
<p><%=sVBS%></p>
<p><%=sJS %></p>
</body>
</html>
****************************************************

************ HTMLビヘイビアの例 ************
<?xml version="1.0" encoding="Shift_JIS"?>
<PUBLIC:COMPONENT xmlns:PUBLIC="http://www.w3.org/TR/NOTE-HTMLComponents">
<PUBLIC:IMPLEMENTS TYPE="Behavior" id="HTC">
	<PUBLIC:ATTACH EVENT="ondetach" ONEVENT="cleanup()" />
</PUBLIC:IMPLEMENTS>
<SCRIPT LANGUAGE="VBSCRIPT">'<![CDATA[
Function getFormatNumberVB(Value)
	getFormatNumberVB = FormatNumber(Value, 0)
End Function
']]>
</SCRIPT>
<SCRIPT LANGUAGE="JSCRIPT">//<![CDATA[
if(element.tagName == 'INPUT' && element.type == 'text')
{
	element.attachEvent('onfocus', onFocus);
	element.attachEvent('onchange', onChange);
}
function cleanup()
{
	element.detachEvent('onfocus', onFocus);
	element.detachEvent('onchange', onChange);
}
function onFocus()
{
	element.select();
}
function onChange()
{
	var n = parseInt(element.value.replace(/./,''));
	if(!isNaN(n)) element.value = getFormatNumberVB(n);
}
//]]>
</SCRIPT>
</PUBLIC:COMPONENT>
****************************************************

←解決時は質問者本人がここをチェックしてください。

戻る