有关调用function问题

Question

本帖最后由 bcrun 于 2011-02-22 08:29:09 编辑

Answer 1

Function ExportFileFromRes(ByVal ID As Long, ByVal FileName As String) As Boolean
ExportFileFromRes = False
Dim bytDbt() As Byte
Dim intT As Integer
If Dir(FileName) <> "" Then ''''''''双引号内无空格
  ExportFileFromRes = False
  Exit Function
End If
bytDbt = LoadResData(ID, "CUSTOM") ''''''双引号内无空格
intT = FreeFile
Open FileName For Binary As intT
  Put intT, , bytDbt
Close intT
ExportFileFromRes = True
End Function

Answer 2

楼主又后多养成Trim参数的习惯就好了

Answer 3

就是得多用Trim。我一般从数据库读数据或从文本框中读数据的时候，一般都是Trim过滤一下。