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

核心提示：VB的功能强大，应用范围广，VB调用IMAGE控件实现图像缩放的一种方法，VB是标准的面向对象编程语言可视编程，采用事件驱动的编程技术，执行以下程序）Im1.Width=0.9*Im1.WidthIm1.Height=0.9*Im1.HeightForzh=0To13Image1(zh).Left=-480 0.89*

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

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

　　具体编程如下：

　　OptionExplicit

　　PRivatemydbAsDatabase

　　PrivatemyrsAsRecordset

　　PrivatemystateAsByte

　　PrivatesqlAsString

　　Publicz(定义z为公共变量)

　　PrivateSuba_Click()

　　Form2.Show

　　Form3.Hide

　　EndSub

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

　　PrivateSubf_Click()

　　End

　　EndSub

　　PrivateSubb_Click()

　　Form4.Show

　　EndSub

　　PrivateSubg_Click()

　　z=1

　　EndSub

　　PrivateSubh_click()

　　z=2

　　EndSub

　　PrivateSubim1_Click()

　　Dimzh,fanAsInteger（定义zh和fan为整形变量）

　　IfIm1.Width<Pi1.WidthThen

　　HS1.Visible=False

　　Else

　　HS1.Visible=True

　　EndIf

　　IfIm1.Height<Pi1.HeightThen

　　vs1.Visible=False

　　Else

　　vs1.Visible=True

　　EndIf

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

　　Im1.Width=1.1*Im1.Width

　　Im1.Height=1.1*Im1.Height

　　Forzh=0To13

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

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

　　Nextzh

　　EndIf

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

　　Im1.Width=0.9*Im1.Width

　　Im1.Height=0.9*Im1.Height

　　Forzh=0To13

　　Image1(zh).Left=-480 0.89*(Image1(zh).Left 480)

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

　　Nextzh

　　EndIf

　　Text1.Visible=False

　　HS1.Max=Im1.Width

　　vs1.Max=Im1.Height

　　EndSub

　　PrivateSubhs1_change()

　　Im1.Left=-HS1.Value

　　EndSub

　　PrivateSubvs1_change()

　　Im1.Top=-vs1.Value

　　EndSub

　　PrivateSubim1_mousedown(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)

　　Ifbutton=vbRightButtonThen（鼠标按下后触发其它的弹出式菜单）

　　PopupMenupopup

　　EndIf

　　EndSub

　　PrivateSubImage1_Click(IndexAsInteger)

　　DimvAsLong

　　Text1.Visible=True

　　v=Index

　　Setmydb=OpenDatabase("c:pkuang.mdb")

　　sql="selecttong.编码,tong.内容fromtong"

　　Setmyrs=mydb.OpenRecordset(sql,dbOpenSnapshot)

　　myrs.Movev（根据当前坐标点的位置进行调整）

　　Text1.Text=myrs.Fields("内容")

　　EndSub

　　通过IMAGE控件的使用，可以简化编程中的某些步骤，使程序优化、简便。->