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

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控件的使用，可以简化编程中的某些步骤，使程序优化、简便。->