- 1、本文档共24页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
08章常用控件II概论
医学信息学院 . 智慧医学系统教研室 * 常用控件II 周宏 PictureBox和Image Frame框架 PictureBox控件 Picture属性:显示图片文件。支持的文件格式有:(*.bmp,*.jpg,*.ico,*.gif) AutoSize属性: AutoSize=True:图片框调整适应图像尺寸的大小 AutoSize=False:图片框不调整适应图像尺寸的大小,图片框具有固定的大小。 CurrentX,CurrentY属性:光标的横纵坐标 PictureBox控件 Print方法:图片框上显示文字 Cls方法:清除图片框上的文字、线条、圆圈等信息,光标重置左上角。(不能清除标签、命令按钮等控件上的文字信息) MouseMove事件:鼠标移动时触发 MouseDown事件:鼠标键被按下时触发 MouseUp事件:鼠标键松开时触发 参数Button:1左键、2右键、3中间键 参数Shift :1Shift键、2Ctrl键、3Alt键 X, Y:鼠标指针坐标位置 例8-1 单击装载为图片框添加背景图像,在第3行6列处显示“cqmu”,在中心处显示圆周率 Image控件 Picture属性:显示图片文件 Stretch属性: Stretch=True:图片文件调整尺寸适应Image框的大小。 Stretch=False:图片文件不调整尺寸适应Image框的大小。 无Print方法、无Cls方法 单选按钮OptionButton Value属性: Value=True,表示被选定,圆圈中会出现一黑点; Value=False,表示未被选定。 Caption属性:决定按钮表面文字显示。 Style属性:设置控件的外观是标准的文本样式,还是图形样式。 一般不使用方法,事件主要使用Click事件。 复选框控件CheckBox Value属性: Value=0,表示未被选定; Value=1,表示被选定,被选中项目左侧小方框中会出现显示√; Value=2,变为灰色,表示禁止用户选择。 Caption属性:表面文字显示。 Style属性:设置控件的外观是标准的文本样式,还是图形样式。 一般不使用方法,事件主要使用Click事件。 框架:用于对象分组,具有容器功能。 框架的属性 框架主要具有Name、Caption、Enabled、Visible、Height、Width、Top、Left、Font、ForeColor和BackColor等通用属性。 框架的事件 框架的事件不常用,它拥有Click、DblClick等事件。 Frame框架控件 例8-2 框架、复选框和单选按钮举例。程序运行后,分别单击字体、字型,就会使标签中的文字按规定的效果显示,如图所示。 控件数组 (上例中仅以复选框为例,共享同一事件过程) Private Sub Check1_Click(Index As Integer) Select Case Index Case 0 Label1.FontBold = Not Label1.FontBold Case 1 Label1.FontItalic = Not Label1.FontItalic Case 2 Label1.FontUnderline = Not Label1.FontUnderline End Select End Sub Timer控件 Interval属性:决定Interval毫秒触发一次Timer事件。若属性值为0,则表示计时器不起作用。 Enabled属性:决定Timer控件是否有效。 Timer事件:每相隔一定的时间触发一次该事件。 Interval Interval Interval Interval Private Sub Timer1_Timer() …… End Sub 例8-3:实时显示计算机系统时间 Option Explicit Private Sub Form_Load() Label1.Caption = Label1.BorderStyle = 1 Label1.Alignment = 2 Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Label1.Caption = Now End Sub 例8-4:简单秒表 Option Explicit Dim lastTime Private Sub Command1_Click() lastTime = Now Timer1.Enabled = True
文档评论(0)