[APORTE] ucTabs (Reemplaza a SSTabDialog)

[raul338]

Hubiera sido mejor si lo hubiera terminado justo para cuando publicaron el tema Un SSTab Mejor

Pero aca esta, ucTabStrip que es para poner pestañas, es contenedor y podes organizar los controles en Tiempo de Diseño (incluyo un property page)



No incluyo mas detalles porque me siento feliz porque lo acabo de terminar recien xD... pruebenlo

Dependencias: Un property Page que es solo necesario si vas a usarlo como contenedor (podes hacer el viejo estilo de ubicar un picture o los controles mediante codigo ), un ctx que es el icono en la lista de herramientas. Y el OleGuids3.tlb (que esta en la carpeta demo)

Por cierto... si lo van a usar como contendedor: NO PONGAN CONTROLES SIN LA PROPIEDAD hWnd Si quieren poner labels, incluyo un control "TLabel" que es su reemplazo, y es transparente  ^^ (no tiene todas las mismas propiedades de un Label, pero... al menos es un buen reemplazante xD. Es transparente en tiempo de ejecucion, en tiempo de diseño es como un label comun, porque sino se hace tedioso su edicion . Si no tiene caption, muestra su nombre entre corchetes)

Descargar http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=74007&lngWId=1

Se aceptan sugerencias y bugs

[YAcosta]

Bravisimo, a revisarlo y desmembrarlo.

Saludos

[E N T E R]

jojojo, rracias rracias...

[LeandroA]

Muy bueno Raul!!, Esta piola lo de la pagina de propiedades

Aun no lo analizo a fondo pero esta de lujo, lo que que faltarian algunas propiedades ItemIcon, ItemParam (que son faciles de implementar)

a gusto personal creo que seria mejor asi la propiedad itemText

Código: [Seleccionar]

Public Property Get ItemText(ByVal index As Long) As String
    If hTabs Then
        Dim sTabStrip As TCITEM
        Dim sText As String
        sText = String(255, 0)
        sTabStrip.mask = TCIF_TEXT
        sTabStrip.cchTextMax = 255
        sTabStrip.pszText = StrPtr(sText)
        If SendMessageW(hTabs, TCM_GETITEMW, index, sTabStrip) Then ItemText = Left$(sText, InStr(sText, vbNullChar) - 1)
    End If
End Property

[raul338]

Esta buena esa alternativa LeandroA

el manejo de controles se puede optimizar mucho. Lo que pasa es que no supe como (se me ocurrio hasta usar Arrays de Collections xD pero... no salio)

Funciona siempre y cuando no exploten el IDE (acuerdense de guardar las cosas)

[raul338]

Hay un bug (descubierto por nordex@PSC) con el foco (si hacen click en el boton, veran que no se conserva el foco )

Tienen que comentar la linea 1190 del ucTabStrip.ctl (la que es "Call pvSetIPAO")

Despues pondre el link a PSC para descargar la version corregida (cuando lo arreglen ) Y tambien puse la recomendación de leandro

[raul338]

Actualizado!!

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=74007&lngWId=1