Question

：【求助】在VB的filelistbox控件中如何隐藏文件后缀？

在VB的filelistbox控件中如何隐藏文件后缀？

Answer 1

把FileListBox隐藏起来... 再放个ListBox... 使FileListBox更变的同时把每一项去后缀添加到ListBox.. 比如..按了DirListBox : Private Sub Dir1_Change() File1.Path = Dir1.Path Dim i As Long For i = 0 To File1.ListCount - 1 List1.AddItem Left(File1.List(i), Len(File1.List(i)) - 4) Next i End Sub List1.AddItem Left(File1.List(i), Len(File1.List(i)) - 4) 这句是把第i项的File1文件名去掉最后4个字符...一般文件后缀都是.××× 去掉一个点个三个字符就行... 如果怕有后缀非3个字符..就改为.. List1.AddItem Left(File1.List(i), InStr(File1.List(i), ".") - 1) 用ListBox代替FileListBox..我只能想到这样的鬼点子了... 若ListBox有操作就再"偷偷"调用FileListBox..大概就行了.. 采纳我吧..我打开VB花了不少心思... 祝:VB技术提高...(我自己还只是菜鸟)

Answer 2

试试这个： Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName) End Sub
希望采纳