紫色的风

我想编一个简单的字符串逆转的小程序：插如入了一个类模块，代码如下：
Option Explicit
Public StrName As String
Private Sub StrReverse()
Dim i As Integer
Dim str As String
For i = 1 To Len(StrName)
  str = Mid$(StrName, i, 1) & str
Next
StrName = str
End Sub
在窗体上添加了两个按钮，一个为“逆转”，一个为“退出”，，逆转按钮的代码如下：
Private Sub Command1_Click()
Set myobject = New MyClass1
myobject.StrName = Text1.Text
myobject.StrReverse
Text2.Text = myobject.StrName
End Sub
以上各部都是按书上的步骤做的，运行的时候却出现如下错误：

未标题-1.jpg (30.03 KB)

2006-7-18 08:46

单击“调试”，黄色箭头指向代码：myobject.StrReverse
请问这是怎么回事？

[ 本帖最后由 紫色的风 于 2006-7-18 08:50 编辑 ]

Nothing

你应当把上面的程序放在类模块里吧,不能放到当前程序里.

qxl584

Private Sub StrReverse()
应为Public Sub StrReverse()
你用private 怎么让外部过程调用?

紫色的风

谢谢！谢谢！看样字光照着书还是不行啊。还要自己摸索。