预览加载中,请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲,该文档总共32页,到这已经超出免费预览范围,如果喜欢就直接下载吧~

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

掌握重点2.1创建窗体(1)窗体的常用属性 a.Name:窗体名称。 窗体名称在程序代码中作为窗体对象的标识名。 窗体名称可以缺省。窗体名称也可以自定义。 窗体名称自定义的命名规则:必须以字母或汉字开头,可以包含数字和下划线,但不能包含空格或标点符号。 b.Caption:窗体标题。 窗体标题是出现在窗体标题栏的文本内容。 窗体标题默认与窗体名称相同。 标题也可以自定义,只要是字符即可,不受其他约束。 说明:Font是窗体的一种属性,同时它又被看作一个对象 Font本身还具有Name,Size,Bold,Italic等属性。f.Icon:图标 设置位于窗体左上角控制盒上的图标 当窗体最小化为任务栏上的按钮时,也使用此图标。 g.Left、Top、Height、Width:窗体的位置与大小。 默认单位为特维(Twip) h.Enabled:活动属性 决定窗体能否被访问。(3)窗体的事件 窗体可以响应许多事件。常用的事件有: Click:单击。 Dbclick:双击。 Load:装载。 Resize:调整尺寸。 Activate:激活。 Deactivate:失去激活。2.1创建窗体2.1创建窗体(1)装载语句 语句格式:LoadObject (2)卸载语句 语句格式:UnloadObject 或:UnloadMe (3)End语句 语句格式:End2.1创建窗体2.2常用控件 Pointer指针Picture图片框 Label标签TextBox文本框 Frame框架CommandButton命令按钮 CheckBox复选框OptionButton单选框 ComboBox组合框ListBox列表框 H.ScrollBar水平滚动条V.ScrollBar垂直滚动条 Timer计时器DriveListBox驱动器列表框 DirListBox文件夹列表框FileListBox文件列表框 Shape图形Line线条 Image图像Date数据控件 OLE控件1.文本框(TextBox) 用于接收用户在框内输入的信息,或显示由程序提供的信息。。2.2常用控件3.命令按钮(CommandButton) 用来在窗体内添加命令按钮。运行时用户单击此按钮,则执行一段代码。 (1)属性 Caption:标题 Cancel:取消 本属性设为True,按ESC键等同单击本按钮 Default:默认 本属性设为True,按Enter键等同单击本按钮 (2)方法 SetFocus:设置焦点 (3)事件 Click:单击4.列表框(ListBox) 列出可供用户选择的项目列表。运行时,可用鼠标或箭头键选中其中的一项或多项,选中的项被加亮显示。 (1)属性 List:列表。 ListCount:列表框中所含项的总数。 ListIndex:选中项的索引号。 Text:文本。 Columns:列数。(例见下一页) Sorted:排序。 Selected:选中。4.列表框(ListBox) 列出可供用户选择的项目列表。运行时,可用鼠标或箭头键选中其中的一项或多项,选中的项被加亮显示。 预习6.图像控件(Image)和图片框(PictureBox) 图像控件用来显示一个来自硬盘上的位图文件(.bmp)或图标文件(.ico),并可随意调整图形的大小。 图片框不仅可以显示图形和文本,还可创建动画图形。 (1)方法 (2)事件 7.选项按钮(OptionButtom)、复选框(CheckBox)和框架控件(Frame) a.选项按钮与复选框 (1)属性 选项按钮Value:选中与否标记。 Value=True表示选中;默认为False表示未选中。 复选框Value:选中与否标记 Value=1表示选中;默认为0表示未选中;2表示不能访问。 (2)方法 (3)事件Click:单击 b.框架控件: 用作其他控件的容器。 c.结合框架和选项按钮组(或复选框组) 在窗体上可以创建选项组。 2.2常用控件的使用方法 实验指导书上有许多例子介绍了常用控件的使用方法。 1.菜单概述 菜单条(参见书) 菜单 菜单项 子菜单 弹出式菜单 2.使用菜单编辑器 (1)启动菜单编辑器 (2)菜单编辑器简介 (3)菜单编辑器中各项的使用:示例复选框示例窗体中的主要事件过程: PrivateSubchkBold_Click() IfchkBold.Value=1Then'Ifchecked. txtDisplay.FontBold=True Else'Ifnotchecked. txtDisplay.FontBold=False EndIf EndSub PrivateSubchkItalic_Click() IfchkItalic.Value=1The