关于activex 与javascript 交互求助 - VB / 控件
网上找到以下资料
activex来操作javascript函数。
我们在网页中加入一段javascript代码：
function Test(){
alert("test")
}
在activex我们可以通过如下代码来调用。
UserControl.Parent.Script.Test()
同时我们可以使用
UserControl.Parent.Script.window.Close来关闭当前网页。
UserControl.Parent.Script.document.location.href="aa.html" 来更换连接。
我的VB控件中
Private Sub Command1_Click()
UserControl.Parent.Script.Test()
End Sub
提示UserControl.Parent.Script.Test()这句语法错误，请问UserControl是自己的控件名称吗？我的控件名称是MyControl，我改为MyControl.Parent.Script.Test()也不行
相关问答：
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
现在有个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分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......
