|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : Cherche API... [ Archives Visual Basic / API ] (SuperNoizo)
 Informations & options pour cette discussion
dimanche 23 juin 2002 à 16:36:38 |
Cherche API...
SuperNoizo
|
Boujour à tous, Je cherche un API qui me permetterais de mettre en gris la croix en haut à droite comme dans une boîte de message(msgbox). Merci
|
|
|
dimanche 23 juin 2002 à 18:49:31 |
Re : Cherche API...
Seb_d_angers
|
J'ai trouver ce qu'il te faut sur l'excellent site
http://docvb.free.fr/api.php
---------------------------------------------------------
Fonction DeleteMenu
Declare Function DeleteMenu Lib "user32" Alias "DeleteMenu" ( _
ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Versions :
. Windows 95/98 : Oui
. Windows NT : A partir de 3.1
. Windows 2000/XP : Oui
Description :
Permet de supprimer un élément de menu.
hMenu est le handle du menu à manipuler.
nPosition est la position du menu (ou sous-menu) qui sera supprimé.
wFlags est la méthode de repérage utilisée : MF_BYCOMMAND ou MF_BYPOSITION.
Exemple d'utilisation :
' Origine : fred - chapeaux.ronds@wanadoo.fr
' Le code qui suis permet de désactiver les boutons "X", "min", "max".
' Créer un nouveau projet vb et coller le code suivant dans
' "déclaration" puis essayer les trois boutons les uns après les autres
' (pour cela enlever l'apostrophe devant "no_min" et "no_max").
Option Explicit
Private Declare Function DeleteMenu Lib "user32" (ByVal _
hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal _
hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const MF_BYCOMMAND = &H0&
Private Const MF_BYPOSITION = &H400
Private Const SC_MINIMIZE = &HF020
Private Const SC_MAXIMIZE = &HF030
Private Const SC_CLOSE = 6
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Sub no_x()
' Désactiver X
Dim hMenu As Long, k As Long
hMenu = GetSystemMenu(hwnd, False)
k = DeleteMenu(hMenu, SC_CLOSE, MF_BYPOSITION)
End Sub
Private Sub no_min()
' Désactiver 'minimiser'
Dim hMenu As Long, k As Long
hMenu = GetSystemMenu(hwnd, False)
k = DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND)
k = GetWindowLong(hwnd, GWL_STYLE)
k = k Xor WS_MINIMIZEBOX
SetWindowLong hwnd, GWL_STYLE, k
End Sub
Private Sub no_max()
' Désactiver 'maximiser'
Dim hMenu As Long, k As Long
hMenu = GetSystemMenu(hwnd, False)
k = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
k = GetWindowLong(hwnd, GWL_STYLE)
k = k Xor WS_MAXIMIZEBOX
SetWindowLong hwnd, GWL_STYLE, k
End Sub
Private Sub Form_Load()
no_x
' no_min
' no_max
End Sub
*********************************
J'espère t'avoir aider
A+
Seb
http://www.programmez.org
-------------------------------
Réponse au message :
-------------------------------
Boujour à tous,
Je cherche un API qui me permetterais de mettre en gris la croix en haut à droite comme dans une boîte de message(msgbox).
Merci
|
|
|
lundi 24 juin 2002 à 18:50:15 |
Re : Cherche API...
SuperNoizo
|
Merci beaucoup!!!
-------------------------------
Réponse au message :
-------------------------------
J'ai trouver ce qu'il te faut sur l'excellent site
http://docvb.free.fr/api.php
---------------------------------------------------------
Fonction DeleteMenu
Declare Function DeleteMenu Lib "user32" Alias "DeleteMenu" ( _
ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Versions :
. Windows 95/98 : Oui
. Windows NT : A partir de 3.1
. Windows 2000/XP : Oui
Description :
Permet de supprimer un élément de menu.
hMenu est le handle du menu à manipuler.
nPosition est la position du menu (ou sous-menu) qui sera supprimé.
wFlags est la méthode de repérage utilisée : MF_BYCOMMAND ou MF_BYPOSITION.
Exemple d'utilisation :
' Origine : fred - chapeaux.ronds@wanadoo.fr
' Le code qui suis permet de désactiver les boutons "X", "min", "max".
' Créer un nouveau projet vb et coller le code suivant dans
' "déclaration" puis essayer les trois boutons les uns après les autres
' (pour cela enlever l'apostrophe devant "no_min" et "no_max").
Option Explicit
Private Declare Function DeleteMenu Lib "user32" (ByVal _
hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal _
hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const MF_BYCOMMAND = &H0&
Private Const MF_BYPOSITION = &H400
Private Const SC_MINIMIZE = &HF020
Private Const SC_MAXIMIZE = &HF030
Private Const SC_CLOSE = 6
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Sub no_x()
' Désactiver X
Dim hMenu As Long, k As Long
hMenu = GetSystemMenu(hwnd, False)
k = DeleteMenu(hMenu, SC_CLOSE, MF_BYPOSITION)
End Sub
Private Sub no_min()
' Désactiver 'minimiser'
Dim hMenu As Long, k As Long
hMenu = GetSystemMenu(hwnd, False)
k = DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND)
k = GetWindowLong(hwnd, GWL_STYLE)
k = k Xor WS_MINIMIZEBOX
SetWindowLong hwnd, GWL_STYLE, k
End Sub
Private Sub no_max()
' Désactiver 'maximiser'
Dim hMenu As Long, k As Long
hMenu = GetSystemMenu(hwnd, False)
k = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
k = GetWindowLong(hwnd, GWL_STYLE)
k = k Xor WS_MAXIMIZEBOX
SetWindowLong hwnd, GWL_STYLE, k
End Sub
Private Sub Form_Load()
no_x
' no_min
' no_max
End Sub
*********************************
J'espère t'avoir aider
A+
Seb
http://www.programmez.org
-------------------------------
Réponse au message :
-------------------------------
Boujour à tous,
Je cherche un API qui me permetterais de mettre en gris la croix en haut à droite comme dans une boîte de message(msgbox).
Merci
|
|
|
Cette discussion est classé dans : cherche, api
 Répondre à ce message
 Sujets en rapport avec ce message
