Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: xkiz ™ en Julio 01, 2011, 09:00:12 pm

Título: poner HasLUAShield icon en buttom
Publicado por: xkiz ™ en Julio 01, 2011, 09:00:12 pm

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....

(http://s1.postimage.org/2qsvtkfb8/Has_LUAShield.jpg) (http://postimage.org/image/2qsvtkfb8/)

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

---

(http://uiianq.blu.livefilestore.com/y1pAhAlkQc26IEnNnvUt4Ey5J3QQaqKj2rDiBsKy-aXPsXZ04rRL_aNhydbJh1RifTPsq5yh-MQHlmoFOYOfXBCxKPipeoxOwWc/attach.png) attachment: (http://public.blu.livefilestore.com/y1p-YNLxFgiVTGtJ3ZMpgT_pd_wbiTxEUbmFnxXCtnL1LJ2NZBm7u9hE108IgX5XsGY7oAgc5qqKN5xsjBeN8sJoA/rar.png) HasUAShield.rar (http://www.mediafire.com/?oqsxeaxi8167ohs) (472.2 KB)

Título: Re:poner HasLUAShield icon en buttom
Publicado por: LeandroA en Julio 02, 2011, 05:40:46 pm

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.