程序设计基础3、简单窗体.pptVIP

  1. 1、本文档共41页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
程序设计基础3、简单窗体

第三章 窗体(Form)和简单的输入输出 1.掌握窗体的属性、事件、和方法; 2.数据的输入和输出; 窗体是构造应用程序的基本环境,设计程序过程中添加的各种控件都包含在窗体中。每个应用程序至少有一个窗体。窗体是其他对象(如命令按钮)的载体。创建应用程序的第一步是建立用户界面,用户界面就是由若干个窗体构成的。 3.1 窗体的常用属性、方法和事件 一. 属性 (一)基本属性 1. Name名称属性(任何对象都具有的) 创建的对象名称,有默认的名。在程序中,控件名是作为对象的标识而引用,不会显示在窗体上。 2. Height、width、top和left属性 单位为twip:1 twip=1/20点=1/1440英寸=1/567cm 3.Caption 标题属性: 决定出现在窗体的标题栏上的文本内容,也是当窗体被最小化后出现在窗体图标下的文本。 5. Enabled属性(逻辑值) 决定控件是否可操作。 True :允许用户进行操作,并对操作出响应(缺省值) 。 False:呈暗淡色,禁止用户进行操作。 6. Visible属性(逻辑值) 决定控件是否可见 True :运行时控件可见(缺省值) 。 False:运行时控件隐藏,用户看不到,但控件本身是存在的。 4.Picture图片属性: 设置窗体中要显示的图片。加载图片操作同Icon 控制图标属性。 6. WindowsState属性 0:Normal:正常窗口状态,有窗口边界; 1:最小化状态,以图标方式运行; 2:最大化状态,无边框,充满整个屏幕。 7. AutoRedraw属性 该属性决定窗体被隐藏或被另一窗口覆盖之后重新显示,是否重新还原该窗体被隐藏或覆盖以前的画面。即是否重画如Circle、Line、Pset和Print等方法的输出。 当为True时,重新还原该窗体以前的画面。 当为False时,则不重画AutoRedraw属性。 二、事件 最常用的事件 1. Click / DblClick:单击 / 双击窗体触发。 2. Load:窗体被装入时触发的事件。该事件通常用来在启动应用 程序时对属性和变量进行初始化。 3. Unload事件 卸载窗体时触发该事件。 4. Resize事件 无论是因为用户交互,还是通过代码调整窗体的大小,都会触发一个Resize事件。 3.2 简单的输入输出 1. InputBox函数 变量名=InputBox[$](提示信息[,标题][,缺省] [,x坐标][,y坐标] ) 其中:提示 提示信息,标题 标题区显示,缺省输入区缺省值 有$ 返回字符类型,否则为数值类型. 例如,要在屏幕上显示如下的对话框: 2. MsgBox函数和MsgBox过程 函数形式:变量[%] = MsgBox(提示[,按钮[+图标]+ [缺省按钮]+[模式]][,标题]) 过程形式: MsgBox 提示[,按钮[+图标] +[缺省按钮]+ [模式]][,标题] 根据用户所选按钮,函数返回1—7的整数值,其含义如下表:(表3.2) 3 Print方法 4. 与Print方法有关的函数 5. 使用位置属性 4. 清除方法CLS 5.使用“标签”控件的输出 修改的Command1_click事件代码为: Private Sub Command1_Click() Dim intMsgin As Integer Dim strmsg As String strText = 请输入您的身份证号并单击“确定” + Chr(13) + Chr(10) + 重新填写请单击“取消” strIDcard = InputBox$(strText, 身份证号, , 100, 100) strmsg = 请确认您的身份证号码: + Chr(13) + Chr(10) + strIDcard 图4-9对话框显示的内容 If strIDcard Then intMsgin = MsgBox(strmsg, vbYesNoCancel + vb

文档评论(0)

xcs88858 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

版权声明书
用户编号:8130065136000003

1亿VIP精品文档

相关文档