VB 调用 IMAGE 控件实现图像缩放的一种方法

 

 

　　 VB的功能强大，应用范围广。VB是标准的面向对象编程语言可视编程，采用事件驱动的编程技术。VB含有大量的VBX(控件)。这是一种针对VB的已经编写好的程序，它们在VB中以各种可视的控制对象的形式出现，例如图形按钮，文字编辑框等等，用户根据自己的需要可直接使用，使编程就象使用积木搭建房屋一样简单。

 

　　 在多媒体设计中，图像处理是关键环节。根据窗口界面的大小，图像大小和图形方式下的文字的大小的相应调整，则是一个图形应用软件要做到的基本要求之一。利用VB中的IMAGE控件可以实现图像缩放、相应调整，可以使软件界面更清晰、友好。

 

　　 具体编程如下：

 

　　 Option Explicit

 

　　 Private mydb As Database

 

　　 Private myrs As Recordset

 

　　 Private mystate As Byte

 

　　 Private sql As String

 

　　 Public z (定义 z 为公共变量)

 

　　 Private Sub a_Click()

 

　　 Form2.Show

 

　　 Form3.Hide

 

　　 End Sub

 

　　 (不同的按钮，触发不同事件)

 

　　 Private Sub f_Click()

 

　　 End

 

　　 End Sub

 

　　 Private Sub b_Click()

 

　　 Form4.Show

 

　　 End Sub

 

　　 Private Sub g_Click()

 

　　 z = 1

 

　　 End Sub

 

　　 Private Sub h_click()

 

　　 z = 2

 

　　 End Sub

 

　　 Private Sub im1_Click( )

 

　　 Dim zh, fan As Integer （定义 zh 和fan 为整形变量）

 

　　 If Im1.Width < Pi1.Width Then

 

　　 HS1.Visible = False

 

　　 Else

 

　　 HS1.Visible = True

 

　　 End If

 

　　 If Im1.Height < Pi1.Height Then

 

　　 vs1.Visible = False

 

　　 Else

 

　　 vs1.Visible = True

 

　　 End If

 

　　 If z = 1 Then （放大图象按钮被触发的时候，执行以下程序）

 

　　 Im1.Width = 1.1 * Im1.Width

 

　　 Im1.Height = 1.1 * Im1.Height

 

　　 For zh = 0 To 13

 

　　 Image1(zh).Left = -480 + 1.1123 * (Image1(zh).Left + 480)

 

　　 Image1(zh).Top = 1.111 * (Image1(zh).Top)

 

　　 Next zh

 

　　 End If

 

　　 If z = 2 Then （缩小图象按钮被触发的时候，执行以下程序）

 

　　 Im1.Width = 0.9 * Im1.Width

 
补充：软件开发 , Vb ,
上一个：VB实现图形动画的三种方法
下一个：VB 环境下Video/Audio压缩数据流播放技术
更多图片编程知识:

我的第一个VB程序--“跟我来学VB神童教程”

VB怎么修改应用程序的图标？

求助！！！！！！！！！

在电脑上手工操作就是这样的步骤，这样以后打开这个“高级设置”就能看到那3项是被勾选中的，就是想知道，到底用什么办法实现呢，提供一个思路也好。  谢谢啦，拜托了，

XP的文件选项操作里面的控件

如何用VB把有噪声的波去噪
  
更多VB疑问解答：
vb把图片转换成 base64代码
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果
cloudStack 如何实现 vSphere的DRS功能
和难缠客户的那些事儿
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果