Api

[fungo]

Ciao gente, ho un problemino.


Stò sviluppando un programma con una form MDI, al contrario delle form normali che posso eliminare le iconcine chiudi ingrandisci riduci, sulla form MDI non posso.

Nel forum ho trovato argomenti che parlavano di usare le API per risolvere questo problema, qualcuno mi può dare spiegazioni o dove trovare materiale?

Grazie

[giuSp]

...la funzione (mettila in un modulo)!

private Declare Function GetSystemMenu Lib "user32" _
   (ByVal hwnd As Integer, ByVal bRevert _
   As Integer) As Integer

Private Declare Function RemoveMenu Lib "user32" _
   (ByVal hMenu As Integer, ByVal nPosition _
   As Integer, ByVal wFlags As Integer) As Integer
Const MF_BYPOSITION = &H400

public function removeXmenu(frm as form)
     Dim hMenu as long
     hMenu = GetSystemMenu(frm.hwnd, 0)
     removeXmenu = RemoveMenu(s, 6, MF_BYPOSITION)
End function

chiama la funzione nell'evento load del form child
in questo modo...

dim retVal as long
retVal=removeXMenu(me)

'if retval=0 then tutto OK

ciao

[fungo]

Mi va in overflow

Public Function removeXmenu(frm As Form)
Dim hMenu As Long
-> hMenu = GetSystemMenu(frm.hwnd, 0)
removeXmenu = RemoveMenu(s, 6, MF_BYPOSITION)
End Function


Premetto che l'iconcina e quella della finestra madre non dei figli

Grazie

[Gigi84]

così a occhio..
non è che le funzioni delle librerie sono long?
(..probabilmente ho detto una c@##@ta..:gren: xò nn si sa mai..)

[fungo]

Esatto, ho guerdato la funzione declare con un vieapi il nostro amico giuSp ha fatto un copia incolla dal sito visual-basic.it cmq, anche cambiando da integer a long non ottengo quello che voglio.


Grazie