Keskustelu: Ohjelmointikysymykset: VB6: MDI Form

Miten saan ControlBox:it poistettua MDI Formista,ei onnistu Properties-valikosta niin kuin tavallisessa formissa,olisiko joku controlbox.visible = false ,ei kyllä toiminut

? Mikä controlbox? höh.
BorderStyle = 0 - none ? tarkotatko... en tajua mitä höpiset... mikä se semmonen MDI formi on... mulla on tollanen opetus versio joka ei ole kokoversio.

ControlBox on yhtäkuin ruksipainike josta ikkuna suljetaan. MDIForm:lla sekä muilla formeilla toimii tällainen koodi (testattu VB6:lla MDIForm:lla ja Form:lla):

Moduuliin lisättävät rivit
--------------------------

Public Const MF_BYPOSITION = &H400

Declare Function GetSystemMenu Lib "User32" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer

Formiin (esim _Load eventtiin
------------------------------

SystemMenu% = GetSystemMenu(hWnd, 0)
Res% = RemoveMenu(SystemMenu%, 6, MF_BYPOSITION)

---
Tero Pietilä - http://trinitforums.cjb.net

trinit ei toiminut !! Debug ilmoitti että OVERFLOW !!!!

Nuo määrittelyt taitavat olla Visual Basic 3.0:lle, sillä nykyään fuktioiden tyyppi on Long Integerin sijasta. Eli vaihda määrittelyt muotoon:

Public Declare Function GetSystemmenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" Alias "RemoveMenu" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Ja korvaa muuttujien %-merkit &-merkeillä.

Kyllä nuo minulla toimivat kun käytössä on Visual Basic 6.0 johon on asennettu Service Pack 5. En kylläkään muista mistä esimerkin aikanaan löysin joten se voi olla vanhakin esimerkki.

trinit: ControlBoxiin kuuluu muutakin kuin se ruksipainike, eli ne pienennnyspainikkeet.

pienennyspainikkeet? Eihän niitä ole kuin 1... ?

TuLe: Olet oikeassa, siihen kuuluvat tosiaan pienennyspainike, suurennospainike sekä sulkupainike.