- 1、本文档共117页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
5.1.1 单选按钮和复选框 单选框和复选框这两种控件的区别: (1)单选按钮(OptionButton):单选按钮必须成组出现,用户在一组单选按钮中必须选择一项,并且最多只能选择一项。用于多选一的情况。 (2)复选框(CheckBox):复选框可以单个出现,也可以成组出现,对于多个复选框,用户可以选定其中一项。 1-Checked:复选框被选定。 2-Grayed:复选框变成灰色,禁止用户选择。 (4)Style属性 指定单选按钮或复选框的显示方式,用于改善视觉效果。 0-Standard:标准方式。 1-Graphical:图形方式。 (5)Index属性 当建立控件数组(Name属性相同)时,系统给每个元素赋一个惟一的索引号(Index),即下标,下标值由Index属性指定。第1个元素下标是0,第2个元素下标是1,以此类推。 在线教务辅导网: 更多课程配套课件资源请访问在线教务辅导网 馋死 2. 常用事件 图像框可以响应Click和DblClick事件。 3. 图片框与图像框的区别 图片框是“容器”控件,可以作为父控件,而图像框不能作为父控件。 图片框可以通过Print方法接受文本,并可接受由像素组成的图形,而图像框不能。 图像框比图片框占用内存少,显示速度快。 4. 保存图形 对绘制或装在窗体、图片框和图像框内的图形,可以使用 SavePicture命令把图形保存到磁盘文件内。 格式:SavePicture 对象.属性,文件名 功能:保存绘制或装在窗体、图片框和图像框内的图形。 说明: (1)对象名为选定的图片框或图像框的控件名。 (2)文件名为指定的带有扩展名Bmp、Ico、Gif、Jpg、Dib、Wmf、Emf等文件。 (3)SavePicture命令只支持Bmp文件格式。此外, SavePicture命令保存控件中的整个图形,包括未显示部分。 例5-11:编写程序,说明图片框AutoSize属性与图像框Stretch属性对加载图形的影响。不同的属性设置,使图形的大小与控件的大小发生变化。 (a) 图像框随图片调整 (b) 图片框随图片调整 (c) 图片随图像框调整 (d) 图片框随图片调整、图片随 程序如下: Private Sub Form_Load() Image1.BorderStyle = 1 ‘图像框边框为立体样式 Image1.Picture = LoadPicture(App.Path + \Santa_Claus.bmp) Picture1.Picture = LoadPicture(App.Path + \ Santa_Claus.bmp) End Sub Private Sub Check1_Click() Picture1.Height = 1500 Picture1.Width = 1500 Picture1.AutoSize = Check1.Value End Sub Private Sub Check2_Click() Image1.Height = 1500 Image1.Width = 1500 Image1.Stretch = Check2.Value End Sub 例5-12:设计一个简单的图像显示应用程序,可以显示任意指定的磁盘图片文件,并可以对显示的图片进行成比例的任意缩小和放大。 图形的放大与缩小 程序如下: Sub center() Image1.Left = (Form1.Width - Image1.Width) / 2 Image1.Top = (Command1.Top - Image1.Height) / 2 End Sub Private Sub Command1_Click() Dim x$ ‘x = InputBox(请输入图片文件名(包括路径):) x=app.path+ \duckling.gif Image1.Picture = LoadPicture(x) End Sub Private Sub Command2_Click() Command3.Enabled = True Image1.Height = Image1.Height * 0.9 Image1.Width = Image1.Width * 0.9 Call center End Sub Private Sub
文档评论(0)