VB.NET 下给Listbox 添加图片或者渐变背景。

在普通window应用程序中的背景是不能有ALPHA通道的

既然是.net，试试用WPF窗体吧：

Listbox1.Background=New SolidBrush(Color.FromARGB(200,0,0,0))

当然你要是了解.net的笔刷类，绘制复杂的背景也不成问题

2014-0715 程序已经改好，所有代码重新写，并且加了注释

并且发回到你的邮箱！请查收！

1、支持打开文件夹方式批量添加图片，用了一个模块 'VB 不支持PNG图片没办法

2、支持模糊查询

3、每次录入标题和描述都要点一下“保存”按钮才可以

4、文件每次保存都会自动copy到根目录的picture文件夹内（但是调用时没调用这个目录，不知道你是不是需要调用，如果是也很简单）

5、去除list1控件使用file1控件。

6、没有对图片的宽、高度加以限制，你可以自己限制图片的尺寸和picture1一样大小，但是图片容易失真，也可以自适应（不会的话我给你改，由于时间限制我暂时没改，下午事太多了）

7、txt文件的读写，字符串的查找功能

总之花了半小时的时间，满足你所需的功能。有啥问题在找我，记得知道给我分哦。

BY h8081234 0715

邮箱：290903456@qq.com

我这样举例：

Private Sub List1_Click()

Dim i As Integer

Dim MyStr As String

For i = 0 To List1.ListCount - 1

If List1.Selected(i) Then

MyStr = List1.List(i)

Exit For

End If

Next i

Adodc1.RecordSource = "Select * From 数据表名 Where 名称='" &MyStr &"'"

Adodc1.Refresh

Debug.Print "级数=" &Adodc1.Recordset.Fields("级数")

Debug.Print "旋转方向=" &Adodc1.Recordset.Fields("旋转方向")

Debug.Print "使用寿命=" &Adodc1.Recordset.Fields("使用寿命")

Debug.Print "图片文件名=" &Adodc1.Recordset.Fields("图片")

End Sub

你会了吧？

---