vb activex 传递参数 - VB / COM/DCOM/COM+
我用VB写了一个activex，现在想在js里面向activex传值，写了一个public方法不行，写了一个属性也不行，请高手指点，在线等候,代码如下
变量声明
Dim dirName As String = ""
方法
Public Sub UrlName(ByRef tt As String)
dirName = tt
End Sub
属性
Public Property StrName1() As String
Get
Return strName
End Get
Set(ByVal value As String)
strName = value
End Set
End Property
js调用
<html>
<head>
<script type="text/vbscript" language="vbscript">
function aa()
{
var objClass=document.getElementById("objClass");
objClass.UrlName("d:\123");
}
</script>
</head>
<body onload="aa();">
<object id="objClass" classid="clsid:CA04D92A-0AFA-3736-BC23-4EF99B7BF91F"></object>
</body>
</html>
document.all.objClass.UrlName("d:\123");
这样试试
{{
相关问答：
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
