PDA

Visualizza la versione completa : Api


fungo
26-07-2002, 12:01
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
26-07-2002, 12:10
...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:ciauz: :ciauz:

fungo
26-07-2002, 12:21
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
26-07-2002, 12:44
cos a occhio..
non che le funzioni delle librerie sono long?
(..probabilmente ho detto una c@##@ta..:gren: x nn si sa mai..)


:ciauz: :ciauz:

fungo
26-07-2002, 14:52
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

Loading