Results 1 to 13 of 13

Thread: Minimize Button

  1. #1

    Thread Starter
    Fanatic Member
    Join Date
    Sep 1999
    Location
    Santo Domingo,D.N., Dom. Rep.
    Posts
    707

    Talking Minimize Button

    It does not matter what you call from a main menu(APP, etc.), the minimize button MUST be enabled=false.

    Does anyone know an API? or how?

  2. #2
    PowerPoster rjlohan's Avatar
    Join Date
    Sep 2001
    Location
    Sydney, Australia
    Posts
    3,205
    So, are you trying to prevent the minimising of a form beyond just setting its minimise button to false?
    -----------------------------------------
    -RJ
    [email protected]
    -----------------------------------------

  3. #3
    Frenzied Member Motoxpro's Avatar
    Join Date
    Sep 2001
    Location
    Spiro, OK
    Posts
    1,211
    so you dont want the minimize button

  4. #4

    Thread Starter
    Fanatic Member
    Join Date
    Sep 1999
    Location
    Santo Domingo,D.N., Dom. Rep.
    Posts
    707

    Talking MINI Button

    Originally posted by rjlohan
    So, are you trying to prevent the minimising of a form beyond just setting its minimise button to false?
    Not of a FORM, of an APP, i.e: OutLook, etc

  5. #5

    Thread Starter
    Fanatic Member
    Join Date
    Sep 1999
    Location
    Santo Domingo,D.N., Dom. Rep.
    Posts
    707
    Originally posted by Motoxpro
    so you dont want the minimize button
    Not my friend not of a FORM, of an APP, i.e: OutLook, etc

  6. #6
    Frenzied Member Motoxpro's Avatar
    Join Date
    Sep 2001
    Location
    Spiro, OK
    Posts
    1,211
    Originally posted by Luis Moises Rojas


    Not my friend not of a FORM, of an APP, i.e: OutLook, etc
    why you post it 2 times?

  7. #7
    Frenzied Member JungleMan's Avatar
    Join Date
    Feb 2001
    Posts
    2,033
    Originally posted by Motoxpro

    why you post it 2 times?
    Server error, O Great King Spam.
    I'm bringing geeky back...

  8. #8
    Frenzied Member Motoxpro's Avatar
    Join Date
    Sep 2001
    Location
    Spiro, OK
    Posts
    1,211
    no he quoted him and me and said the same thing

  9. #9
    PowerPoster MidgetsBro's Avatar
    Join Date
    Oct 2000
    Location
    Apparently, Internet.com
    Posts
    3,125
    What's he saying in English? He wants to disable the Minimize button in Outlook?
    <removed by admin>

  10. #10

    Thread Starter
    Fanatic Member
    Join Date
    Sep 1999
    Location
    Santo Domingo,D.N., Dom. Rep.
    Posts
    707
    Originally posted by MidgetsBro
    What's he saying in English? He wants to disable the Minimize button in Outlook?
    Not my friend. If from your APP you call OUTLOOK, the minimize button must be enabled=false, but if you call Word, the minimize button must be enabled=false, and so on..

  11. #11
    PowerPoster MidgetsBro's Avatar
    Join Date
    Oct 2000
    Location
    Apparently, Internet.com
    Posts
    3,125
    So you want to call Microsoft Outlook from your application, and once you do, you disable the minimize button in your application. Same with any of the other programs you mentioned. Is this correct?
    <removed by admin>

  12. #12

    Thread Starter
    Fanatic Member
    Join Date
    Sep 1999
    Location
    Santo Domingo,D.N., Dom. Rep.
    Posts
    707
    Originally posted by MidgetsBro
    So you want to call Microsoft Outlook from your application, and once you do, you disable the minimize button in your application. Same with any of the other programs you mentioned. Is this correct?
    YES SIR

  13. #13
    PowerPoster MidgetsBro's Avatar
    Join Date
    Oct 2000
    Location
    Apparently, Internet.com
    Posts
    3,125
    You can use Serge's code he posted in your other thread. Just use it like this:
    VB Code:
    1. 'By Serge 8/14/2001
    2. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    3. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    4. Private Const GWL_STYLE = (-16)
    5. Private Const WS_MINIMIZEBOX = &H20000
    6.  
    7. Private Sub Command1_Click()
    8.     Dim lngStyle As Long
    9.     'open your program here
    10.     lngStyle = GetWindowLong(Me.hwnd, GWL_STYLE) 'find your own app
    11.     lngStyle = lngStyle Xor WS_MINIMIZEBOX 'set the style (disabled minimize)
    12.     Call SetWindowLong(Me.hwnd, GWL_STYLE, lngStyle) 'disable it
    13.    
    14. End Sub
    <removed by admin>

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width