1.建立一个EXE工程,放入一个按钮,名字btnStu,文本:查询成绩;窗体标题:成绩管理;一个标签:名字:Label1。如图27。
图27
- 加入代码:
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
- 运行程序单击按钮后,发现窗体标题和标签文本发生了变化,说明对象传递成功。