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

页面导航:首页 > 软件编程 > vb.net > VB 调用 IMAGE 控件实现图像缩放的一种方法

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

来源: 作者: 时间:2016-02-05 12:32 【

VB的功能强大,应用范围广。VB是标准的面向对象编程语言可视编程,采用事件驱动的编程技术。VB含有大量的VBX(控件)。这是一种针对VB的已经编写好的程序,它们在VB中以各种可视的控

 

 

   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

 

Tags:

文章评论


<