DISSECANDO UMA API
Fuça aqui, fuça ali... acabei encontrando esta página: http://www.allapi.net/agnet/apiguide.shtml de onde fiz o download do API GUIDE.
Resumo: E X C E L E N T E!
Não perca a oportunidade de baixar.
Há, no entanto, um porém: a biblioteca é ótima e os exemplos são claros e funcionais MAS, eu queria saber mais.
Tomemos, por o exemplo abaixo (serve para setar o ControlBox de um Form):
_______________________________________________________________________
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
_______________________________________________________________________
Alguém tem uma dica para compreender melhor os parà ¢metros? (brincando com a rotina, acrescentando duas linhas com -3, -4, por exemplo, fica bloqueada a maximização e a minimização - mas é inconstante não é exato)
Eu gostaria de estudar cada parà ¢metro - cada função.
Desde já agradeço a colaboração.
Resumo: E X C E L E N T E!
Não perca a oportunidade de baixar.
Há, no entanto, um porém: a biblioteca é ótima e os exemplos são claros e funcionais MAS, eu queria saber mais.
Tomemos, por o exemplo abaixo (serve para setar o ControlBox de um Form):
_______________________________________________________________________
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)
If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub_______________________________________________________________________
Alguém tem uma dica para compreender melhor os parà ¢metros? (brincando com a rotina, acrescentando duas linhas com -3, -4, por exemplo, fica bloqueada a maximização e a minimização - mas é inconstante não é exato)
Eu gostaria de estudar cada parà ¢metro - cada função.
Desde já agradeço a colaboração.
Cara, se vc observar no API Guide tem uma guia com as explicações (Em inglês) sobre os parametros da API
Tópico encerrado , respostas não são mais permitidas