- 1、本文档共15页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第五章 常用控件 标准控件 :扩展名为EXE的文件,标准控件总是出现在工具箱中。 Text、label 、command、timer、option、checkbox、frame ActiveX控件 : 早期VB版本提供的控件、仅在专业版本和企业版本的VB中提供的控件和由第三方提供的ActiveX控件。扩展名为OCX的独立文件 。 在程序中使用ActiveX控件,需要通过“部件”对话框的“控件”选项卡把选定的控件添加到工具箱。 Ado data control、datagrid 第五章 常用控件 复选框 :复选框(CheckBox)也叫选择框、检查框,用于在两种状态中选择其中一种。 常用属性Value: 值为0时(缺省设置),表示复选框未被选中;值为1时,表示被选中; 当值为2时,表示复选框不可使用(灰色)。 事件:复选框主要接收Click事件。 复选框、单选按钮和框架 单选按钮 :(OptionButton) 常用属性Value属性: 当该单选按钮被选中,其Value属性值为True,同组其他单选按钮的Value属性值全部为False。 事件:Click事件。 复选框、单选按钮和框架 框架:框架控件(Frame) 是一个容器,用于将窗体上的对象分组,又可以让其中的控件成为一个整体。 常用属性 Enabled属性: 如果其值为True,则框架内的对象是“活动”的,否则其标题会变灰,框架内的对象被屏蔽,不能操作。 复选框、单选按钮和框架 VB利用系统内部的计时器计时。 常用属性 Interval:该属性以毫秒为单位来设置计时器触发事件的周期,如果把Interval属性值设置为1000,则表明每秒钟发生一个计时器事件。 Enabled:用来确定计时器能否对事件做出反应。 常用事件Timer:每当经过由Interval属性设置的时间值,就触发一次Timer事件。 计时器 数组 6.1数组的定义 Dim 数组名(下标1范围 [ , 下标2范围 ])[As 数据类型] 例如:Dim a%(5) 定义后,自动赋初值 数值型数组,每个元素0 字符型数组,每个元素空字符串 如果执行了语句:a(3)=100 例如: Dim a(1 To 5) As Integer Dim b%(5,4) 例如: Option Base 1 Dim a(5) As Integer a (0) a(1) a(2) a(3) a(4) a(5) 0 0 0 100 0 0 For i = 0 To 5 a(i)=2*i+1 Next I For i = 0 To 5 a(i)=inputbox(“请输入第”+i+”个数”) Next I 数组的赋值 6.2 数组的操作 例6.2.2 用For Each…Next语句输出数组a的所有元素。 Private Sub Form_Click() Dim a(5) As Integer a(0) = 1: a(1) = 5: a(2) = 6: a(3) = 8: a(4) = 9: a(5) = 10 For Each x In a Print x Next x End Sub For Each 元素 in 数组名循环体Next For i = 0 To 5 Print a(i) Next i 第7章 函数、子过程、参数传递 子过程与函数的区别 Sub 过程名[(形式参数表)] 语句序列 End Sub Sub过程的调用 : 格式1: Call 过程名[(参数列表] 格式2: 过程名 参数列表 Function 过程名[(形式参数列表)][As 类型] 语句序列 [过程名=表达式] End Function 格式1: 函数过程名(参数列表) 格式2: Call 函数过程名(参数列表) 如果不需要Function过程的返回值,可以采用此种调用方式 参数传递 (1)按值传递 定义过程时,使用ByVal关键字指出该参数是按值传递的。 (2)按地址传递 定义过程时,缺省或使用ByRef关键字指出参数是按地址传递的。 模块 变量分类 Public a as integer Private b as string*10 Sub test1() Dim x as integer …… End sub Sub test2() Dim y as string …… End sub
文档评论(0)