|
我們經常能在網上看到有一些熱區圖片，所謂熱區圖片，就是在一幅大圖片中包含許多區域（熱區），單擊每個區域會鏈接到不同的頁面，熱區最典型的應用應該是地圖了。
這里我們使用VB5制作熱區圖片，編程的思路是這樣的：首先在窗體上放置一個PictureBox控件，在其中裝載一幅圖片，作為熱區的背景圖片，然后再在PictureBox控件上放置幾個Image控件，作為“熱區”——每個Image控件對應一個熱區，接下來要做的事就是在Image控件的單擊事件中加入觸發代碼，以使用戶單擊熱區時程序會有不同的反映。我們不妨就借鑒網絡圖片熱區的樣子，在單擊不同的熱區時鏈接到不同的網頁。
由于程序中牽涉到鏈接網頁，所以還需要一個瀏覽器控件：WebBrowser，你可以這樣加載它：在控件箱的空白處單擊鼠標右鍵，彈出快捷菜單，選擇“部件”菜單項，出現“部件”對話框，選擇對話框中的“控件”標簽，在其下的列表框中復選Microsoft Interner Controls，確定退出，此時控件工具箱中就多了一個地球圖標，它就是我們需要的瀏覽器控件WebBrowser，為了使用戶在將鼠標移動到不同的熱區上會有提示出現，還可以在窗體中加入一個狀態欄控件StatusBar，這個控件位于“部件”對話框中的Microsoft Windows Common Controls 5.0中。
在這個程序中，設置3個熱區，也就是需要3個Image控件，這三個熱區分別將用戶鏈接到“上海熱線”、“新浪”和“中國雅虎”的主頁上，編程之前，在PictureBox控件的屬性對話框中為Picture指定一幅圖片、將Form1的MaxButton屬性指定為False、把3個Image控件的MousePointer屬性都改成99，并為MouseIcon屬性指定成手形，以便告知用戶“這里有一個鏈接存在”。其余控件的屬性都用缺省值，設計好的界面如圖所示。
以下是程序清單：
Private Sub Form_Load()
Picture1.AutoSize=True
WebBrowser1.Left=0
WebBrowser1.Top=0
WebBrowser1.Width=Me.Width－200
StatusBar1.Style=sbrSimple
StatusBar1.SimpleText="熱區范例"
Me.Caption="Hotarea"
End Sub
Private Sub Image1_Click()
WebBrowser1.Navigate "www.online.sh.cn"
End Sub
Private Sub Image1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
StatusBar1.SimpleText="上海熱線"
End Sub
Private Sub Image2_Click()
WebBrowser1.Navigate "www.sina.com.cn"
End Sub
Private Sub Image2_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
StatusBar1.SimpleText="新浪"
End Sub
Private Sub Image3_Click()
WebBrowser1.Navigate "http://cn.yahoo.com/"
End Sub
Private Sub Image3_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
StatusBar1.SimpleText="中國雅虎"
End Sub
Private Sub Picture1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
StatusBar1.SimpleText="熱區范例"
End Sub（上海 錢可棟）
|
