大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim I As Integer
创新互联是一家专业提供利通企业网站建设,专注与成都网站制作、网站设计、HTML5、小程序制作等业务。10年已为利通众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
闹昌游 Button1.Text = "继续"
TextBox1.Text = I
I = I + 1
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
I = 迅腔2
End Sub
代码液销如上 如图的效果
1.降窗肢扮体的WindowState 属性 设置历碧灶为 Mininmized;将ShowInTaskbar属性设置为False
2.在窗体的慧帆Load事件中添加下面的代码
if Me.WindowState = FormWindowState.Minimized then
me.hide()
end if
在该按纽的李粗单击事件编写代袜轿码:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
在VB6的时候,使用:Unload me
在VB.NET里哪好镇使用:Me.Close()