BeforeAddFile
在文件或者图片管理器单击“增加”按钮的时候执行,一般用于设置打开文件对话框的初始目录:
e参数属性:
DataTable: 触发事件的DataTable
DataRow: 触发事件的DataRow
DataCol: 触发事件的DataCol
Path: 字符型,用于设置打开文件对话框的初始目录。
Cancel: 逻辑型,是否取消此次增加文件操作。
示例一
假定文件有个名为“用户”列,将BeforeAddFile事件代码设置为:
If
e.DataCol.name
= "文件"
Then
If e.DataRow.IsNull("用户")
= False
Dim pth
As String =
"c:\data\" &
e.DataRow("用户")
If FileSys.DirectoryExists(pth)
Then
e.Path
= pth
Else
e.path
= "c:\data"
End If
Else
e.path
= "c:\data"
End
If
End
If
假定当前行“用户”列的内容为“张三”,单击增加按钮,出现的增加文件对话框,就会自动定位到"c:\data\张三"这个目录。
示例二
使用FTP进行远程文件管理时,一样可以设置添加文件的初始目录,例如:
If
e.DataCol.name
= "文件"
Then
If
e.DataRow.IsNull("用户")
= False
e.path
= "/data/" &
e.DataRow("用户")
End
If
End
If
示例三
如果希望每行的文件最多不能超过三个,可以将BeforeAddFile事件代码设置为:
If
e.DataCol.name
= "文件"
Then
If e.DataRow.Lines("文件").Count
>=
3 Then
MessageBox.Show("最多允许添加三个文件!",
"提示",
MessageBoxButtons.OK,
MessageBoxIcon.Information)
e.cancel
= True
End
If
End
If
参考: Lines