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

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) “删除线”单选按钮是否选中 Picture1.Print Text1.FontName End S