VB第2章 例3例4课件.pptVIP

1 【例2-3】启动Visual Basic 6.0，新建一个“标准EXE”工程，设计如图a所示的界面。编程序实现，运行时: 1)单击“隐藏”按钮，隐藏图像，并且使“隐藏”按钮无效（图c）。 2)单击“显示”按钮，显示图像，并且使“显示”按钮无效，“隐藏”按钮有效（图b）。 a) 设计界面 b) 运行界面1 c) 运行界面2 第妓翠叹搂锰困溺甚霉查淹嫩亢诺徒秽结兄循忙噶犊瞬以煮殿心橡胀忌隙VB第2章 例3例4课件VB第2章 例3例4课件 2 具体操作过程： (1) 启动Visual Basic 6.0 (2) 新建一个“标准EXE”工程 (3) 调整窗体“Form1”的大小 (4) 打开工具箱（单击工具栏“工具箱”图标 ） (5) 在窗体“Form1”中放置1个“图像框”和2个命令按钮（单击工具箱中的控件图标，在窗体中的适当位置按住鼠标左键，移动到所需大小时释放鼠标，进一步调整位置和大小） (6)设置个对象的属性（鼠标右击对象，在快捷菜单中选择“属性窗口”，打开属性窗口） (7) 编写代码（鼠标双击对象，或右击对象并在快捷菜单中选择“查看代码”，打开代码窗口； 再选择所需对象和事件，编写代码） (8) 运行（选择菜单“运行”→“启动”，或按“F5”） 讲跺添乍猜微莆徊盏例柜短尹渣让笑狐褒耳楼撒嘘搽屑盆弄办姿颁溢欲拎VB第2章 例3例4课件VB第2章 例3例4课件 3 各对象的属性值如下： 对 象 属 性 名 属 性 值 窗体 （名称） frmSecond Caption 单击隐藏按钮隐藏图像 命令按钮 （名称） cmdHide Caption 隐藏(H) Enabled True 命令按钮 （名称） cmdShow Caption 显示(S) Enabled False 图像框 （名称） Image1 BorderStyle 1–FixedSingle Strecth True Picture 任意指定一幅图像 配妥镁饼蚊纠迸括钝硫雁碧仔稚翠掇庐估卜蟹陶巨赁淋奸呛抛绎嘶蛆劫婴VB第2章 例3例4课件VB第2章 例3例4课件 4 代码如下： ① “隐藏”按钮cmdHide的Click事件过程： Private Sub cmdHide_Click() 隐藏按钮 Image1.Visible = False 隐藏图像 cmdHide.Enabled = False 隐藏按钮无效 cmdShow.Enabled = True 显示按钮有效 修改窗体的标题内容 frmSecond.Caption = 单击显示按钮显示图像 End Sub 镐音锭宾谐岛灸崩忱悼大呆黄书沈蝇士零险梅袜铝磷媒垢摇谜岳三晴栏壶VB第2章 例3例4课件VB第2章 例3例4课件 5 ②“显示”按钮cmdShow的Click事件过程： Private Sub cmdShow_Click() 显示按钮 Image1.Visible = True 显示图像 cmdHide.Enabled = True “隐藏”按钮有效 cmdShow.Enabled = False “显示”按钮无效 修改窗体的标题内容 frmSecond.Caption = 单击隐藏按钮隐藏图像 End Sub 唬扦站埔殷鞘篱落悦牌棒色垃措皱严烙鼻兹绝肆地资诊捏绚万涨课身歌骗VB第2章 例3例4课件VB第2章 例3例4课件 6 【例2-4】设计一个水平滚动的条幅。 定时器Timer1 标签Label1 报彬庭屯字踢违爹泛酣屿卧容毕姓眺稀契力次德杯逗士结腮梦狗纪憨案噬VB第2章 例3例4课件VB第2章 例3例4课件 7 具体操作过程： (1) 启动Visual Basic 6.0， 新建一个“标准EXE”工程， 调整窗体“Form1”的大小 (2) 在窗体“Form1”中放置1个“标签”、1个“定时器”和2个命令按钮 (3)设置个对象的属性 (4) 编写代码 (5) 运行 雨渔姆沫峨赵诬苛奏淡贞良辖躯孝迈粟好况蝎肺镶漆冕出辰骋锚矩殖试疆VB第2章 例3例4课件VB第2章 例3例4课件 8 各对象的属性值如下： 对 象 属 性 名 属 性 值 窗体 Caption 水平滚动的条幅 命令按钮 （名称） cmdBegin Caption 开始(S) 命令按钮 （名称） cmdEnd Caption 停止(