随时添加删除附件问题?

qq41251299 2008-07-08 05:29:54


下面的命令可以实现添加文件,并记录文件名到text2内,
但我还想能够随时删除text2的内容,随时添加
可是我点了cls按钮后,却不能再添加了?
谁能帮忙给改改,或者有更好的代码和建议?
Private Sub CmdAdd_Click()
With CommonDialog1
.InitDir = App.Path & "\data\0606"
.DialogTitle = "打开"
.CancelError = False
'ToDo: 设置 common dialog 控件的标志和属性
.Filter = "所有文件 (*.*)|*.*"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
End With

Dim i As Long, n As Long
n = Text2.UBound
If n > 4 Then End '最多添加6个附件
For i = 0 To n
If Len(Text2(i).Text) = 0 Then
Exit For
End If
Next '检查有没有空白文件
If i > n Then
Load Text2(i)
Text2(i).Visible = True
Text2(i).Move Text2(i - 1).Left, Text2(i - 1).Top + Text2(i - 1).Height + 90

Load Cmdcls(i)
Cmdcls(i).Visible = True
Cmdcls(i).Move Cmdcls(i - 1).Left, Cmdcls(i - 1).Top + Cmdcls(i - 1).Height + 50
End If
FileNumber = i

End Sub

Private Sub Cmdcls_Click(Index As Integer)
Text2(Index).Text = ""
End Sub
...全文
77 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
qq41251299 2008-07-08
  • 打赏
  • 举报
回复
这个样子解决了,嘻嘻!
Private Sub CmdAdd_Click()
With CommonDialog1
.InitDir = App.Path & "\data\0606"
.DialogTitle = "打开"
.CancelError = False
'ToDo: 设置 common dialog 控件的标志和属性
.Filter = "所有文件 (*.*) ¦*.*"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
End With

Dim i As Long, n As Long
n = Text2.UBound

If n > 4 Then End '最多添加6个附件
For i = 0 To n
If Len(Text2(i).Text) = 0 Then
Text2(i) = CommonDialog1.FileName
GoTo lbl1
Else

End If
Next '检查有没有空白文件

If i > n Then
Load Text2(i)
Text2(i).Visible = True
Text2(i).Move Text2(i - 1).Left, Text2(i - 1).Top + Text2(i - 1).Height + 90


If i = Cmdcls.UBound + 1 Then
Load Cmdcls(i)
Cmdcls(i).Visible = True
Cmdcls(i).Move Cmdcls(i - 1).Left, Cmdcls(i - 1).Top + Cmdcls(i - 1).Height + 50
End If
End If

lbl1: FileNumber = i
If n = 4 Then MsgBox "注意,最多添加6个文件"
End Sub

Private Sub Cmdcls_Click(Index As Integer)
Select Case Index
Case 0
Text2(0).Text = ""
Case 1
Text2(1).Text = ""
Case 2
Text2(2).Text = ""
Case 3
Text2(3).Text = ""
Case 4
Text2(4).Text = ""
Case 5
Text2(5).Text = ""
End Select

End Sub
fvflove 2008-07-08
  • 打赏
  • 举报
回复
先建立一个按扭,Name=cmdCls Visible=False

再建立一个文件框,Name=Text2 Visible=False


Private Sub CmdAdd_Click()
With CommonDialog1
.InitDir = App.Path & "\data\0606"
.DialogTitle = "打开"
.CancelError = False
'ToDo: 设置 common dialog 控件的标志和属性
.Filter = "所有文件 (*.*) |*.*"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
End With

Dim i As Long, n As Long
n = Text2.UBound
If n = 5 Then MsgBox "注意,最多添加6个文件"
If n > 5 Then Exit Sub '最多添加6个附件

Load Text2(Text2.Count)
Load cmdCls(cmdCls.Count)
Text2(Text2.Count - 1).Text = CommonDialog1.filename
Text2(Text2.Count - 1).Top = Text2(Text2.Count - 2).Top + Text2(0).Height
Text2(Text2.Count - 1).Left = Text2(0).Left
Text2(Text2.Count - 1).Visible = True

cmdCls(cmdCls.Count - 1).Top = cmdCls(cmdCls.Count - 2).Top + cmdCls(0).Height
cmdCls(cmdCls.Count - 1).Left = cmdCls(0).Left
cmdCls(cmdCls.Count - 1).Visible = True

End Sub

Private Sub Cmdcls_Click(Index As Integer)
Text2(Index).Text = ""
For i = Index To Text2.Count - 2
Text2(i).Text = Text2(i + 1).Text
Next
Unload Text2(Text2.Count - 1)
Unload cmdCls(cmdCls.Count - 1)

End Sub


7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