《可视化程序设计基础课件》由会员分享，可在线阅读，更多相关《可视化程序设计基础课件（39页珍藏版）》请在金锄头文库上搜索。
1、第二章 窗体和常用控件,2020/9/1,2,活动二：龟兔赛跑,知识点: 常用属性 常用方法 常用事件,2020/9/1,3,活动二：龟兔赛跑活动说明,比赛开始后，分别单击按钮控制乌龟和兔子前进。当一方到达终点时，宣布获胜，此时比赛结束。 示例,2020/9/1,4,活动二：龟兔赛跑活动分析,直线 起点和终点线 按钮 “开始”和“结束”按钮 分别控制乌龟和兔子前进的按钮：初始时不可见，显示图形，当鼠标指针指向时显示提示信息 标签 显示“准备比赛！”、“比赛正在进行” 和获胜信息 设置边框、阴影效果,2020/9/1,5,活动二：龟兔赛跑编程实现,一、界面设计 显示比赛信息的标签Label1 加
2、上边框：BorderStyle属性设置为1-Fixed Single 自动调整大小：AutoSize属性设置为True 用Line按钮画起点线和终点线 长度一致 ：“复制”和“粘贴” 设置颜色：BorderColor属性 设置线宽：BorderWidth属性 标签的阴影效果 前后两个标签：Top和Left属性值相差一点 前面的标签为透明：BackStyle属性设置为0-Transparent 后面的标签为灰色：ForeColor属性值为灰色,2020/9/1,6,活动二：龟兔赛跑编程实现,乌龟和兔子的图形 用PictureBox按钮，建立图形控件 选择图形：Picture属性 图形与起点线对齐
3、：选择“格式”“对齐”“左对齐”命令 控制乌龟和兔子前进的按钮 按钮不可见：Visible属性值为False 按钮上显示图形：Style属性值为1-Graphical， Picture属性为对应的图形文件。 Caption属性值为空 鼠标指针图形：MousePointer属性为99-Custom， MouseIcon属性选择对应的图标文件,2020/9/1,7,活动二：龟兔赛跑编程实现,二、事件过程代码 单击“开始”按钮的事件过程 Private Sub Command3_Click() Picture1.Left = Line1.X1 图形回到起点 Picture2.Left = Line1
4、.X1 Label1.Caption = 比赛正在进行 Label1.FontItalic = True 设置标签上文字为斜体 Label1.ForeColor = RGB(0, 255, 0) Command1.Visible = True 设置按钮为可见 Command2.Visible = True Command1.Enabled = True 设置按钮为有效 Command2.Enabled = True End Sub,2020/9/1,8,活动二：龟兔赛跑编程实现,单击控制乌龟前进一步的按钮的事件过程 Private Sub Command1_Click() Picture1.L
5、eft = Picture1.Left 50 乌龟向左移动50Twip If Picture1.Left Line2.X1 Then 判断乌龟达到终点 Label1.Caption = 乌龟获胜！ Label1.FontItalic = False 设置标签上文字为非斜体 Label1.ForeColor = RGB(255, 0, 0) Command1.Enabled = False Command2.Enabled = False End If End Sub,2020/9/1,9,活动二：龟兔赛跑编程实现,单击控制兔子前进一步的按钮的事件过程 Private Sub Command2_
6、Click() Picture2.Move Picture2.Left 50 兔子向左移动50Twip If Picture2.Left Line2.X1 Then 判断兔子达到终点 Label1.Caption = 兔子获胜！ Label1.FontItalic = False 设置标签上文字为非斜体 Label1.ForeColor = RGB(255, 0, 0) Command1.Enabled = False Command2.Enabled = False End If End Sub,2020/9/1,10,活动二：龟兔赛跑编程实现,单击“结束”按钮的事件过程 Private S
7、ub Command4_Click() End End Sub,2020/9/1,11,活动二：龟兔赛跑学习支持,一、各类控件常见属性 Name名称属性 用于惟一识别对象 控件名称以一个字母开头、后跟字母、数字和下划线，但不能包含空格和标点符号。 作为对象的标识供程序中引用，运行时是只读的。 Caption标题属性 决定了控件上显示的文本内容。,即： 不能更改,2020/9/1,12,活动二：龟兔赛跑学习支持,Left和Top属性、Height和Width属性 Left和Top属性决定控件的位置 Height和Width属性表示控件的高度和宽度 例题：用按钮控制太阳升起,2020/9/1,13
8、,活动二：龟兔赛跑学习支持,ForeColor属性 用于设置或返回控件的前景色（即正文颜色） 其值是一个六位16进制数，每两位一组，从高位到低位分别表示蓝色、绿色和红色的成分 从属性框里弹出调色板，选择所需要的颜色 窗体前景色：窗体上打印文字的颜色 BackColor属性 用于设置或返回控件的背景色（即正文以外显示区域的颜色） 设置同ForeColor属性,2020/9/1,14,活动二：龟兔赛跑学习支持,Font属性 用来设置文本的字体格式，它是一个属性集 FontName属性：字体 FontSize属性：大小 FontBold属性：粗体显示 FontItalic属性：斜体显示 FontSt
9、rikethru属性：加删除线 FontUnderline属性：带下划线,在属性窗口中设置：Font 程序代码中用上述具体的属性,2020/9/1,15,活动二：龟兔赛跑学习支持,Visible属性 是否可见 例题：红绿信号灯 Enabled属性 是否允许操作 AutoSize属性 是否自动调整大小,2020/9/1,16,活动二：龟兔赛跑学习支持,TabIndex属性 决定了按Tab键焦点在各个控件移动的顺序 通常按控件的建立顺序 通过重新设置TabIndex属性值改变Tab键顺序 第一个控件的TabIndex属性值为0，第二个为1，依次类推。,2020/9/1,17,活动二：龟兔赛跑学习支
10、持,MousePointer属性 鼠标移动到对象上时，显示的鼠标指针的类型 其值为015，值为99表示用户自定义图标 MouseIcon属性 自定义鼠标图标，文件类型为.ico或.cur 在MousePointer属性值为99时有效 ToolTipText属性 鼠标停留在对象上时显示的提示文字,2020/9/1,18,活动二：龟兔赛跑学习支持,三、窗体Form 常用属性 ControlBox：标题栏上是否有控制菜单框。 Icon：控制菜单框的图标。 Picture：窗体的背景图片。 AutoRedraw：是否自动刷新窗体。 BorderStyle：用于设置窗体边框的样式。只能在界面设计时设置
11、WindowState：窗体运行时的状态，有三种状态：正常、最小化、最大化。 MaxButton和MinButton：决定窗体上是否有最大化按钮和最小化按钮。,height与scaleheight、width与scalewidth,活动二：龟兔赛跑学习支持,2020/9/1,21,活动二：龟兔赛跑学习支持,窗体的常用事件 Click：单击窗体的某个位置触发该事件 Load：当窗体被装入时触发该事件 通常将进行初始化的程序代码写在其中 窗体的常用方法 Print、Cls等。,2020/9/1,22,活动二：龟兔赛跑学习支持,Print方法 在对象上显示数据，其格式为： 对象.Print 表达式列
12、表 对象指窗体、图形框或打印机。若缺省时表示当前窗体 表达式列表可以包括数值、字符串常量、变量或表达式、逗号、分号、Spc和Tab函数。 函数Tab(n)：光标定位于第n列 函数Spc(n)：输出n个空格 逗号：光标定位于下一个打印区域(打印区每隔14列开始) 分号：光标定位于上一个显示字符后面 没有逗号和分号表示换行,例在窗体Form1的单击事件中写入如下代码： Private Sub Form_Click() a = 10: b = 3.14: c = 100 Print a=; a, b=; b Print a=; a, Print b=; b Print c=; c Print Pri
13、nt a=; a, print Print a=; a, Tab(18); b=; b Print a=; a, Spc(18); b=; b End Sub,活动二：龟兔赛跑学习支持,Private Sub Form_Click() Print print 1;2 print 1;2 Print Tab(15); 1 Print Tab(13); 1; Tab(15); 1; Tab(17); 1 Print Tab(11); 1; Tab(13); 1; Tab(15); 1; Tab(17); 1; Tab(19); 1 End Sub,活动二：龟兔赛跑学习支持,想一想，“1”写成1，
14、输出结果如何？ 此处一定注意,2020/9/1,25,活动二：龟兔赛跑学习支持,Cls方法 清除窗体或图形框中显示的文本或图形 其格式为： 对象. Cls,2020/9/1,26,活动二：龟兔赛跑学习支持,四、命令按钮Command 常用属性 Caption：按钮上显示的文字 字母前加&符号，表示快捷键 例如：Caption属性设置为“退出(&E)”。 运行时，按钮上显示“退出(E)” 快捷键为Alt+E Style：按钮的样式0-Standard：只显示文字。默认值为0。1-Graphical：可以显示图形和文字。 Picture：按钮上显示的图形 当Style属性值为1 时有效,2020/
15、9/1,27,活动二：龟兔赛跑学习支持,Default：确认属性（逻辑值），设置为True时，按Enter键相当于用鼠标单击了该按钮。 注意：在一个窗体只能一个按钮的Default设置为Ture Cancel:取消功能属性（逻辑值），当设置为Ture时，程序运行时按Esc键与单击此命令按钮的效果相同。 注意：在一个窗体只能一个按钮的Cancel设置为Ture 常用事件 最常用的事件是单击（Click）事件,2020/9/1,28,活动二：龟兔赛跑学习支持,五、标签Label 常用属性 最主要的属性有：Caption、Font、Left、Top、AutoSize、BackStyle、Border
16、Style等。 BackStyle：背景式样0-Transparent：透明显示1-Opaque：不透明 BorderStyle：边框的样式0-None：无边框1-Fixed Single：单线边框,2020/9/1,29,活动二：龟兔赛跑学习支持,常用事件 单击（Click）、双击（DblClick） 标签在窗体上一般仅起显示文字的作用，一般不需要编写事件过程 见例 实验一 2 、 实验二3,2020/9/1,30,活动二：龟兔赛跑学习支持,六、文本框Text 常用属性 Text：文本框中的内容 Maxlength：最大字符数。默认情况下，其值为0，表示可输入任意多个字符 Alignment：对齐方式 MultiLine：是否能输入和显示多行文字 ScrollBars：设置水平滚动条和垂直滚动条 (multiline为true时显示) Locked：是否加锁、不能编辑 注意:文本框没有Caption属性,2020/9
