Dim?I?As?Integer
創(chuàng)新互聯(lián)是一家專業(yè)提供利通企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、HTML5、小程序制作等業(yè)務(wù)。10年已為利通眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站建設(shè)公司優(yōu)惠進(jìn)行中。
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
鬧昌游????Button1.Text?=?"繼續(xù)"
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 屬性 設(shè)置歷碧灶為 Mininmized;將ShowInTaskbar屬性設(shè)置為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的時(shí)候,使用:Unload me
在VB.NET里哪好鎮(zhèn)使用:Me.Close()