 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
数组问题 数组在程序中使用的很多，而且比较轻易出问题 我们通过小例子来看看 打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fC4 点击菜单->工具->添加过程 我们在名称内输入AcceptArray1,类型选择子程序，范围选择公有，然后确定 再次操作:在名称内输入AcceptArray2,类型选择函数，范围选择公有，然后确定即可 ‘功能:传递数组地址到组件，使用ByRef要害字,并赋值返回 Public Sub AcceptArray1(ByRef varray As Variant) As Variant varray(0) = "龙卷风" varray(1) = "20" End Sub ‘功能:返回一个字符串数组 Public Function AcceptArray2() As Variant Dim a(2) as Variant a(0) = "龙卷风" a(1) = "20" AcceptArray2=a End Function Ok,一个组件就写好了，点击菜单->文件->生成fCom.dll文件 确定，在目录下就会有fCom.dll文件 测试 打开visual interdev6.0,生成一个asp文件 <%@ Language=VBScript %> <HTML> <BODY> <% dim obj set obj = server.createobject("fCom.fC4") dim a(2) \\\'测试第一个组件方式 obj.AcceptArray1(a) response.write a(0) response.write "<br>" response.write a(1) response.write "<br>" \\\'测试第二个组件方式 dim b b=obj.AcceptArray2() for i=0 to ubound(b) Response.Write b(i) response.write "<br>" next %> </BODY> </HTML> 配置好虚拟目录，在ie中执行此asp文件，得到结果如下: 龙卷风 20 龙卷风 20 总结一下： 字符串，数字通过值传递或者作为返回值被返回 假如使用引用传递，将参数的类型设为Variant。这样做可以避免一些错误。不过尽可能的减少引用传递参数 返回类别: 教程 上一教程: 利用W3 JMAIL组件收POP3邮件 下一教程: ASP文件上传函数库 您可以阅读与"ASP组件初级入门与精通系列之四"相关的教程: · ASP组件初级入门与精通系列之七 · Asp组件初级入门与精通系列之二 · ASP组件初级入门与精通系列之六 · ASP组件初级入门与精通系列之五 · ASP组件初级入门与精通系列之三 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
