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