教学课件：《Visual Basic 2005程序设计》何聚厚.ppt

* ⑽ 双击frmMyFormsDemo窗体的“输入”按钮，添加对其Click事件的响应代码： Private Sub btnInput_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnInput.Click 如果输入窗体是按“确定”按钮返回，则把输入窗体中输入文本框中的内容显示到主窗体的输 出窗口中 If My.Forms.frmInputForm.ShowDialog() = Windows.Forms.DialogResult.OK Then If String.IsNullOrEmpty(txtOutput.Text) Then txtOutput.Text = My.Forms.frmInputForm.txtInput.Text vbCrLf Else txtOutput.Text = My.Forms.frmInputForm.txtInput.Text vbCrLf End If My.Forms.frmInputForm