精美员工档案

xbl7966

该员工档案精美好看实用，不仅在窗体上能够癸实现添加、修改、删除员工信息，而且还能加载员工照片，下载后，请解压到桌面再打开使用，在姓名文本框输入简历表中员工姓名，该员工信息立即在其它文本框显示出来，如果觉得好，请大家顶一下。如果有人还想添加其它功能，请回信息。

[ 本帖最后由 xbl7966 于 2011-4-5 14:07 编辑 ]

Cellfarmer

谢楼主分享，收藏了。

飞云楼主

谢谢分享，收藏

ldshuishijie

谢谢分享，楼主应增加模糊查找功能

商人

很精彩，不过弄不明白相片是如何加载上去的？？？？

我是我妈的宝贝

谢谢分享，顶！

ly.liubing

做得很漂亮，谢谢分享。

zhenbiyihu

确实比较精美

xbl7966

我已对文件进行修改更新，请重新下载。
窗体加载相片详细解答：
1、先在D盘新建一文件夹，将其名称改为PIC，然后将需要加载的图片放入其中，我们假定图片的名称分别为张一、张二、张三、张四、张五、张六、张七、张八。
2、新建一Excel工作簿，在工作簿VBE窗口插入一窗体(UserForm1)，在窗体上添加一组合框(ComboBox1)，再添加一图像控件(Image1)。
3、给窗体编写如下代码：
Private Sub UserForm_Initialize()
Dim arr As Variant
arr = Array("张一", "张二", "张三", "张四", "张五", "张六", "张七", "张八")
ComboBox1.List = arr
End Sub
Private Sub ComboBox1_Change()
Image1.Picture = LoadPicture("D:\PIC\" & ComboBox1.Text & ".JPG")
End Sub
4、在工作表Sheet1添加一按钮(CommandButton1)，给该按钮编写如下代码：
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
5、关闭VBE窗口，点击按钮(CommandButton1)就会显示窗体，在窗体组合框选择姓名，图像控件就会显示相应员工照片。

还是疯子

能修改成模糊查找就非常完美了。