實現圖像縮放的一種方法
p>---- VB的功能強大，應用范圍廣。VB是標準的面向對象編程語言可視編程，采用事件驅動的編程技術。VB含有大量的VBX（控件）。這是一種針對VB的已經編寫好的程序，它們在VB中以各種可視的控制對象的形式出現，例如圖形按鈕，文字編輯框等等，用戶根據自己的需要可直接使用，使編程就象使用積木搭建房屋一樣簡單。
---- 在多媒體設計中，圖像處理是關鍵環節。根據窗口界面的大小，圖像大小和圖形方式下的文字的大小的相應調整，則是一個圖形應用軟件要做到的基本要求之一。利用VB中的IMAGE控件可以實現圖像縮放、相應調整，可以使軟件界面更清晰、友好。
---- 具體編程如下：
Option ExplicitPrivate mydb As DatabasePrivate myrs As RecordsetPrivate mystate As BytePrivate sql As StringPublic z （定義 z 為公共變量）Private Sub a_Click()Form2.ShowForm3.HideEnd Sub（不同的按鈕，觸發不同事件）Private Sub f_Click() EndEnd SubPrivate Sub b_Click() Form4.Show End SubPrivate Sub g_Click()z = 1End SubPrivate Sub h_click()z = 2End SubPrivate Sub im1_Click() Dim zh, fan As Integer （定義 zh 和fan 為整形變量） If Im1.Width < Pi1.Width Then HS1.Visible = False Else HS1.Visible = True End If If Im1.Height < Pi1.Height Then vs1.Visible = False Else vs1.Visible = True End If If z = 1 Then （放大圖象按鈕被觸發的時候，執行以下程序） Im1.Width = 1.1 * Im1.Width Im1.Height = 1.1 * Im1.Height For zh = 0 To 13 Image1(zh).Left = -480 + 1.1123 * (Image1(zh).Left + 480) Image1(zh).Top = 1.111 * (Image1(zh).Top) Next zh End If If z = 2 Then （縮小圖象按鈕被觸發的時候，執行以下程序） Im1.Width = 0.9 * Im1.Width Im1.Height = 0.9 * Im1.Height For zh = 0 To 13 Image1(zh).Left = -480 + 0.89 * (Image1(zh).Left + 480) Image1(zh).Top = 0.89 * (Image1(zh).Top) Next zh End IfText1.Visible = FalseHS1.Max = Im1.Widthvs1.Max = Im1.HeightEnd Sub Private Sub hs1_change()Im1.Left = -HS1.ValueEnd SubPrivate Sub vs1_change()Im1.Top = -vs1.ValueEnd SubPrivate Sub im1_ sedown(button As Integer, shift As Integer, x As Single, y As Single)If button = vbRightButton Then （鼠標按下后觸發其它的彈出式菜單） PopupMenu popup End IfEnd SubPrivate Sub Image1_Click(Index As Integer)Dim v As LongText1.Visible = Truev = Index Set mydb = OpenDatabase("c:pkuang.mdb") sql = "select tong.編碼,tong.內容 from tong" Set myrs = mydb.OpenRecordset(sql, dbOpenSnapshot)myrs.Move v （根據當前坐標點的位置進行調整）Text1.Text = myrs.Fields("內容")End Sub---- 通過 IMAGE控件的使用，可以簡化編程中的某些步驟，使程序優化、簡便。