home bbs files messages ]

Forums before death by AOL, social media and spammers... "We can't have nice things"

   comp.lang.visual.basic      MS Visual Basic discussions, NOT dot-net      10,840 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 9,604 of 10,840   
   Steve Gerrard to schmendrick   
   Re: Double Clicking on Title Bar   
   01 Jul 05 18:33:48   
   
   From: mynamehere@comcast.net   
      
   "schmendrick"  wrote in message   
   news:SYcxe.29204$IL3.6453@tornado.ohiordc.rr.com...   
   >   
   >   
   > Dikkie Dik wrote:   
   >> schmendrick wrote:   
   >>   
   >>> Does anyone know how to disable the dbl click on the title bar?   
   >>>   
   >>> Thanks!   
   >>> David   
   >>   
   >> Do you need the titlebar? In a full-screen window, I can imagine you want to   
   >> drop it altogether. You should be able to do that with just form properties.   
   >>   
   >> Best regards   
   > Well, here's the weird thing about that... When I set it to full screen, the   
   > status bar at the bottom is hidden by the taskbar.  not a big deal, i can   
   > handle that... BUT If I remove the title bar and run the app full screen, it   
   > covers the taskbar, and I need that showing.   
      
   Try the handy and overlooked Microsoft SysInfo Control 6.0. It gives you the   
   work area of the desktop, and an event if it changes. Without a border, you   
   need   
   some way to close the form, so I used a button.   
      
   Option Explicit   
      
   Private Sub Form_Load()   
       'set to no border   
       Me.BorderStyle = 0   
       'set initial size   
       SetSize   
   End Sub   
      
   Private Sub Command1_Click()   
       'no control box, so have something   
       Unload Me   
   End Sub   
      
   Private Sub SysInfo1_DisplayChanged()   
       'reset size if display changes   
       SetSize   
   End Sub   
      
   Private Sub SetSize()   
       'set size to system work area   
       With SysInfo1   
           Me.Move .WorkAreaLeft,  .WorkAreaTop, _   
                   .WorkAreaWidth, .WorkAreaHeight   
       End With   
   End Sub   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca