老师，我写了个dll，是用来在单元格里点击，跳出对话框，然后把选中的文件拷贝到固定的目录里的，但是会出错，请帮忙看一下dll里的代码
Imports F oxtable
Imports System.Windows.Forms
Public Class ImageEditor
Public c As D ataCol
Public r As D ataRow
Public Function Show(r1 As D ataRow, c1 As D ataCol) As Object
r = r1
c = c1
Dim dlg As OpenFileDialog
Dim name As String = Nothing
Dim path As String = Nothing
dlg.Filter = "所有图像文件 (*.bmp*.gif*.jpg*.jpeg*.png)|*.bmp;*.gif;*.jpg;*.jpeg;*.png|位图文件 (*.bmp*.ico)|*.bmp;*.ico|图元文件 (*.emf*.wmf)|*.*"
If (dlg.S howDialog = D ialogResult.OK) Then
path = dlg.F ileName 'path是含路径的文件名
Else
Return Nothing
End If
name = F ileSys.GetName(path) 'name是只有文件名
Dim file As String = P rojectPath & "Images\" & name 'file是在projectpath\Images\文件名
'接下来判断，如果选择的path和在file里不匹配，也就是从别的地方选择的图片，那么要把它拷贝到images下面
If Not F ileSys.FileExists(file) Then
F ileSys.CopyFile(path, file, True)
End If
r(c.Name) = name '在表格中是只存文件名的
Return Nothing
End Function
End Class
编译没问题，然后在cellbuttonclick中使用
dim a as new dll.ImageEditor
a.Show(row,col)
可是为什么说提示找不到这个Show这个方法啊
加好友 
发短信
Post By：2020/1/28 1:03:00 [显示全部帖子]
