VB調用IMAGE控件實現圖像縮放的一種方法

2019-11-18 17:38:29

字體：大中小

來源：轉載

供稿：網友

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

上一篇：VB隨機圖像的魅力

下一篇：在VB中顯示動畫鼠標圖標