this.ControlBox?=?false//最小化、最大化、關閉按鈕全部消失
創(chuàng)新互聯(lián)建站專注于播州網(wǎng)站建設服務及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供播州營銷型網(wǎng)站建設,播州網(wǎng)站制作、播州網(wǎng)頁設計、播州網(wǎng)站官網(wǎng)定制、小程序制作服務,打造播州網(wǎng)絡公司原創(chuàng)品牌,更為您提供播州網(wǎng)站排名全網(wǎng)營銷落地服務。
this.MinimizeBox?=?false//最小化按鈕消失
this.MaximizeBox?=?false//最大化按鈕消失
如果你只想隱藏關閉按鈕的話可以參考
如果用戶單擊 Cancel(取消),則InputBox函數(shù)返回一個長度為零的字符串 (""),可以根zhidao據(jù)這個情況進行判斷,如果BH="",則用戶按內(nèi)了“取消容”鍵,但如果用戶把輸入的內(nèi)容清空,這時按“確定”和按“取消”一樣,都返回一個長度為的字符串。
問題補充:我用VB.NET寫的,F(xiàn)ORM2用來實現(xiàn)數(shù)據(jù)采樣并顯示實時曲線,關閉后再'取消FORM2的關閉 這樣就把FORM2隱藏起來了,需要調(diào)出來的時候只需以下代碼
設置ControlBox為False是可以的,不過全部按鈕都會消失(包括最小化,最大化)
用API可以單獨把關閉按鈕干掉……
'VB.NET Code
Public Class Form1
Private Declare Function GetSystemMenu Lib "User32 " (ByVal hwnd As Integer, ByVal bRevert As Long) As Integer
Private Declare Function RemoveMenu Lib "User32 " (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
Private Declare Function DrawMenuBar Lib "User32 " (ByVal hwnd As Integer) As Integer
Private Declare Function GetMenuItemCount Lib "User32 " (ByVal hMenu As Integer) As Integer
Private Const MF_BYPOSITION = H400
Private Const MF_DISABLED = H2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim hMenu As Integer, nCount As Integer
hMenu = GetSystemMenu(Me.Handle.ToInt32, 0)
nCount = GetMenuItemCount(hMenu)
'Debug.Print(nCount)
Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
DrawMenuBar(Me.Handle.ToInt32)
End Sub
End Class
'VB6 code =============================================================
Private Declare Function GetSystemMenu Lib "User32 " (ByVal hwnd As Long, ByVal bRevert As Long) As Integer
Private Declare Function RemoveMenu Lib "User32 " (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "User32 " (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "User32 " (ByVal hMenu As Long) As Long
Private Const MF_BYPOSITION = H400
Private Const MF_DISABLED = H2
Private Sub Form1_Load()
Dim hMenu As Long, nCount As Long
hMenu = GetSystemMenu(Me.hWnd, 0)
nCount = GetMenuItemCount(hMenu)
'Debug.Print nCount
Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
DrawMenuBar Me.hWnd
End Sub
Private?Sub?Form2_FormClosed(sender?As?Object,?e?As?FormClosedEventArgs)?Handles?Me.FormClosed
End????'退出后關閉軟件
End?Sub
'點擊關閉按鈕時彈出對話框判斷是否退出
Private?Sub?Form2_FormClosing(sender?As?Object,?e?As?FormClosingEventArgs)?Handles?Me.FormClosing
'經(jīng)典判斷關閉法
If?MessageBox.Show("是否退出?",?"確認",?MessageBoxButtons.OKCancel,?MessageBoxIcon.Question,
MessageBoxDefaultButton.Button2)?=?Windows.Forms.DialogResult.Cancel?Then
e.Cancel?=?True
Else
e.Cancel?=?False
End?If
End?Sub
把窗體的ControlBox 屬性設為False
點關閉就是卸載窗體,如果程序只有一個窗體自動結束
退出當前窗體(精確到實例):Unload Me
退出程序:End
網(wǎng)站題目:vb.net取消關閉按鈕,vb取消按鈕代碼
文章出自:http://m.kartarina.com/article2/hddhic.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供標簽優(yōu)化、外貿(mào)網(wǎng)站建設、軟件開發(fā)、域名注冊、網(wǎng)站收錄、企業(yè)網(wǎng)站制作
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)