例031：传递对象参数

1.建立一个EXE工程，放入一个按钮，名字btnStu，文本：查询成绩；窗体标题：成绩管理；一个标签：名字：Label1。如图27。

                    图27

1. 加入代码：

Sub Form1_btnStu_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)

      frmTrans(Form1,Label1,Me.Caption)'Me代表本窗体

End Sub

Sub frmTrans(F As Class_Form,L As Class_Label,btnText As String)'传入控件类型对象

   F.caption = "传递对象"

   L.Caption=btnText

   L.Visible=True

End Sub

1. 运行程序单击按钮后，发现窗体标题和标签文本发生了变化，说明对象传递成功。