visual basic程序的设计第7章文档.pptVIP

1 第七章 常用控件与系统对象 7.1 图片框和图像框架 7.2 单选按钮、复选框和框 7.3 列表框、组合框 7.4 框架 7.5 计时器 7.6 滚动条 shbeking hd8go hd88go oemgc 189288 hzp580 yjoem oemdg xcdnpx oemdg zhongtezc yanjigz yanjigz oemfy oemdg lucybellecn meierspa zg-nsk zr-skf ygcooper skf-zt nsk-zt fag-zt zhongtezc ntn-zt 第七章 常用控件与系统对象 7.7 多窗口 7.8 ActiveX控件 7.9 常用系统对象 3 7.1 图片框和图像框 图片框 图像框 4 7.1.1 图片框 图片框控件可以用来显示图片、作为其他控件的容器、显示用图形方法输出的图形以及用Print方法输出的文本 向图片框中加载图形有以下两种方法(Picture属性) 从控件的“属性”窗口选择Picture属性，单击右边的“…”按钮，就会出现打开文件对话框，找到所需的图形文件即可。 在运行时显示或替换图形，可使用LoadPicture ( )函数设置Picture属性：对象名.Picture=LoadPicture([FileName]) 注意：若省略FileName参数，则清除图片框中的图像 5 AutoSize属性：为True时，图片框能自动调整大小与显示的图片匹配 [例7-1] 在窗体上添加1个图片框Picture1和2个命令按钮，运行时单击“显示”按钮后，程序会把一张指定的图片装入图片框，并在图片框中输出一行文字。 Picture1.Picture = LoadPicture(c:\windows\clouds.bmp) Picture1.Picture = LoadPicture(App.Path \clouds.bmp) Picture1.FontSize = 20 指定图片框的字号 Picture1.FontName = 黑体 指定图片框的字体 Picture1.CurrentX = 400 Picture1.CurrentY = 600 指定文字输出位置 Picture1.Print 我喜欢VB！ 在图片框上输出文字 6 7.1.2 图像框 图像框也可以用来装入图形文件，具体的使用方法与图片框类似。图像框与图片框不同之处： ① 图像框比图片框占用的内存少，如果仅仅显示图片，应尽量用图像框。 ② 图片框内可以包括其他控件，图片框上还可以输出文本以及用作图方法绘制的图形等，图像框则不能。 ③ 图形不能随图片框的尺寸调整大小。图像框有一个Stretch属性，当其值为True时，图形能自动变化大小以适应图像框的大小；当其值为False时，图像框会自动改变大小以适应图形的大小，使图形充满图像框。 7 图片框 图片框autosize 图像框 图像框Stretch,height,width 8 7.2 单选按钮、复选框 单选按钮 复选框 9 7.2.1 单选按钮 单选按钮(OptionButton)控件也称作选项按钮，一组单选按钮控件可以提供一组彼此相互排斥的选项，任何时候用户只能从中选择一个选项，被选中的Value属性值为True，未被选中的Value值为False。 注意：同一“容器”中的单选按钮提供的选项是相互排斥的，即只要选中某个选项，其余选项就自动取消选中状态。 10 1．属性 Value:True时表示选中，False(默认值)表示未选择 Caption:显示的文字 2．事件 Click事件，未选中时单击按钮触发，其Value值变为True 3．方法 SetFocus方法将Value属性设置为True 11 [例7-2] 设计用户界面。程序运行后，单击某个单选按钮，可以将其对应的内容显示在标签中 Private Sub Option1_Click() Dim wkday As Variant wkday = Array(日, 一, 二, 三, 四, 五, 六) w = Weekday(Now) Label1.Caption = 今天是星期 wkday(w - 1) Label1.Caption = 今天是 Day(Date) 号 Label1.Caption = 这月是 Month(Date) 月份 Label1.Caption = 今年是 Year(Date) 年 End Sub 12 7.2.2 复选框 1．属性 Value：未被选中时值为0，选中时值为1；禁止用户访问时，Value的值为2，复选框显示为灰色(用处不大) 2．事件 Click事件，每次单击某复选框，可自动改