VB調(diào)用IMAGE控件完成圖像縮放的一種辦法

葛巖   

    VB的功能強(qiáng)大，應(yīng)用范圍廣。VB是標(biāo)準(zhǔn)的面向?qū)ο缶幊陶Z言可視編程，采用事件驅(qū)動(dòng)的編程技術(shù)。VB含有大量的VBX(控件)。這是一種針對(duì)VB的已經(jīng)編寫好的程序，它們?cè)赩B中以各種可視的控制對(duì)象的形式出現(xiàn)，例如圖形按鈕，文字編輯框等等，用戶根據(jù)自己的需要可直接使用，使編程就象使用積木搭建房屋一樣簡(jiǎn)單。

　　 在多媒體設(shè)計(jì)中，圖像處理是關(guān)鍵環(huán)節(jié)。根據(jù)窗口界面的大小，圖像大小和圖形方式下的文字的大小的相應(yīng)調(diào)整，則是一個(gè)圖形應(yīng)用軟件要做到的基本要求之一。利用VB中的IMAGE控件可以實(shí)現(xiàn)圖像縮放、相應(yīng)調(diào)整，可以使軟件界面更清晰、友好。

　　 具體編程如下：

　　 Option Explicit

　　 Private mydb As Database

　　 Private myrs As Recordset

　　 Private mystate As Byte

　　 Private sql As String

　　 Public z (定義 z 為公共變量)

　　 Private Sub a_Click()

　　 Form2.Show

　　 Form3.Hide

　　 End Sub

　　 (不同的按鈕，觸發(fā)不同事件)

　　 Private Sub f_Click()

　　 End

　　 End Sub

　　 Private Sub b_Click()

　　 Form4.Show

　　 End Sub

　　 Private Sub g_Click()

　　 z = 1

　　 End Sub

　　 Private Sub h_click()

　　 z = 2

　　 End Sub

　　 Private 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 （放大圖象按鈕被觸發(fā)的時(shí)候，執(zhí)行以下程序）

　　 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 （縮小圖象按鈕被觸發(fā)的時(shí)候，執(zhí)行以下程序）

　　 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 If

　　 Text1.Visible = False

　　 HS1.Max = Im1.Width

　　 vs1.Max = Im1.Height

　　 End Sub

　　 Private Sub hs1_change()

　　 Im1.Left = -HS1.Value

　　 End Sub

　　 Private Sub vs1_change()

　　 Im1.Top = -vs1.Value

　　 End Sub

　　 Private Sub im1_mousedown(button As Integer, shift As Integer, x As Single, y As Single)

　　 If button = vbRightButton Then （鼠標(biāo)按下后觸發(fā)其它的彈出式菜單）

　　 PopupMenu popup

　　 End If

　　 End Sub

　　 Private Sub Image1_Click(Index As Integer)

　　 Dim v As Long

　　 Text1.Visible = True

　　 v = Index

　　 Set mydb = OpenDatabase("c:pkuang.mdb")

　　 sql = "select tong.編碼,tong.內(nèi)容 from tong"

　　 Set myrs = mydb.OpenRecordset(sql, dbOpenSnapshot)

　　 myrs.Move v （根據(jù)當(dāng)前坐標(biāo)點(diǎn)的位置進(jìn)行調(diào)整）

　　 Text1.Text = myrs.Fields("內(nèi)容")

　　 End Sub

　　 通過 IMAGE控件的使用，可以簡(jiǎn)化編程中的某些步驟，使程序優(yōu)化、簡(jiǎn)便。