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(& ......
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
form1中有text1-8， 和command1
text8中为程序代码（生成窗体为form2（已做好））
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......
