重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你不要用Form1做为启动窗口就不会这样了
创新互联建站专注为客户提供全方位的互联网综合服务,包含不限于网站设计、网站制作、遵义网络推广、微信小程序定制开发、遵义网络营销、遵义企业策划、遵义品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联建站为所有大学生创业者提供遵义建站搭建服务,24小时服务热线:18980820575,官方网址:www.cdcxhl.com
告诉你解决方法:
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 Form_Load() '这就是装载窗体的事件
'启动窗体的代码
End Sub
双击窗体界面就可以。
这是窗体加载事件。
也就是说,在窗体启动的同时就执行这个事件里的代码。
比如说你窗体上添加了一个文本框(Text)控件。你在Form_load中加入一下代码:
Private Sub Form_Load()
Text1.text="Visual Basic"
End sub
那么,你启动程序后,窗体中文本框上便是"Visual Basic"。
因为它先执行了form_load事件中的代码。
新建窗体,把maximizebox属性和MinimizeBox 属性设为false,再添加一个Label1放置文字一个Picturebox1放图片。
在窗体的load事件中:
Private Sub Form1_Load() Handles Me.Load
Text="我的VB.NET程序"
PuctureBox1.Image=Image.FromFile(图片路径如e:\pic.jpg)
End Sub
窗体Click事件:
Private Sub Form1_Click() Handles Me.Click
Text="单击窗体"
Label1.Text="欢迎使用VB.NET"
End Sub
窗体DoubleClick事件
Private Sub Form1_DoubleClick() Handles Me.DoubleClick
Text="双击窗体"
Label1.Text = "谢谢使用!"
End Sub