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控件的使用,可以簡化編程中的某些步驟,使程序優化、簡便。->