ActiveX控件为.NET开发者打开了一扇新的大门。尽管之前对VB 6持有偏见,但不得不承认,VBScript在创建ActiveX控件方面表现出色,它能够提供完整的系统访问权限。虽然在互联网上运行可能会带来一些风险,但在特定环境(如内网)中,ActiveX控件可以发挥巨大的作用。
本文将介绍如何使用ActiveX控件来显示数据链接对话框,并通过VBScript调用其方法。这对于.NET程序员来说是一个全新的领域,特别是对于那些对ActiveX控件和数据链接对话框不太熟悉的开发者。
ActiveX控件是一种可以嵌入到网页或应用程序中的小型程序,它们可以执行特定的任务,如显示数据链接对话框。ActiveX控件通常使用VBScript或JavaScript进行编程,以实现与用户的交互。
数据链接对话框是一个标准的对话框,它列出了客户端机器上的所有数据提供程序以及建立有效连接字符串所需的参数。此外,该对话框还可以测试连接的有效性。
要实现这一功能,需要使用以下代码:
<OBJECT id="dl" codeBase="dl.CAB#version=1,0,0,0" height="0" width="0" classid="CLSID:ED467200-646D-46ED-992A-418EC94C319F" VIEWASTEXT>
<PARAM NAME="_ExtentX" VALUE="26">
<PARAM NAME="_ExtentY" VALUE="26">
</OBJECT>
在这段代码中,定义了一个ActiveX对象,其ID为"dl"。这个对象用于显示数据链接对话框。
接下来,使用VBScript来调用ActiveX控件的方法。以下是VBScript的示例代码:
<script language="vbscript">
Sub cmdChange_Click()
dl.openDl
document.forms(0).txtConnectionString.Value = dl.connectin
End Sub
</script>
在这段代码中,定义了一个名为cmdChange_Click的子程序,当用户点击按钮时,它会打开数据链接对话框,并将对话框返回的连接字符串赋值给文本框。
最后,需要构建HTML页面的结构,以便用户可以与ActiveX控件进行交互。以下是HTML页面的示例代码:
<form id="Form1" method="post" runat="server">
<asp:TextBox id="txtConnectionString" style="Z-INDEX: 101; LEFT: 16px; POSITION: absolute; TOP: 64px" runat="server">
</asp:TextBox>
<INPUT TYPE="button" id="dlName2" NAME="dlName2" VALUE="test" OnClick="cmdChange_Click" style="Z-INDEX: 102; LEFT: 176px; POSITION: absolute; TOP: 64px">
<asp:Label id="Label1" style="Z-INDEX: 103; LEFT: 24px; POSITION: absolute; TOP: 32px" runat="server" Width="344px" Font-Size="Larger">
Datalink Dialog
</asp:Label>
</form>
在这段代码中,定义了一个表单,其中包含一个文本框用于显示连接字符串,一个按钮用于触发数据链接对话框,以及一个标签用于显示对话框的标题。
目前,这是第一个版本,它是为满足特定客户的需求而创建的。虽然还有许多改进的空间,但由于时间关系,暂时无法进行进一步的开发。