Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: E N T E R en Marzo 08, 2011, 06:26:28 pm

Título: OCX con 2 Caption y un Picture
Publicado por: E N T E R en Marzo 08, 2011, 06:26:28 pm

Hola amigos estoy queriendo crear un mini OCX igual a esta:

(http://img64.imageshack.us/img64/8650/ocx2caption.png)

Ya tengo la parte de las 2 Caption y el Picture, Ahora lo que no puedo hacer es que cuando apunto el mouse sobre el control cambie de color como ven ahi en la imagen al apuntar sobre el boton se cambia y al hacer clic tambien tiene otro color.

Aca dejo mi proyecto de como va quedando.

(http://img199.imageshack.us/img199/4939/0538dcb83xdx.png)

http://www.mediafire.com/file/fu4ziegfmc48vvu/cmd2Caption.rar (http://www.mediafire.com/file/fu4ziegfmc48vvu/cmd2Caption.rar)

Título: Re:OCX con 2 Caption y un Picture
Publicado por: raul338 en Marzo 08, 2011, 07:49:46 pm

Eso se parece a Command Links (http://msdn.microsoft.com/en-us/library/aa511455.aspx) que estan presentes en Windows 7 (creo que a partir de vista en adelante) (Y desde hace poco vengo trabajando en eso xD)


Intente darle esa forma mediante el metodo paint, pero no consigo el metodo donde tengo que poner esto

Código: (vb) [Seleccionar]

' Declaraciones
Private Declare Function ScreenToClient Lib "USER32" (ByVal hWnd As Long, lpPoint As POINT) As Long
Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINT) As Long
Private Type POINT
    x               As Long
    Y               As Long
End Type
Private pPicture As StdPicture

' No encuentro el evento para poner esto :P
    Dim pt As POINT
    Call GetCursorPos(pt)
    Call ScreenToClient(hWnd, pt)
    Debug.Print pt.x, pt.Y
    If pt.x > 0 And pt.Y > 0 And pt.x < ScaleWidth And pt.Y < ScaleHeight Then
        If UserControl.Picture Is Nothing Then
            Set UserControl.Picture = pPicture
            UserControl.BackColor = -1
        End If
    Else
        If Not UserControl.Picture Is Nothing Then
            Set pPicture = UserControl.Picture
            Set UserControl.Picture = Nothing
            UserControl.BackColor = vbWhite
        End If
    End If

Despues mañana seguire viendo, aca es feriado nacional XD

Título: Re:OCX con 2 Caption y un Picture
Publicado por: Lolabyte en Marzo 13, 2011, 06:09:53 pm

Tiempo atras tuve que hacer un menu integrador estilo TuneUp, buscando encontre un control y una clase que me sirvieron muchisimo, el control ucBtnSkin de Luciano Lodola es un boton con skin y permite texto con formato, pero no maneja iconos. La clase cImageButton de Leandro Ascierto permite poner iconos a los commandbutton. Solo combine los dos codigos. :)

Control ucBtnSkin
http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/214-boton-checkbox-optionbutton-con-skin.htm (http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/214-boton-checkbox-optionbutton-con-skin.htm)

Clase cImageButton
http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/217-modulo-de-clase-cimage-button.htm (http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/217-modulo-de-clase-cimage-button.htm)

Mi ejemplo
http://www.4shared.com/file/AmnWsUQC/ucBtnSkin_con_Iconos.html
 (http://www.4shared.com/file/AmnWsUQC/ucBtnSkin_con_Iconos.html)

Título: Re:OCX con 2 Caption y un Picture
Publicado por: LeandroA en Marzo 13, 2011, 09:42:31 pm

Hola recomiendo no usen mas ImagesHack ya que no se pueden visualizar, mejor utilizen otro servidor como http://www.subirimagenes.com/   

no pude ver la imagen, pero bueno seguramente son botones comunes los cuales corriendo en vista o seven se pueden hacer

http://www.timosoft-software.de/screenshots/?album=1&gallery=1

@Raul a vos que te gusta esto mirate esta pagina son todos ocx echos en vb lastima no dan el codigo. http://www.timosoft-software.de/screenshots/
 

Título: Re:OCX con 2 Caption y un Picture
Publicado por: E N T E R en Marzo 14, 2011, 01:18:25 pm

Aca te vuelvo a dejar la imagen leandro.
(http://s3.subirimagenes.com:81/imagen/previo/thump_6109144ejemobotones.png)

Aca el link por si cualquier cosa.
http://www.subirimagenes.com/imagen-ejemobotones-6109144.html (http://www.subirimagenes.com/imagen-ejemobotones-6109144.html)

Vaje yo el que recomendaste pero en ninguna parte del boton le pude poner un icono o imagen. Pero es asi como dices igual al que tiene Win7