Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

請問VB6中要如何取消右上角的X

0 views
Skip to first unread message

がんたまでぃ エホバ

unread,
Nov 4, 2002, 4:23:14 AM11/4/02
to

Visual Basic 6.0
我想要讓程式在執行中時不能隨便關閉
所以想讓右上方關閉視窗的 X 無法使用

我只找到取消最大最小及移動的選項
請問要如何取消那個 X

--
-== 蘊展無限時空 ◇ star.twbbs.org ==-

がんたまでぃ エホバ

unread,
Nov 5, 2002, 9:15:35 PM11/5/02
to
※ 引述《maskts...@bbs.mgt.ncu.edu.tw (哈日休閒Levi's)》之銘言：
: ==> jube...@star.ee.ttu.edu.tw (がんたまでぃ エホバ) 提到:
: : Visual Basic 6.0

: : 我想要讓程式在執行中時不能隨便關閉
: : 所以想讓右上方關閉視窗的 X 無法使用
: : 我只找到取消最大最小及移動的選項
: : 請問要如何取消那個 X
: Form1屬性中的ControlBox 設為 False......
可是那會全都消失
能不能只有 X 不能用
其他兩個還可用

哈日休閒Levi's

unread,
Nov 6, 2002, 7:32:05 AM11/6/02
to
==> masktsai (哈日休閒Levi's) 提到:

: ==> jube...@star.ee.ttu.edu.tw (がんたまでぃ エホバ) 提到:
: : 可是那會全都消失
: : 能不能只有 X 不能用
: : 其他兩個還可用
: form1屬性的maxbuttom,minbuttom都設為false...
: controlbox設為true......

Sorry...剛剛的回答錯了...看錯了問題.....正確source code應該如下

Private Declare Function GetSystemMenu Lib "user32" _
Alias "GetSystemMenu" (ByVal hwnd As Long, _
ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "user32" _
Alias "RemoveMenu" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400

Private Sub Form_Load()
Dim SystemMenu As Long
Dim RES As Long
SystemMenu = GetSystemMenu(hwnd, 0)
RES = RemoveMenu(SystemMenu, 5, MF_BYPOSITION)
RES = RemoveMenu(SystemMenu, 5, MF_BYPOSITION)
End Sub

--

有很多簡單的VB小程式,還有RS-232,RJ-45...等
傳輸的問題與程式
http://mail.ht.net.tw/~maskh
請幫我多家點人氣


--
◎ [1;31m龍 [32m貓 [33m資 [34m訊 [35m天 [36m地 [0m( [1mbbs.mgt.ncu.edu.tw [0m)
◎[ [1;33;46mmasktsai [0m]From: sw107-221.adsl.seed.net.tw

0 new messages