nbsp; If Not CBool(InStr(1, Trim(txtEditInfo(1)), "C:\", vbTextCompare)) And Not CBool(InStr(1, Trim(txtEditInfo(1)), "D:\", vbTextCompare)) Then
MsgBox "目标信息路径格式不对!"
Exit Sub
End If
With lstInfo.ListItems.Item(CLng(cmdinfo(2).Tag))
''''是否添加重复的主信息
If Check_OverLap(Trim(txtEditInfo(1))) Then
If Trim(.SubItems(2)) = Trim(txtEditInfo(1)) Then
MsgBox "信息重复,请重新编辑该项信息!", vbInformation, "警告"
Exit Sub
End If
End If
.SubItems(1) = Trim(txtEditInfo(0))
.SubItems(2) = Trim(txtEditInfo(1))
End With
Case 3 ''''添加信息
With frmMain.comdInfo
.Filter = "所有可用信息|*.JPG;*.JPEG;*.BMP;*.SWF;*.GIF;*.AVI;*.MPG;*.MPEG;*.DAT;*.inf;*.MP3;*.MID;*.WAV;*.RM|" & _
"静态图像(*.JPG;*.JPEG;*.BMP)|*.JPG;*.JPEG;*.BMP|" & _
"动态图像(*.SWF;*.GIF;*.AVI;*.MPG;*.MPEG;*.DAT;*.RM)|*.SWF;*.GIF;*.AVI;*.MPG;*.MPEG;*.DAT;*.RM|" & _
"音乐(*.MP3;*.MID;*.WAV)|*.MP3;*.MID;*.WAV"
.DialogTitle = "请选择信息"
.InitDir = CurDir()
.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly Or _
cdlOFNAllowMultiselect Or cdlOFNExplorer
.FileName = ""
On Error GoTo ErrLab
.ShowOpen
str = .FileName
AddFileName() = Split(str, vbNullChar)
''''添加信息到列表
If UBound(AddFileName) = 0 Then ''''选择了一项信息
''''不添加重复的主信息
If Not Check_OverLap(str) Then
lstvInfo_Add lstInfo, 3, False, lstInfo.ListItems.count + 1, str, str
End If
End If
For i = 1 To UBound(AddFileName) ''''选择了多项信息
str = AddFileName(0) & "\" & AddFileName(i)
''''不添加重复的主信息
If Not Check_OverLap(str) Then
lstvInfo_Add lstInfo, 3, False, lstInfo.ListItems.count + 1, str, str
End If
Next
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> 没有相关教程
|