Home › C_Volume2 › _Disable X button on form
Advertisement
C_Volume2 Custom Controls/ Forms/ Menus #68096

_Disable X button on form

Petko Petkov
★★★★★
4.8 · Downloads: 2,341

_Disable X button on form

AI

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code
original-source 
<font color="#000099">Private Declare Function</font><font color="#FFFFFF"> </font>GetSystemMenu<font color="#000099"> 
Lib</font> &quot;user32&quot; (<font color="#000099">ByVal</font> hwnd <font color="#000099">As 
Long</font>, <font color="#000099">ByVal </font>bRevert<font color="#000099"> 
As Long</font>) <font color="#000099">As Long</font><br>
<font color="#000099">Private Declare Function </font>GetMenuItemCount<font color="#000099"> 
Lib </font>&quot;user32&quot; (ByVal hMenu As Long) <font color="#000099">As Long</font><br>
<font color="#000099">Private Declare Function </font>RemoveMenu <font color="#000099">Lib 
</font>&quot;user32&quot; (<font color="#000099">ByVal</font> hMenu <font color="#000099">As 
Long</font>, <font color="#000099">ByVal</font> nPosition <font color="#000099">As 
Long</font>, <font color="#000099">ByVal</font> wFlags <font color="#000099">As 
Long</font>) <font color="#000099">As Long</font><br>
<font color="#000099">Private Declare Function </font>DrawMenuBar <font color="#000099">Lib</font> 
&quot;user32&quot; (<font color="#000099">ByVal </font>hwnd <font color="#000099">As 
Long</font>) <font color="#000099">As Long</font><br>
<font color="#000099">Private Const </font>MF_BYPOSITION = &amp;H400&amp;<br>
<font color="#000099">Private Const</font> MF_DISABLED = &amp;H2&amp; 
<p><font color="#000099">Public Sub</font> DisableX(Frm <font color="#000099">As</font> 
 Form)<br>
 <font color="#000099">Dim</font> hMenu <font color="#000099">As Long</font><br>
 <font color="#000099">Dim</font> nCount <font color="#000099">As Long</font><br>
 &nbsp;&nbsp;hMenu = GetSystemMenu(Frm.hwnd, 0)<br>
 &nbsp;&nbsp;nCount = GetMenuItemCount(hMenu)<br>
 <font color="#000099">&nbsp;&nbsp;Call </font>RemoveMenu(hMenu, nCount - 1, 
 MF_DISABLED Or MF_BYPOSITION)<br>
 &nbsp;&nbsp;DrawMenuBar Frm.hwnd<br>
 <font color="#000099">End Sub</font></p>
<p><font color="#000099">Private Sub</font><font color="#006699"> </font>Command1_Click()<br>
 &nbsp;&nbsp;DisableX Me<br>
 <font color="#000099">End Sub</font></p>
Original Comments (3)
Recovered from Wayback Machine