利用Ｖｉｓｕａｌ Ｂａｓｉｃ．ＮＥＴ２００５制作電子相冊

摘要:VisualBasic.NET2005是一種良好的Windows應用程序開發工具，特別適合于程序設計初學者學習，該文即是利用Visual Basic.NET2005編制一個有趣的Windows應用程序的全過程，以此與讀者共享編程的樂趣。

關鍵詞:電子相冊;圖像列表框;Images集合;圖片框

中圖分類號:TP311文獻標識碼:A文章編號:1009-3044(2009)24-6762-03

How to Make an Electronic Photo Album by Means of Visual Basic.NET2005

ZHAO Ming-ling

(Henan Civil Affairs School， Zhengzhou 450003， China)

Abstract: Visual Basic.NET2005 is a good Windows application development tool， particularly suitable for beginners to learn programming. This article tells the readers the whole process of making use of Visual Basic.NET2005 to make an interesting Windows application program as a means of sharing with readers the joy of programming.

Key words: electronic photo album; imagelist; images collection; pictureBox

利用Visual Basic.NET2005可以編制許多簡短而實用的小程序。你想有一個與眾不同的電子相冊嗎?看看怎樣用Visual Basic.NET2005去制作它。

設計思路: 在Visual Basic.NET2005中有一個圖像列表框控件ImageList，其Images屬性是一個圖像集合，可用于存儲一批圖像。Images集合中的每一張圖像都有一個索引值，第一張的索引值為0，最后一張的索引值為Images集合中的元素個數Count()減1。所以我們可以用索引值表示出每一張圖片。比如圖像列表框對象ImageList1的Images集合中的第一張圖像可表示為:ImageList1. Images.Item(0)……最后一張圖像可表示為:ImageList1. Images.Item(ImageList1.Images.Count() - 1)。在Visual Basic.NET2005中還有一個圖片框控件PictureBox，其屬性Images可以獲取或設置圖片框顯示的圖像。因此我們可以將所有圖像存儲到圖像列表框對象中，而在圖片框對象中瀏覽它們。

準備工作:找一張圖片或用制圖軟件制作一張圖片用作電子相冊的封面。把封面圖片和其他照片存放在一個文件夾中。

制作過程如下:打開VisualBasic.NET2005，新建項目進行如圖一所示的界面設計，其中對象的Name屬性分別為:Form1、PictureBox1、Button1------Button5、ImageList1、ImageList2

Form1窗體的屬性設置為:

backcolor: steelblue

maximizebox: 1

minimizebox: 1

size:280，330

Text:相冊

Picturebox1圖片框的屬性設置為:

Size: 240，240

Button1----Button5命令按鈕的屬性設置為:

BackGroundImage屬性分別為圖片:b1.jpg----b5.jpg，如圖2所示。

Size: 40，30

Imagelist1圖像列表框的屬性設置為:

Size: 240，240

ColorDepth: Depth32Bit

Images屬性如圖3所示，其中的成員列表框中就是你要加入電子相冊中的圖像。

Imagelist2圖片框的屬性設置為:

Size: 240，240

ColorDepth: Depth32Bit

Images屬性如圖4所示，其中的成員列表框中就是你的電子相冊封面圖。

程序代碼如下:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object， ByVal e As System.EventArgs) Handles MyBase.Load

'顯示電子相冊封面

PictureBox1.Image = ImageList2.Images.Item(0)

End Sub

Private Sub Button1_Click(ByVal sender As Object， ByVal e As System.EventArgs) Handles Button1.Click

'顯示第一張圖像

PictureBox1.Image = ImageList1.Images.Item(0)

End Sub

Private Sub Button2_Click(ByVal sender As Object， ByVal e As System.EventArgs) Handles Button2.Click

'從第一張圖像開始向后瀏覽

Static i As Short

If i < ImageList1.Images.Count() Then

PictureBox1.Image = ImageList1.Images.Item(i)

Else

PictureBox1.Image = ImageList1.Images.Item(ImageList1.Images.Count() - 1)

i = -1

MsgBox(\"最后一張\")

End If

i = i + 1

End Sub

Private Sub Button3_Click(ByVal sender As Object， ByVal e As System.EventArgs) Handles Button3.Click

'從最后一張圖像開始向前瀏覽

Static j As Short

If j < ImageList1.Images.Count() Then

PictureBox1.Image = ImageList1.Images.Item(ImageList1.Images.Count() - 1 - j)

Else

PictureBox1.Image = ImageList1.Images.Item(0)

j = -1

MsgBox(\"第一張\")

End If

j = j + 1

End Sub

Private Sub Button4_Click(ByVal sender As Object， ByVal e As System.EventArgs) Handles Button4.Click

'顯示最后一張圖像

PictureBox1.Image = ImageList1.Images.Item(ImageList1.Images.Count() - 1)

End Sub

Private Sub Button5_Click(ByVal sender As System.Object， ByVal e As System.EventArgs) Handles Button5.Click

'退出程序

End

End Sub

End Class

啟動調試可看到運行結果如圖5所示。

如果你不想公開自己的電子相冊，就試著給它加上密碼吧!在項目中添加Windows窗體，進行如圖6所示的界面設計，其中對象的Name屬性分別為:Form2、Label1、Textbox1、Button1。

Form2窗體的屬性設置為:

Text: 登錄

size:280，330

Label1標簽的屬性設置為:

Text: 密碼

TextBox1文本框的屬性設置為:

Text: 空

Button1命令按鈕的屬性設置為:

Text: 確定

程序代碼如下:

Public Class Form2

Dim password As String

Private Sub Form2_Load(ByVal sender As System.Object， ByVal e As System.EventArgs) Handles MyBase.Load

password = \"123456\" '用戶密碼

TextBox1.Text = \"\"

TextBox1.PasswordChar = \"*\"

End Sub

Private Sub Button1_Click(ByVal sender As Object， ByVal e As System.EventArgs) Handles Button1.Click

Static i As Short

'密碼正確，打開電子相冊

If Trim(TextBox1.Text) = password Then

Form1.Show()

Me.Hide()

Else

'三次輸入密碼錯誤，退出程序

i = i + 1

If i <= 3 Then

MsgBox(\"密碼錯誤，請重試!\")

TextBox1.Text = \"\"

TextBox1.Focus()

Else

End

End If

End If

End Sub

End Class

然后在項目屬性對話框中將啟動窗體設置為Form2，如圖7所示。

啟動調試可看到運行結果如圖8所示。

輸入正確的密碼，可打開電子相冊，如果輸入密碼錯誤，可看到如圖9所示的提示信息，三次輸入錯誤的密碼，退出程序。

程序調試運行成功后，生成EXE文件，你可以將EXE文件發送給你的親朋好友，告訴他們密碼，讓他們看到你的倩影，也可以直接發布到你的網站上讓能得到密碼的人瀏覽。

愛好VB編程的朋友，快動手試試吧!你立即就可以有一個獨一無二的精美無比的電子相冊啦。