🚀 go-pugleaf

> 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

Niestety to jest troche zbyt prowizoryczne... :(

1. Brutalnie widac, jak okno się maxymalizuje, by dopiero po chwili nabrac
wlasciwych ksztaltow - i chyba nie da sie tego zmienic.

2. Okno nie jest "przyklejone" do gornej czesci ekranu - mozna nim ruszac.

3. Zostaje przycisk "Maximize" zamiast "Normal" (czy jak go tam nazwac :)))

Ale dzieki za propozycje!

Moze jakis inny pomysl... z wykozystaniem wbudowanych funkcji dll - a?

Wrzek

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 |
 \___________________________________________________________________/

On 18 Nov 1997 16:32:22 GMT, "Wawrzyniec Chróścicki"
<wrzek@panda.bg.univ.gda.pl> wrote:

[...]
>Niestety to jest troche zbyt prowizoryczne... :(
>
>1. Brutalnie widac, jak okno się maxymalizuje, by dopiero po chwili nabrac
>wlasciwych ksztaltow - i chyba nie da sie tego zmienic.

Podejrzewam, ze VB nie byl pisany w VB :-) Musialbys chyba przechwytywac
komunikaty, a z VB to w najlepszym razie ciezko.

>2. Okno nie jest "przyklejone" do gornej czesci ekranu - mozna nim ruszac.

To dolacz jeszcze obsluge Move, czy jak to sie nazywa. Jest chyba takie
zdarzenie. Moze nawet to tez jest Resize.

>
>3. Zostaje przycisk "Maximize" zamiast "Normal" (czy jak go tam nazwac :)))
>
>Ale dzieki za propozycje!
>
>Moze jakis inny pomysl... z wykozystaniem wbudowanych funkcji dll - a?
>
>Wrzek

		Pawel Pluta


I niechaj mowa wasza bedzie 1, 1, 0, 0.
         A wszystko co wiecej jest, ode zlego jest.

> 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? 

Nie wiem, czy kogoś to interesuje prócz mnie, ale może dla zaspokojenia
ciekawości napiszę jak sobie poradziem.
Jest to rónież prowizoryczne rozwiązanie, ale z 3 problemów aż 2 są
rozwiązane. Pozostaje tylko "mignięcie" okna przy maxymalizowaniu.

Dzięki wszystkim za sugestie!

    Wrzek


Form1_Form_Resize()
-------------------

Dim i As Boolean
  
If Me.WindowState = 2 Then
  
  i = SetWindowPos(Me.hWnd, 0, 0, 0, 800, 80, 0)
  If i = 0 Then MsgBox ("Błąd!")
  
End If
    
End Sub


Module1_General_Declaration
---------------------------

Declare Function SetWindowPos Lib "User32.dll" (ByVal hWnd As Integer, 
                                                ByVal hwndInsertAfter As
Integer, 
                                                ByVal X As Integer, ByVal Y
As Integer, 
                                                ByVal cx As Integer, 
                                                ByVal cy As Integer, 
                                                ByVal fuFlags As Integer)
As Boolean