如果這個窗體是主窗體的話,你只能隱藏,因?yàn)橹鞔绑w關(guān)閉的話程序就退出了。
目前創(chuàng)新互聯(lián)已為近1000家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)站空間、網(wǎng)站托管、企業(yè)網(wǎng)站設(shè)計、青羊網(wǎng)站維護(hù)等服務(wù),公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
如果不是主窗體,可以用Form1.Close來關(guān)閉。
如果實(shí)在是想關(guān)閉,就得把程序啟動設(shè)為sub
main而不是form。
再由sub
main來啟動窗體,這樣就沒有主窗體了。
在該按紐的單擊事件編寫代碼:
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()
Private?Sub?Form2_FormClosed(sender?As?Object,?e?As?FormClosedEventArgs)?Handles?Me.FormClosed
End????'退出后關(guān)閉軟件
End?Sub
'點(diǎn)擊關(guān)閉按鈕時彈出對話框判斷是否退出
Private?Sub?Form2_FormClosing(sender?As?Object,?e?As?FormClosingEventArgs)?Handles?Me.FormClosing
'經(jīng)典判斷關(guān)閉法
If?MessageBox.Show("是否退出?",?"確認(rèn)",?MessageBoxButtons.OKCancel,?MessageBoxIcon.Question,
MessageBoxDefaultButton.Button2)?=?Windows.Forms.DialogResult.Cancel?Then
e.Cancel?=?True
Else
e.Cancel?=?False
End?If
End?Sub
this.ControlBox?=?false//最小化、最大化、關(guān)閉按鈕全部消失
this.MinimizeBox?=?false//最小化按鈕消失
this.MaximizeBox?=?false//最大化按鈕消失
如果你只想隱藏關(guān)閉按鈕的話可以參考
我來解答一下吧。
假設(shè)LZ的四張圖片從左到右的文件名為1.jpg到4.jpg,存放在c:\img這個文件夾下
代碼如下:
Public Class Form1
Private Sub Pic1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Pic1.MouseDown
Pic1.Image = Image.FromFile(c:\img\2.jpg)
End Sub
Private Sub Pic1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Pic1.MouseEnter
Pic1.Image = Image.FromFile(c:\img\1.jpg)
End Sub
Private Sub Pic1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Pic1.MouseLeave
Pic1.Image = Image.FromFile(c:\img\3.jpg)
End Sub
Private Sub Pic1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Pic1.MouseUp
Pic1.Image = Image.FromFile(c:\img\1.jpg)
End Sub
End Class
按這個思路看看吧,做最小化沒什么問題