Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3
Default Hide minimise, maximise, and close buttons on form

Is there any way of hiding these buttons on the top right hand corner of a form. The program in question is a COM addin for Excel.
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1,080
Default Hide minimise, maximise, and close buttons on form

UserForms don't have minimoze or maximize buttons. The Close button can be
disabled. Or are you referring to a different kind of form?

--

Vasant


"Gordon Garnsey" wrote in message
...
Is there any way of hiding these buttons on the top right hand corner of a

form. The program in question is a COM addin for Excel.


  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3
Default Hide minimise, maximise, and close buttons on form

I understood they were userforms but what types are there. In the Project window of the
IDE we have Forms, Modules, and Class modules.
My forms are usually of the modeless type
I am currently disabling the X button but wish to get rid of the three of them because
they are untidy, create confusion, and are not used
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3
Default Hide minimise, maximise, and close buttons on form


The following shows how the form is set up. Ring any bells

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String,
ByVal lpWindowName As String) As Lon

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Lon

Public Sub SetParentToExcel(
Level = Level + 1: StackString = StackString & "(ChartSelectorMenu:SetParentToExcel)": Debug.Print CStr(Level) & StackStrin
Dim XLHWnd As Lon
Dim MeHWnd As Lon
On Error Resume Nex
XLHWnd = FindWindow("XLMAIN", App.Caption
MeHWnd = FindWindow("ThunderRT6DFrame", Me.Caption
SetParent MeHWnd, XLHWn
Level = Level - 1: StackString = Mid(StackString, 1, InStrRev(StackString, "(", -1, 1) - 1): Debug.Print CStr(Level) & StackStrin
End Sub
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How to Hide Form and Command Buttons until such condition is true? ash3154 Excel Discussion (Misc queries) 0 September 2nd 09 12:37 AM
I have lost the minimise and maximise buttons on my worksheet Annemarie Excel Discussion (Misc queries) 3 February 3rd 06 05:25 PM
Disabling Minimise/Restore Down buttons Scampa7[_2_] Excel Programming 1 October 25th 03 07:05 PM
Close, Minimise & Maximise Buttons Alan[_15_] Excel Programming 1 September 24th 03 01:31 PM
Minimise Maximise Problem Gordon Cartwright Excel Programming 3 August 8th 03 04:13 PM


All times are GMT +1. The time now is 11:56 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"