运行效果:
程序代码:
Private Sub Command1_Click()
Dim i As Object
Set i = Text1
i.Text = "传递参数"
End Sub
微信扫一扫
运行效果:
程序代码:
Private Sub Command1_Click()
Dim i As Object
Set i = Text1
i.Text = "传递参数"
End Sub
相关推荐