利用Visual Basic.NET2005制作电子相册

摘要:2005是一种良好的Windows应用程序开发工具,特别适合于程序设计初学者学习,该文即是利用Visual 2005编制一个有趣的Windows应用程序的全过程,以此与读者共享编程的乐趣。

关键词:电子相册;图像列表框;Images集合;图片框

中图分类号:TP311文献标识码:A文章编号:1009-3044(2009)24-6762-03

How to Make an Electronic Photo Album by Means of Visual 2005

ZHAO Ming-ling

(Henan Civil Affairs School, Zhengzhou 450003, China)

Abstract: Visual 2005 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 2005 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 2005可以编制许多简短而实用的小程序。你想有一个与众不同的电子相册吗?看看怎样用Visual 2005去制作它。

设计思路: 在Visual 2005中有一个图像列表框控件ImageList,其Images属性是一个图像集合,可用于存储一批图像。Images集合中的每一张图像都有一个索引值,第一张的索引值为0,最后一张的索引值为Images集合中的元素个数Count()减1。所以我们可以用索引值表示出每一张图片。比如图像列表框对象ImageList1的Images集合中的第一张图像可表示为:ImageList1. Images.Item(0)……最后一张图像可表示为:ImageList1. Images.Item(ImageList1.Images.Count() - 1)。在Visual 2005中还有一个图片框控件PictureBox,其属性Images可以获取或设置图片框显示的图像。因此我们可以将所有图像存储到图像列表框对象中,而在图片框对象中浏览它们。

准备工作:找一张图片或用制图软件制作一张图片用作电子相册的封面。把封面图片和其他照片存放在一个文件夹中。

制作过程如下:打开2005,新建项目进行如图一所示的界面设计,其中对象的Name属性分别为:Form1、PictureBox1、Button1------Button5、ImageList1、ImageList2

Form1窗体的属性设置为:

backcolor: steelblue

maximizebox: false

minimizebox: false

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

MsgBox("密码错误,请重试!")

TextBox1.Text = ""

TextBox1.Focus()

Else

End

End If

End If

End Sub

End Class

然后在项目属性对话框中将启动窗体设置为Form2,如图7所示。

启动调试可看到运行结果如图8所示。

输入正确的密码,可打开电子相册,如果输入密码错误,可看到如图9所示的提示信息,三次输入错误的密码,退出程序。

程序调试运行成功后,生成EXE文件,你可以将EXE文件发送给你的亲朋好友,告诉他们密码,让他们看到你的倩影,也可以直接到你的网站上让能得到密码的人浏览。

爱好VB编程的朋友,快动手试试吧!你立即就可以有一个独一无二的精美无比的电子相册啦。