第三节VB程序设计规划常用控件.ppt

  1. 1、本文档共13页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第三节VB程序设计规划常用控件

Visual Basic 程序设计常用控件 第三节 教学基本要求: 1. 能够阐述VB常用控件的作用及特点 2. 会用VB中标签控件及其属性设计方法 3. 会用VB中文本框控件及其属性设计方法 4. 会用VB中命令按钮控件及其属性设计方法 5. 树立事件驱动面向对象程序设计的思想 一、标签 1.主要属性 (1)名称(Name):用于设置控件的名字。Name属性是控件对象身份的唯一标识,只能在属性窗口中修改,不能在程序运行阶段改变。 (2)Caption属性:返回或设置标签的显示标题。 (3)BackStyle属性:背景样式。 0―Transparent:透明显示,若控件后面有其他控件可透明显示出来。 1―Opaque:不透明,默认为不透明样式。 (4)BorderStyle属性:边框样式。 0―None:控件周围无边框。 1―Fixed Single:控件周围有单边框。 (5)AutoSize属性:设置标签自动调整大小。 True:自动调整大小。 False:标签区域保持原来大小,若是正文字体太大或正文内容太长则会被遮盖掉。 (6)Alignment属性:控件上标题的对齐方式。 0―Left Justify:左对齐,默认值为左对齐。 1―Right Justify:右对齐。 2―Center:居中。 2.标签事件 标签能响应单击(Click),双击(DblClick)等事件。不过在Visual Basic程序中,标签往往起着文本信息提示的作用,因此实际编程中,一般不需写标签的事件过程。 二、文本框 文本框是一个文本编辑区域,可在文本框中输入、编辑和显示文本内容。 1.主要属性 (1)Text属性:设置或返回文本框中的文本。可以在属性框中修改Text属性;也可在运行时,用户通过键盘输入文本信息,或使用赋值语句改变Text值。 (2)MultiLine属性:设置文本框是否允许多行显示,默认值为False(单行显示)。当设置为True时,可以在需要换行时加入换行符使文本多行显示。该属性只能在设计阶段属性窗口设置,不能在运行时由代码改变。 (3)ScrollBars属性:当MultiLine为True时,ScrollBares属性有效果。设置文本框的滚动条。 0―None:无滚动条。 1―Horizontal:水平滚动条。 2―Vertical:垂直滚动条。 3―Both:同时有水平和垂直滚动条。 (4)Locked属性:设置文本框是否被锁定。默认值为False不锁定,所以可编辑。Locked属性设为True,文本框不可编辑。此时,文本框功能上相当于标签。 (5)PassWordChar属性:密码字符,当文本框输入或显示的内容不想以明文的形式被人看到时,比如密码登录窗口。则可在该属性设置一个字符,如“*”,此时在文本框输入的任何字符都以“*”显示。 (6)MaxLength属性:设置文本框能够输入的正文内容的最大长度。默认值为0,表示可以输入任意多个字符。 (7)SelStart、SelLength和SelText属性:选中文本的相关属性。 SelStart:选中文本在文本框中的开始位置,第一个字符位置为0。 SelLength:选中文本的正文长度。 SelText:选中文本的正文内容。 【例】建立一个加法器的应用程序,运行效果如图所示。 要求: a.窗体上有三个文本框,上面两个用于输入加数,单击“=”按钮,将两个数的和显示在下面一个文本框中。 b.三个文本框的对齐方式均为右对齐,设置相关属性使得下面一个文本框不能进行编辑操作。 c.设置相关属性使得上面两个文本框均不接受非数字键。 d.单击“清空”按钮,三个文本框内容被清空,同时第一个文本框获得焦点。 程序代码如下: Private Sub Form_Load() 属性设置可在设计阶段属性窗口完成 Form1.Caption = 加法器 Text1.Text = Text2.Text = Text3.Text = Text1.Alignment = 1 文本框右对齐 Text2.Alignment = 1 Text3.Alignment = 1 Text3.Locked = True 第三个文本框不能编辑 End Sub Private Sub Command1_Click() Val()函数将文本类型转换为数值类型 Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Command2_Click() Text

您可能关注的文档

文档评论(0)

vshoulrengb3 + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档