ActiveX解决的问题

[wzice]

我在一客户端应用中需要：用户点击按键，浏览器触发一个本地程序或一个事件，发送消息给一台局域网中的计算机，收到回应后（停留时间超过一分钟），结果由浏览器反馈到服务端。用ActiveX可以实现吗？如何实现？

[iamafraid]

当然可以

[czhp]

用一个winsock控件或tcp/ip控件就可以了。

[wangang]

用mfc 作一个activex控件 ，调用CWinsock 类 --》Send() ,Recieve().... ,很简单

[wzice]

可否给我一小段VB源代码，在ActiveX控件里打开一个本地文件并进行操作。主要是想弄清楚定义方法、事件和属性的步骤。谢谢各位。

[Firing_Sky]

以下是一个简单的ActiveX控件示例，它有一个事件Click，一个方法WriteFile，一个属性Text
它是由一个Text控件Text1和一个Command控件Command1组成的
控件的Text属性来自Text1
控件的Click事件来自Command1
控件的WriteFile方法为新建的，它的作用是将Text1里的内容写入C:\1.txt文件内
其实VB中有个ActiveX接口向导，用起来很方便的

'事件声明:
Event Click() 'MappingInfo=Command1,Command1,-1,Click

Private Sub Command1_Click()
RaiseEvent Click
End Sub

'MappingInfo=Text1,Text1,-1,Text
Public Property Get Text() As String
Text = Text1.Text
End Property

Public Property Let Text(ByVal New_Text As String)
Text1.Text() = New_Text
PropertyChanged "Text"
End Property

'MemberInfo=0
Public Function WriteFile() As Boolean
Open "C:\1.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Function

'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

Text1.Text = PropBag.ReadProperty("Text", "Text1")
End Sub

'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

Call PropBag.WriteProperty("Text", Text1.Text, "Text1")
End Sub

我可不可以得分了？

[wzice]

wangang:
可否将控件制作过程描述得详细一点；并介绍在页面上如何调用？

[Firing_Sky]

你在FrontPage2000种选择插入ActiveX，看看它是怎么声明的就明白了，剩下的只有你自己在VBScript或者JavaScript中使用的问题了，这个不难

[Firing_Sky]

wzice，也希望你以后多多给分 ^_^

[wzice]

谢谢Firing_Sky,以后希望可以经常请教。