poner HasLUAShield icon en buttom

[xkiz ™]

bueno esto solo es Visual, pero... Como dice el titulo, es para agregar el iconito de UAC a algun boton, el cual hara algo que ustedes decidiran que....

Código: (vb) [Seleccionar]

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Sub InitCommonControls Lib "comctl32" ()
Private Const BCM_SETSHIELD As Long = &H160C&

Private Sub Form_Initialize()
InitCommonControls
Call SendMessage(Command1.hwnd, BCM_SETSHIELD, 0, 1&)
End Sub

PD: Sin Manifest no funciona


attachment: HasUAShield.rar (472.2 KB)

[LeandroA]

Esta bueno xKiz, yo intente ver si se podia hacer lo mismo para BS_COMMANDLINK pero parece que solo se puede recreando el boton.

Saludos.