收藏 分享(赏)

VB 第一章第三讲(内蒙古科技大学).ppt

上传人:ysd1539 文档编号:7069990 上传时间:2019-05-05 格式:PPT 页数:10 大小:61KB
下载 相关 举报
VB 第一章第三讲(内蒙古科技大学).ppt_第1页
第1页 / 共10页
VB 第一章第三讲(内蒙古科技大学).ppt_第2页
第2页 / 共10页
VB 第一章第三讲(内蒙古科技大学).ppt_第3页
第3页 / 共10页
VB 第一章第三讲(内蒙古科技大学).ppt_第4页
第4页 / 共10页
VB 第一章第三讲(内蒙古科技大学).ppt_第5页
第5页 / 共10页
点击查看更多>>
资源描述

1、第三讲 窗体,Visual Basic 程序设计教程,内蒙古科技大学工程训练中心 韩 艳,Mind and Hand. MIT,P,窗体属性 窗体方法 窗体事件,本讲主要内容,Mind and Hand. MIT,P,一、窗体属性,Mind and Hand. MIT,P,一、窗体属性,Mind and Hand. MIT,P,1、Print方法:在窗体上显示信息如:form1.print “欢迎使用Visual Basic”或:Print “欢迎使用Visual Basic”2、Cls方法:清除窗体信息,不能清除图片。如:form1.cls 或 cls3、Show方法:显示窗体4、Hide方

2、法:隐藏窗体,二、窗体方法,Mind and Hand. MIT,P,事件分类:根据来源分为鼠标事件、键盘事件和系统事件用户使用鼠标或键盘操作会触发窗体的一些事件:MouseDown:(鼠标按下) MouseUp:(键释放)MouseMove:(鼠标移动) keyDown:(键按下)KeyUp:(键释放) KeyPress(键按下并释放)窗体最常用的事件:Click:鼠标单击窗体DblClick:鼠标双击窗体Load:窗体被装载入内存,三、窗体事件,Mind and Hand. MIT,P,1、Click事件当用户将鼠标置于窗体上,按下鼠标左键并立即释放(即单击操作),此时会在窗体上触发Cli

3、ck事件。格式:Private Sub Form_Click ( ) End Sub 2、DblClick事件当用户在窗体上用鼠标快速双击左键时产生DblClick(双击)事件。 格式:Private Sub Form_DblClick ( )End Sub,三、窗体事件,注: DblClick事件包含Click事件,因此,同一对象,一般不要同时使用DblClick 和Click事件。,Mind and Hand. MIT,P,3、Load事件当窗体从磁盘装入内存时引发的事件,即程序一运行时就会执行该事件过程中的代码。经常用来在启动应用程序时对属性和变量进行初始 化。格式:Private Su

4、b Form_Load( )End Sub,三、窗体事件,Mind and Hand. MIT,P,例:窗体装入时,在窗体的标题栏显示“装入窗体”,并在窗体上装入一幅图片作为背景;当用户单击窗体时,在标题栏显示“鼠标单击”,在窗体上显示“单击窗体” ;当用户双击窗体时,在标题栏显示“鼠标双击”,窗体上显示“双击窗体”,并去除窗体的背景图案。 另,窗体上显示字体均为隶书,大小为48 。 解题思路:在窗体的Load事件、click事件和dblclick事件中编程窗体载入图片的命令:form1.picture=loadpicture(图片所在的路径以及图片的名称)清除窗体载入图片的命令: form1

5、.picture=loadpicture( ),三、窗体事件,Mind and Hand. MIT,P,Private Sub Form_Click()Caption = “鼠标单击“Print “单击窗体“ End SubPrivate Sub Form_DblClick()Caption = “鼠标双击“Picture = LoadPicture(“)Print “双击窗体“ End SubPrivate Sub Form_Load()Caption = “装入窗体“Picture = LoadPicture(App.Path + “1.jpg“)Font.Size = 48Font.Name = “隶书“ End Sub,注: App.Path表示装入的图片文件“1.jpg”与本程序保存在同一文件夹中。,三、窗体事件,

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 高等教育 > 大学课件

本站链接:文库   一言   我酷   合作


客服QQ:2549714901微博号:道客多多官方知乎号:道客多多

经营许可证编号: 粤ICP备2021046453号世界地图

道客多多©版权所有2020-2025营业执照举报