VB程序题：实验1.6运行界面，要求：1.单击“缩小一半”按钮，图片纵、横均缩小一半。2.单击“还原”按钮，图片与初始装入时同大。龚沛曾

VB程序题：实验1.6运行界面，要求：
1.单击“缩小一半”按钮，图片纵、横均缩小一半。
2.单击“还原”按钮，图片与初始装入时同大。

提示：为了实现还原效果，要做以下3件事。
1.必须在事件过程外，即程序代码最上方声明窗体级变量： 
Dim h%,w% ‘用户输入的变量声明语句
2.在Form1_Load事件中保存图像控件的初始值：

解题：按要求先在窗体上画2个按钮，一个Image图像控件，在Image的Picture属性，自己设置一个图片吧。

代码如下：
Dim h%, w%
Private Sub Command1_Click()
    Image1.Width = Image1.Width * 0.5
    Image1.Height = Image1.Height * 0.5
End Sub

Private Sub Command2_Click()
    Image1.Width = w
    Image1.Height = h
End Sub

Private Sub Form_Load()
    w = Image1.Width '记下图片的宽度初始值
    h = Image1.Height '记下图片的高度初始值
End Sub

程序运行效果图如下：

Visual Basic程序设计教程(第四版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：https://wb98.com/post/133.html