?? 20815.html
字號:
<html> <head> <title>Re: 表單之BorderStyle=2(大小可調整),MaxButton=False時如何使表單不可調整大小?</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 表單之BorderStyle=2(大小可調整),MaxButton=False時如何使表單不可調整大小?</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:kuotsani@tpts4.seed.net.tw">Mouse</a> on October 30, 1999 at 00:27:49:<p>In Reply to: <a href="20763.html">表單之BorderStyle=2(大小可調整),MaxButton=False時如何使表單不可調整大小?</a> posted by 初學者 on October 29, 1999 at 10:23:36:<p>hMenu = GetSystemMenu(Me.hwnd, 0)<br>'設定大小不可使用<br>MII.cbSize = Len(MII)<br>MII.dwTypeData = String(80, 0)<br>MII.cch = Len(MII.dwTypeData)<br>MII.fMask = MIIM_STATE<br>MII.wID = SC_SIZE<br>GetMenuItemInfo hMenu, SC_SIZE, False, MII<br>MII.wID = 12&<br>MII.fMask = MIIM_ID<br>SetMenuItemInfo hMenu, SC_SIZE, False, MII<br>MII.fState = MII.fState Or MFS_GRAYED<br>MII.fMask = MIIM_STATE<br>SetMenuItemInfo hMenu, MII.wID, False, MII<br>SendMessage Me.hwnd, WM_NCACTIVATE, True, ByVal 0&<p><br>Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long<br>Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO) As Long<br>Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long<br>Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20815--></ul><!--end: 20815--><br><hr size=7 width=75%><p></body></html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -