Disable the X for Closing a Userform : Windows Resources « Windows API « VBA / Excel / Access / Word

VBA / Excel / Access / Word
3.Data Type
4.Data Type Functions
5.Date Functions
7.File Path
9.Language Basics
10.Math Functions
13.String Functions
14.Windows API
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Windows API » Windows Resources 
Disable the X for Closing a Userform
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As StringAs Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As LongAs Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As LongAs Long
Private Const SC_CLOSE As Long = &HF060
Private Sub Main()
    Dim hWndForm As Long
    Dim hMenu As Long
    hWndForm = FindWindow("ThunderDFrame""title")  'XL2000
    hMenu = GetSystemMenu(hWndForm, 0)
    DeleteMenu hMenu, SC_CLOSE, 0&
End Sub
Playing Sounds
Public Declare Function PlayWavSound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal LpszSoundName As String, ByVal uFlags As LongAs Long
Public Sub PlaySound()
    Dim SoundName As String
    SoundName = "C:\s.wav"
    PlayWavSound SoundName, 0

End Sub

Related examples in the same category
1.Clipping and Unclipping the Cursor
2.The FindWindow() function finds the first top-level window in the window list that satisfies the specified arguments.
3.Check Whether an Excel File Is Open on a Network
4.Custom About Dialog
5.Check mouse button
6.Returns the Windows directory
7.Get execuatable file name from a given file name
8.Get screen width and height
9.Get window's rectangle
10.Find window by class name
11.Show Excel Window Size
12.Get color depth
13.Get DC and release it
14.Get user name
15.Get the computer name
16.Freeze a window
17.Change the Excel icon
java2s.com  |  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.