vb初学 438不支持该属性或方法

来源：百度知道 编辑：UC知道 时间：2024/09/23 23:30:38
(form1)
Private Sub Command1_Click()
Set myobject = New Class1
myobject.strname = Text1.Text
myobject.StrReverse
Text2.Text = myobject.strname
End Sub

Private Sub Command2_Click()
End
End Sub
（class1)
Option Explicit
Public strname As String

Private Sub StrReverse()
Dim i As Long
Dim str As String
For i = 1 To Len(strname)
str = Mid$(strname, i, 1) & str
Next
strname = str
End Sub

问题出在（myobject.StrReverse）这一句！请指点！！！！

Private Sub StrReverse()
应为Public Sub StrReverse()
你用private 怎么让外部过程调用?当然会提示不支持该属性或方法

（class1)
Option Explicit
Public strname As String

Private Sub StrReverse()
Dim i As Long
Dim str As String
For i = 1 To Len(strname)
str = Mid$(strname, i, 1) & str
Next
strname = str
End Sub

这个类改成：

（class1)
Option Explicit
Public strname As String

public Sub StrReverse()
Dim i As Long
Dim str As String
For i = 1 To Len(strname)
str = Mid$(strname, i, 1) & str
Next
strname = str
End Sub