文章探索:   分类:    关键字:  
  + 栏目导航
  + 相关文章
文本框中光标位置的获得
用VB导入导出你的IE收藏夹
VB应用程序访问SQL Server方法探讨
VB访问SQL Server数据库技术全揭密
自动上网抓数据的机器人
自己的IE——用VB制作浏览器
VB中如何保存Webbrowser中的整个页面..
在VB中该如何控制其它程序的弹出窗口..
保存webbrowser中的HTML内容
破译动网验证码的简单方法
轻松获取QQ密码
VB.NET获取硬盘序列号的方法
WEBBROWSER 技巧一(收藏)
VB自动登陆网络站点详解(二):Inet..
获取webbrowser控件网页的源码
WebBrowser控件说明
关于用VB做更漂亮的窗体的思考
VB中访问存储过程的几种办法
VB6中改变屏幕的分辨率和刷新频率
VB编写一个能显示百分比的自定义进度..
公农历转换VB类
VB.NET窗口渐淡关闭
使用VB实现邮箱自动注册(二):修改..
VB.NET轻松实现任务栏程序
VB.NET启动外部程序
利用vb实现图片上传
VB实现局域网内的文件传输
VB 一个Function传回多个值
在VB中实现多线程
VB 手机号码编码程序


技术教程 -> VB教程 ->  
VB 一个Function传回多个值
来源:转载   人气:1640   录入时间:2007-11-8
    解决Function只能传回一个值的问题
   
   ●用Function当成子程序的一个好处,就是Function本身可以传回一个值到上一层呼叫的子程序里,但问题来了,若为了工作上的需要,想一次传回一个以上的值,那该怎么办?
   
   
   Private Sub Command1_Click()
   
   MyReturn 5, 6
   
   End Sub
   
   Private Function MyReturn(X, Y) As Long
   
   A = X + Y
   
   B = X - Y
   
   C = X * Y
   
   D = X / Y
   
   ''想传回A、B、C、D四个数值回去,怎么写?
   
   End Function
   
   
   ●这是一个基本的观念问题,子程序与子程序间的传值有ByVal与ByRef两种,ByVal是两个子程序间的传值放在不同的内存位置,而预设的ByRef则是将传值放在同一个内存位置上,故这一点可以拿来利用,可将上式改写成:
   
   Private Sub Command1_Click()
   
   MyReturn 5, 6, Ans1, Ans2 ,Ans3 ,Ans4
   
   MsgBox "答案分别是" & Ans1 & "," & Ans2 & "," & Ans3 & "," & Ans4
   
   End Sub
   
   Private Function MyReturn(X, Y, A, B, C, D) As Long
   
   A = X + Y
   
   B = X - Y
   
   C = X * Y
   
   D = X / Y
   
   End Function
   
   ●或是把资料作成Variant型态数组传回:
   
   
   
   Private Sub Command1_Click()
   
   Ans = MyReturn(5, 6)
   
   MsgBox "答案分别是" & Ans(0) & "," & Ans(1) & "," & Ans(2) & "," & Ans(3)
   
   End Sub
   
   Private Function MyReturn(X, Y) As Variant
   
   MyReturn = Array(X + Y, X - Y, X * Y, X / Y)
   
   End Function
   




Copyright(C)2007-2021 广州市佳沛数码科技有限公司 版权所有
公司地址: 广州市荔湾区东漖北路560号511室
电话:020-81803473 传真:020-81544987