|
葛巖
VB的功能強(qiáng)大，應(yīng)用范圍廣。VB是標(biāo)準(zhǔn)的面向?qū)ο缶幊陶Z言可視編程，采用事件驅(qū)動的編程技術(shù)。VB含有大量的VBX(控件)。這是一種針對VB的已經(jīng)編寫好的程序，它們在VB中以各種可視的控制對象的形式出現(xiàn)，例如圖形按鈕，文字編輯框等等，用戶根據(jù)自己的需要可直接使用，使編程就象使用積木搭建房屋一樣簡單。
在多媒體設(shè)計中，圖像處理是關(guān)鍵環(huán)節(jié)。根據(jù)窗口界面的大小，圖像大小和圖形方式下的文字的大小的相應(yīng)調(diào)整，則是一個圖形應(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ā)的時候，執(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 （鼠標(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控件的使用，可以簡化編程中的某些步驟，使程序優(yōu)化、簡便。
|
