图像框和图片框例子.pptVIP

图像框和图片框 【实例2.9】在窗体中有4个图片框，每个图片框内各有一标签。程序运行时，单击某一图片框，该图片框出现相应图片；鼠标指针移动到某一标签上，则包含该标签的图片框中的图片立刻消失。 操作步骤 （1）设计用户界面 （3）编写各图片框的Click事件过程 （4）编写各标签的MouseMove事件过程 【实例2.10】在窗体中有1个图像框和2个命令按钮，且在图像框上装有一幅图片。单击“放大”和“缩小”命令按钮，实现图片放大和缩小功能。 操作步骤 （1）设计用户界面 （3）编写单击“放大”和“缩小”命令按钮的代码 * * 注意添加标签的方法 （2）设置各对象的属性 选取工具箱中的图片框图标 ，添加4个图片框 在每个图片框上分别添加标签 picWinter （名称） 图片框4 picAutumn （名称） 图片框3 picSummer （名称） 图片框2 picSpring （名称） 图片框1 frmEx2_9 四季图 （名称） Caption 窗体 属性值 属性 对象 lblWinter 1-Transparen 冬 （名称） BackStyle Caption 标签4 lblAutumn 1-Transparen 秋 （名称） BackStyle Caption 标签3 lblSummer 1-Transparen 夏 （名称） BackStyle Caption 标签2 lblSpring 1-Transparent 春 （名称） BackStyle Caption 标签1 属性值 属性 对象 Private Sub picSpring_Click() picSpring.Picture= LoadPicture(scn_spring.wmf) End Sub Private Sub picSummer_Click() picSummer.Picture= LoadPicture(scn_summer.wmf) End Sub …… 添加图片 Private Sub lblSpring_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single) picSpring.Picture = LoadPicture() End Sub …… 自动产生代码框架 （2）设置各对象的属性 添加2个命令按钮，再选取工具箱中的图像框图标 ，添加1个图像框。 cmdLessen 缩小 （名称） Caption 命令按钮2 cmdLargen 放大 （名称） Caption 命令按钮1 选取一图形文件 True Picture Stretch 图像框 frmEx2_10 图片的放大与缩小 （名称） Caption 窗体 属性值 属性 对象 Private Sub cmdLargen_Click() imgShow.Width=imgShow.Width+100 imgShow.Height=imgShow.Height+100 End Sub Private Sub cmdLessen_Click() imgShow.Width=imgShow.Width–100 imgShow.Height=imgShow.Height–100 End Sub *