rmExitDialog.ShowDialog() = DialogResult.OK Then '如果单 击了“确定”按钮,则退出 Me.Close() '关闭本窗体 Application.Exit() '退出应用程序 End If End Sub
说明: (1)上述代码首先产生一个frmExit窗体的实例,然后调用该 窗体实例的ShowDialog方法把该窗体实例以对话框的形式显示 出来,如果用户在对话框中单击了“是”按钮,则退出应用程序 。 (2)在VB.NET中,除了可以使用Windows自带的标准对话框 外,如MsgBox、InputBox等,用户还可以把自己设计的窗体 定义成对话框。使用自定义对话框有以下几个要点。 ①将窗体的FormBorderStyle属性值设置为FixedDialog; ②根据需要向窗体上添加控件; ③使用窗体的ShowDialog方法显示窗体,即显示出对话框。
19.运行程序,单击“退出”按钮,将会
出现如图7-6所示的对话框, 单击“是”按钮退出应用程序。 20.在“解决方案资源管理器”中双击“frmTicketPublish”窗体并切换 到该窗体,在所有代码之前,加上如下代码。
Imports Task7_1.frmTicketReward
21.编写“frmTicketPublish”窗体的Load事件过程代码,如下。
Private Sub frmTicketPublish_Load(ByVal sender ByVal e As System.EventArgs) Handles MyBase.Load '把中奖号码显示在各文本框中 TextBox1.Text = CStr(a1) : TextBox2.Text = TextBox3.Text = CStr(a3) : TextBox4.Text = TextBox5.Text = CStr(a5) : TextBox6.Text = TextBox7.Text = CStr(a7) End Sub As System.Object,
CStr(a2) CStr(a4) CStr(a6)
说明: 在窗体中可以访问被引入的其他窗体中定义的全局共享变量。
22.为该窗体的“关闭”按钮编写Click事件过程代码,如下。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() '关闭本窗体 End Sub
23.运行程序,单击“摇奖”按钮进行摇奖,单击“停止”按钮产生中奖 号码,单击“公布”按钮将会出现如图7-5所示的“中奖号码公布”窗口, 单击“关闭”按钮将加到“摇奖”窗口。 24.保存顷目,至此本任务全部完成。
归纳说明:
Windows应用程序很少只由一个窗体组成,一般情况下一个应用程序均 拥有很多个窗体。VB.NET项目刚建立时只有一个