VB:实现图片缩小和还原的程序

Visual Basic程序设计 专栏收录该内容
19 篇文章 4 订阅

题目来源:大工慕课 链接
原题:Visual Basic程序设计教程(第二版)龚沛曾主编,高等教育出版社 实验1-6
作者:Caleb Sung

题外话

时隔将近十年第一次写VB啦hhh(上一次是在小学……),有点小兴奋( ̄▽ ̄)~*
纯VB只能在老掉牙的vb6.0平台下写,之后的VS都是vb.net,和vb代码还是有很大区别的。电商专业大三学习的也是vb.net
此外之前用的按键精灵的编程语言貌似也是基于VB写的

题目要求

窗体上设置一个Image图像控件和两个命令按钮,Image图像控件装入自己喜欢的图片,设置Stretch属性为True,使得图片随着图像随着图像的控件的大小而变,如图所示:
我们一定要收复台湾!
我们一定要收复台湾!

分析&注意事项

为了实现还原效果,首先要做以下3件事:

  • 必须在事件过程外,即程序代码最上方声明窗体级变量:
Dim h%,w% `用户输入的变量声明语句
  • 在Form1_Load事件中保存图像控件的初始值:
w=Image1.Width
h=Image1.Height
  • 在Command2_Click事件中还原为初始值:
Image1.Width=w
Image1.Height=h

参考代码

双击主窗体(默认名Form1),打开代码编辑器
(吐槽一句,习惯了集成IDE的自动补全之后再用这个98年的老爷爷级编译器实在是接受不能……)

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
  • 0
    点赞
  • 0
    评论
  • 2
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

参与评论 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

Caleb_Sung

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值