查看完整版本: 求助！

求助！

我想编一个简单的字符串逆转的小程序：插如入了一个类模块，代码如下：
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
以上各部都是按书上的步骤做的，运行的时候却出现如下错误：[attach]348[/attach]
单击“调试”，黄色箭头指向代码：myobject.StrReverse
请问这是怎么回事？

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

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

Private Sub StrReverse()
应为[color=Red]Public[/color] Sub StrReverse()
你用private 怎么让外部过程调用?

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