Utilisation API GetFileVersionInfo [ par webcyril ]
Je cherche un exemple d'utilisation de l'APIGetFileVersionInfo ou GetFileVersionInfoSize !!En fait, je cherche a récupérer le n° de version d'un fichi
Cherche code pour les API de PrivateProfile [ par WolfKiller ]
Bonjour,Je recherche du code pour les fonction API de Get et Write -PrivateProfile.Elles servent à lire et écrire dans les fichiers ini.Toute réponse
Aidez moi ! Je cherche une API... [ par zeeti ]
Salut,Je cherche une API pour envoyer du texte dans une case de type 'Text1.Text' qui se trouve dans une autre application que la mienne [pas faites e
Cherche une API ... [ par Schouly ]
... qui a la même fonction que la commande NET VIEW sous NT ...ou alors ... comment attraper dans une variable ce que renvoie la commande lors d'un Sh
Cherche API urgent [ par leptidev ]
Bonjour, je recherche un API pouvant indiquer les coordonnéesx,y dans une rich text box du texte sélectionné (curseur) merci d'avance . . .
Cherche le bon API [ par Clic ]
Salut,Je cherche un API qui me donne le chemin du programme a partir de son handle.Merci
Cherche API ou ActiveX pour SCSI [ par infOreg ]
Je cherche a comuniquer via un reseau SCSI (interface de com special)Je doit donc depuis mon langage lire et ecrire pers un ID SCSIIl me faut trouver
cherche une api pour connaitre le caption d'un contrôle [ par nafee ]
Besoin d'aide pour savoir comment n api pour connu caption d'un contrôlemerçi
Cherche Api Type Parcourrir [ par nostra78 ]
Cherche Api Type Parcourrir sur Outlook pour insérer une pièce jointe. Je veux récupérer ainsi le chemin des fichiers dans une variable c$ ; pour ensu
Api avec Lotus Notes [ par multimania ]
Bonjour , Je cherche deséperement de l'aide sur Lotus Notes et il faut avouer que sur le net c'est bien maigre. A croire que le devellopement en Lot
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|