Visual Basic程序设计教程第7章.ppt

7.1 显示图片和图形的控件 ;7.1 显示图片和图形的控件;1. Picture 属性 Picture 属性的作用为返回或设置控件中要显示的图片。其语法为： [<对象名>.]Picture [= <图片文件路径及文件名>] 2. LoadPicture函数 LoadPicture函数用于在设计时将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。其语法为： LoadPicture([<图形文件名>]，[<尺寸>]，[<颜色深度>]，[x，y]) 3. Stretch属性 Stretch属性值用来返回或设置一个值，该值用来指定一个图形是否要调整大小，以适应图像框控件的大小。其语法为： [<对象名>.]Stretch [=< 逻辑值>] aaaaaaaaaaaaaaaaaaaaaa;7.1.2 图形文件的装入;;2. 在运行时装入图形文件;（2）编写事件代码 在Form_Load()事件中加入如下代码： Private Sub Form_Load() Picture1.Picture = LoadPicture("c:\steamship.gif") Picture2.Picture = LoadPicture("c:\bus.gif") Picture3.Picture = LoadPicture("c:\car.gif") End Sub 在Picture3_Click()事件中加入如下代码： Private Sub Picture3_Click() Form1.Picture = Picture3.Picture : Picture3.Picture = Picture2.Picture Picture2.Picture = Picture1.Picture : Picture1.Picture = Form1.Picture Form1.Picture = LoadPicture() End Sub;7.2 框架;7.3 为用户提供选择的控件;7.3.1 单选按钮和复选框;1.单选按钮和复选框的重要属性;图7-4 复选框（左）和单选按钮（右）;2.单选按钮和复选框的主要事件;Private Sub Check1_Click() Text1.FontBold = IIf(Check1=1,True,False) ' “粗体”复选框是否按下（选中） End Sub Private Sub Check2_Click() Text1.FontItalic = IIf(Check2=1,True,False) ' “斜体”复选框是否按下（选中） End Sub Private Sub Option1_Click() Text1.FontUnderline = IIf(Option1,True,False) ' “下划线”单选按钮是否选中 End Sub Private Sub Option2_Click() Text1.FontStrikethru = IIf(Option2,True,False) ' “删除线”单选按钮是否选中 End Sub Private Sub Command1_Click() Static I ' 声明变量 Dim OldFont Picture1.Cls OldFont = FontName ' 保留原来的字体。 Text1.FontName = Screen.Fonts(I) ' 改变到新的字体。 I = I + 1 ' 计数器增一。 If I = FontCount Then I = 0 ' 重新开始。 FontName = OldFont ' 恢复原来的字体。 Text1.FontBold = IIf(Check1=1,True,False) ' “粗体”复选框是否按下（选中） Text1.FontItalic = IIf(Check2=1,True,False) ' “斜体”复选框是否按下（选中） Text1.FontStrikethru = IIf(Option1,True,False) ' “下划线”单选按钮是否选中 Text1.FontStrikethru = IIf(Option2,True,False) ' “删除线”单选按钮是否选中 P