请问为何 base64 编码无效

Question

偶在
http://www.freevbcode.com/ShowCode.Asp?ID=1085
下了 base64.cls ,
在工程中添加了这个文件并在 form1 下添加:Private Sub Form_Click()
    Dim str$
    str = Encode("dfgdgdfg65759")
    Print "111" & str
End Sub测试结果 str 为空值.那个文件应该怎么用的呀?或者哪里有 base64 的编码解码实例

Answer 1

下载看了那个模块，那个模块中的代码没有错误，但是打开之后已经不是类模块了，需要初始化的数据在类模块的初始函数里，改了一下。添加一个窗体，一个按钮。把下面的代码复制到窗体中。然后增加一个类模块，并且命名为 base64 ，然后把下载的模块中的这些内容去掉去掉的内容＝＝＝＝＝＝＝＝
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior = 0   'vbNone
  MTSTransactionMode = 0   'NotAnMTSObject
End
'这是窗体代码
Option ExplicitPrivate Sub Command1_Click()
    Dim base64 As New base64
    Dim s As String
    s = "abc"
    s = base64.Encode(s)
    MsgBox s
End Sub然后添加一个