葛巖   

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

　　 在多媒體設(shè)計中，圖像處理是關(guān)鍵環(huán)節(jié)。根據(jù)窗口界面的大小，圖像大小和圖形方式下的文字的大小的相應調(diào)整，則是一個圖形應用軟件要做到的基本要求之一。利用VB中的IMAGE控件可以實現(xiàn)圖像縮放、相應調(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ā)的時候，執(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ā)的時候，執(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 （鼠標按下后觸發(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ù)當前坐標點的位置進行調(diào)整）

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

　　 End Sub

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