Public Shared Sub UAC_EnableElevateIcon(ByVal button As System.Windows.Forms.Button) Const BCM_SETSHIELD As UInteger = 5644 If button Is Nothing Then Return End If button.Image = Nothing button.TextAlign = System.Drawing.ContentAlignment.MiddleCenter button.FlatStyle = System.Windows.Forms.FlatStyle.System ' Send the BCM_SETSHIELD message to the button control SendMessage(New HandleRef(button, button.Handle), BCM_SETSHIELD, IntPtr.Zero, New IntPtr(1)) End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.