当前位置:首页 » VB程序题 » 正文

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

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号