我的代码为什么不能交换对象呢？

[summer123]

Private Sub mySwap(p1 As PX, p2 As PX)
Dim T As New PX
Set T = p1
Set p1 = p2
Set p2 = T



End Sub

[yunfeng007]

你这么写没什么错误阿。

[summer123]

UP

[summer123]

集合中如何交换两个对象呢

[chenziteng]

没什么问题吧,因为不知道你的PX是什么类型,我改成Collection对象写了一段代码
Private Sub CommandButton1_Click()
Dim cllp1 As Collection
Dim cllp2 As Collection
Set cllp1 = New Collection
Set cllp2 = New Collection

cllp1.Add "p1"
cllp2.Add "p2"
Call mySwap(cllp1, cllp2)
Call MsgBox(cllp1.Item(1) & cllp2.Item(1))
End Sub
Private Sub mySwap(p1 As Collection, p2 As Collection)
Dim T As New Collection
Set T = p1
Set p1 = p2
Set p2 = T
End Sub

结果显示p2p1,说明两个对象是交换了,即你的程序没错