🚀 go-pugleaf

Wawrzyniec Chróścicki wrote:
> 
> Hi!
> 
> Czy ktos ma pomysl, jak moznaby zrobic taka formatke, ktora po nacisnieciu
> klawisza Maximize "podklejala" sie pod gore ekranu, ale miala wysokosc
> tylko
> kilku centymetrow?
> Chodzi mi o taki efekt, jak np. jest w samym VB - glowne okno zawiera tylko
> menu i ikonki i nie "rozsowa" sie na caly ekran.
> 
> Z gory dzieki!
> 
>         Wrzek
> 
> wrzek@panda.bg.univ.gda.pl

Zadeklaruj Okno (Form) z obrzezem typu Sizable

Wpisz w Form_Resize()

    Select Case Me.WindowState
        Case 2  ' Maximized
            Me.WindowState = 0
            Me.Top = 0
            Me.Left = 0
            Me.Width = Screen.Width
            Me.Height = X '(X =wysokosc okna w twip-ach)
        Case Else ' Normal or Minimized
            ' A tu wpisz co ma byc gdy zminimalizujesz
            ' okno (moze nic nie byc)
    End Select

Powyzsze przechwytuje moment maksymalizacji okna i "przerabia" je z
powrotem na normalne zmieniajac jednoczesnie jego rozmiary i
umieszczajac je na gorze ekranu - czyli to co chciales. Jednak ta
procedurka nie pozwoli Ci nigdy na maksymalizacje okna.

Pozdrowka.
Artur.
-- 
  _ | _______________________________________________________________
 / -+-_  ___  ___  _  _ _  ___  ___                                  \ 
|   |/ || _ \/ __)| || \ |/   \| __) Artur Jarkiewicz                 |
|   /_ ||   /\__ \| ||   || | || __) mailto:ajark@meil.pw.edu.pl      |
|  /___||_\_\(___/|_||_\_|\___/|___) http://www.meil.pw.edu.pl/~ajark |
 \___________________________________________________________________/