vbd.pptVIP

2.6.1 窗体 1. 常用窗体属性 设置窗体窗口控制栏的相关属性： 课堂练习 在窗体上建立两个命令按钮，并在属性窗口将两个按钮的Caption属性值分别设为“蓝色”和“黄色”。当用户单击标题为“红色”或“绿色”按钮后，窗体的背景颜色会相应地改变为蓝色和黄色（即只有采用语句形式来设置）。 提示：语句形式中表示蓝色、黄色的颜色值分别为： vbBlue 和 vbYellow 。语句格式见上页。 单击 “启动”按钮运行程序。 从中体会语句形式与在属性窗口设置属性的不同效果。 FontBold（粗体） FontItalic（斜体） FontUnderline（带下划线） FontName（字体） FontSize（字号） Load事件的特点是，程序一旦启动将自动触发该事件发生。该事件过程代码通常是一些设置窗体和控件属性的语句，其作用相当于在属性窗口设置窗体的初始属性。 【例如】： Private Sub Form_Load() Form1.Print 大家好！ End Sub 启动程序后，在窗体上打印“大家好！”。 命令按钮（Command Button）是常用的内部控件，其主要用途是通过单击此按钮触发命令按钮的Click事件，并驱动执行预定的程序代码。 若要使标题文字、背景色、图片在命令按钮上共存，则应将命令按钮的Style属性设置为1—Graphical并同时设置其BackColor 属性、Picture属性和Caption属性。可使命令按钮上同时显示背景颜色、图片和标题，如上图所示。 (1) 在属性窗口中装载和删除图片框中的图片 【举例】 ： 简易图片浏览器 Private Sub Command1_Click() Picture1.Picture = LoadPicture(App.Path + \Sight96.jpg) End Sub Private Sub Command2_Click() Picture1.Picture = LoadPicture(App.Path + \Sight104.jpg) End Sub Private Sub Command3_Click() Picture1.Picture = LoadPicture(App.Path + \Sight105.jpg) End Sub Private Sub Command4_Click() Picture1.Picture = LoadPicture(App.Path + \funny-food-99-5.jpg) End Sub Private Sub Command5_Click() Picture1.Picture = LoadPicture(App.Path + \funny-food-99-1.jpg) End Sub Private Sub Command1_Click() Image1.Picture = LoadPicture(App.Path + \Sight96.jpg) End Sub Private Sub Command2_Click() Image1.Picture = LoadPicture(App.Path + \Sight104.jpg) End Sub Private Sub Command3_Click() Image1.Picture = LoadPicture(App.Path + \Sight105.jpg) End Sub Private Sub Command4_Click() Image1.Picture = LoadPicture(App.Path + \funny-food-99-5.jpg) End Sub Private Sub Command5_Click() Image1.Picture = LoadPicture(App.Path + \funny-food-99-1.jpg) End Sub Private Sub Command1_Click() Print 大家好 Print 欢迎使用Visual Basic 6.0 End Sub 如何在图片框上打印文本? 2.6.5 图片框 －－ 图片框(Picture Box)控件的作用是显示图片和显示文本。 在VB的内部控件中还另有一个图像框（Image）控件。图片框与图像框的主要区别在于图片框控件不仅能显示图片还能显示文本，而图像框控件只能显示图片。 但图像框(Image)的一个重要功能是可以使图片自动适应图像框的尺寸(要将图像框的St