重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
DNCapability 说倒了吧!基本原理正确!
创新互联建站是一家集网站建设,固阳企业网站建设,固阳品牌网站建设,网站定制,固阳网站建设报价,网络营销,网络优化,固阳网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。
窗体1调用窗体3
Form3.Button1.PerformClick()
窗体3调用窗体1
Form1.Button1.PerformClick()
首先要添加两个窗体,假设第一个窗体名为Form1,第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。按钮单击事件的代码为:
Private Sub Command1_Click()
Form2.Show '用show方法加载并且显示名为Form2的窗体
End Sub
show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。可自行运行验证
既然是VB.NET,那么,窗体关闭的事件,是.net framework提供的,是FormClosed事件。也是两个参数,一个object sender这个是object基类,整个.net framework都是从它派生的,一个 EventArgs e,事件处理基类,一切事件是从EventArgs基类派生出来的。
Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
End Sub
你不要用Form1做为启动窗口就不会这样了
告诉你解决方法:
1.添加新项-"模块"
2.在新建的模块文件里建立一个函数,及其代码如下:
Sub Main()
Application.EnableVisualStyles()
Dim frm1 As New Form1
frm1.Show()
frm1.Refresh()
Dim frm2 As New Form2
frm2.Show()
frm2.Refresh()
frm1.Hide()
Application.Run()
End Sub
3.在项目属性-应用程序-启动窗体 那里选择"Sub Main"
4.在你需要程序退出的地方加一句:
Application.Exit()
搞定!
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
MsgBox("窗口即将关闭....")
End Sub
Else
e.Cancel = True
End If