网站大量收购独家精品文档,联系QQ:2885784924
  1. 1、本文档共33页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
jsj_vb9.ppt

将一个庞大的程序分割成较小的逻辑部件可以简化程序设计任务,这些逻辑部件我们称为过程。 使用过程编程有两大好处: 1、比无过程的整个程序容易调试; 2、一个程序中的过程,往往不必修改或只需稍作改动,便可以在另一个程序中使用。 在VB中,除了事件过程,还可以使用下面两种过程: Sub过程 又称为子过程,这种过程不返回值。 Function过程 又称为函数,这种过程可以返回值。 在VB中,为了与事件过程相区分,将自定义的Sub子过程称为通用过程。 实例: Sub beepsound(n As Integer) Dim i As Integer, j As Long For i = 1 To n Beep For j = 0 To 100000000 Next Next End Sub 2.使用不定数量的参数(可变参数) 如: Sub test(ParamArray Number()) sum = 1 For Each x InNumbers sum=sum *x Next x Print sum End Sub 9.5 Shell函数   Shell函数是VB中的内部函数,它负责执行一个可执行文件,返回一个Variant(Double),如果成功的话,代表这个程序的进程ID,若不成功,则会返回0。 Shell的语法:Shell(PathName[,WindowStyle]) PathName 为必需参数。 String类型,它指出了要执行的程序名包括路径名,以及任何需要的参数或命令行变量。 WindowStyle为可选参数。Integer类型,指定在程序运行时窗口的样式。 WindowStyle有以下这些值: VbHide 0 窗口被隐藏,且焦点会移到隐式窗口。 VbNormalFocus 1 窗口具有焦点,且会还原到它原来的大小和位置。 VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示(缺省值)。 VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。 VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。 VbMinimizedNoFocus 6 窗口会以一个图标来显示,而当前活动的窗口仍然保持活动。 * 第8章 过 程 第9章 过 程 9.1 Sub过程 9.2 Function过程 9.3 参数传递 9.4 使用参数 9.5 Shell函数 9.6 过程的嵌套与递归调用 9.1 Sub过程 Sub过程分为事件过程和通用过程两大类。 事件过程:当发生某个事件时,对该事件做出响应的程序段,它是VB应用程序的主体。 通用过程:有时多个不同的事件过程可能需要使用同一段程序代码,这时可将这段代码独立出来,编写为一个共用的过程,称为通用过程,它独立于事件过程之外,可供其他事件过程调用。 9.1.1 通用过程的创建 1. 在“代码”编辑窗口中输入 在“代码”编辑窗口中,把光标定位在已有过程的外面。然后按如下格式输入通用过程: [ Private | Public ][ Static ] Sub〈过程名〉( [〈形参表〉] ) [〈语句列〉] [ Exit Sub ] [〈语句列〉] End Sub 2. 使用“添加过程”对话框 使用“添加过程”对话框建立过程的方法为: (1) 打开要添加过程的代码编辑窗口。 (2) 执行“工具”菜单中的“添加过程”命令,打开“添加过程”对话框。 (3) 在“名称”文本框中输入过程名。从“类型”组中选择过程类型。从“范围”组中选择范围,相当于使用Public或Private关键字。 (4) 单击“确定”按钮。 9.1.2 通用过程的调用 调用Sub过程有两种方法: 使用Call语句:Call〈过程名〉( [〈实参表〉] ) Private Sub Command1_Click() Call beepsound(5) End Sub 直接使用过程名:〈过程名〉[〈实参表〉] Privat

文档评论(0)

daoqqzhuan2 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档