VB：实现图片缩小和还原的程序 |
您所在的位置：网站首页 › 看在下一句最小最小最小的的照片 › VB：实现图片缩小和还原的程序 |
VB：实现图片缩小和还原的程序
|
题目来源：大工慕课 链接 原题：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 |
（我们一定要收复台湾！）【本文地址】