Fiksiranje MDI parent obrasca

[ gotivac @ 31.05.2005. 19:02 ] @

Postoji li nacin (odnosno, znam da postoji, posto sam video takvu aplikaciju) da se disejbluje Maximize button na MDI parent obrascu?

Znaci, sta mi treba, treba mi da mi MDI parent obrazac UVEK bude dimenzija 800x600 i da korisnici ne mogu da ga povecaju niti smanje, osim da ga minimizuju u task bar. Dakle, da mu ne mogu promeniti velicinu, a da pri tome ostanu enable-ovani Close i Minimize to taskbar buttoni.

[ nsofft @ 31.05.2005. 21:14 ] @

Postavi:
BorderStyle na (fixed single)
MaxButon na (false)
MinButon na (true)

[ gotivac @ 31.05.2005. 23:21 ] @

Sve bi tobilo lepo kad bi MDI obrazac imao ova tri property-ja.

Ali nema. :(

[ nsofft @ 01.06.2005. 12:26 ] @

Moja greska nisam opazijo:

Citat:

na MDI parent

Nikad nisam pokusavao u MID obrazcu ali cu sad
da probam pa ako uspem javicu ti

[ Marko_L @ 01.06.2005. 17:11 ] @

Moraćeš da koristiš API.Sledeći kod će uraditi ono što tražiš:

Code:
Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Const GWL_STYLE = (-16)
Const WS_THICKFRAME = &H40000
Const WS_MAXIMIZEBOX = &H10000

Private Sub MDIForm_Load()
Dim CurStyle As Long
Dim NewStyle As Long

CurStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
CurStyle = CurStyle And Not (WS_MAXIMIZEBOX)
CurStyle = CurStyle And Not (WS_THICKFRAME)

NewStyle = SetWindowLong(Me.hwnd, GWL_STYLE, CurStyle)
End Sub

[ mladenovicz @ 01.06.2005. 17:20 ] @

S tim sto treba disableovati sistemski meni Maximize (right click na app u taskbaru ili klik na gornji levi cosak forme)

[ Marko_L @ 01.06.2005. 18:34 ] @

Vidiš, o tome nisam razmišljao :)
Elem, sad mi pade na pamet kako to može da se reši, doduše na indijanski način

Code:
Private Sub MDIForm_Resize()
If Me.WindowState = vbMaximized Then Me.WindowState = vbNormal
End Sub

[ mladenovicz @ 01.06.2005. 18:56 ] @

to ne bi trebalo da je problem. Cini mi se da je na forumu bilo pitanje o disableovanju Close buttona na formi. taj kod je disableovao i menu item. Ako nema na forumu ima na netu na milion mesta. Samo treba konstantu za close button zameniti sa konstantom za maximize.

[ Marko_L @ 01.06.2005. 20:01 ] @

Evo ga
http://www.elitesecurity.org/poruka/471517

[ gotivac @ 02.06.2005. 16:17 ] @

Hvala vam svima!

Ali ovaj je najbolji za zajebavanje korisnika:

Code:

Private Sub MDIForm_Resize()
If Me.WindowState = vbMaximized Then Me.WindowState = vbNormal
End Sub