Scroll Bars

Como habilitar, dehabilitar, ver y/o ocultar

Fecha: 5/May/98 (03/Mayo/1998)
Autor: Jose Montaner 'Sat�lite'

Este ejemplo muestra como manejar con el API, las barras de scroll en aquellos controles que no disponen de la propiedad "ScrollBars"

Utiliza la funci�n sBarVisible para ocultar/mostrar las barras de desplazamiento de un control, y la funci�n sBarEnabled para habilitarlas/dehabilitarlas.

El siguiente c�digo esta pensado para incluirse como m�dulo BAS dentro un proyecto de VB 32 bits

Option Explicit
'Funciones para el manejo de las barras de desplazamiento
'en controloes que no dispones de la propiedad "ScrollBars"
'
'sBarFunciones.bas 2 de Mayo de 1.998 VB5
'Por Jose Montaner 'Satelite' [email protected]

' Constantes de barra de desplazamiento
Public Enum eBar
Horizontal = 0
Vertical = 1
Automatico = 2
Ambas = 3
End Enum

Private Declare Function EnableScrollBar Lib "user32" _
(ByVal hwnd As Long, ByVal wSBflags As Long, ByVal wArrows As Long) As Long
Private Declare Function ShowScrollBar Lib "user32" _
(ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long

Public Sub sBarVisible(ByVal cntrl As Variant, ByVal barras As eBar, ByVal visible As Boolean)
'Muestra/Oculta barras de desplazamiento

'cntrl: Control que deseamos atacar
'barras: Indica que barras queremos mostrar/ocultar
'Visiable: True/False
Dim ret As Long

ret = ShowScrollBar(cntrl.hwnd, barras, visible)
End Sub
Public Sub sBarEnabled(ByVal cntrl As Variant, ByVal barras As eBar, ByVal enabled As Boolean)
'Habilita/Deshabilita

'cntrl: Control que deseamos atacar
'barras: Indica que barras queremos habilitar/deshabilitar
'Enabled: True/False
Dim ret As Long

ret = EnableScrollBar(cntrl.hwnd, barras, IIf(enabled, 0, &H3))
End Sub

Jose Montaner 'Sat�lite' [email protected]

Para que no tengas que teclear te puede bajar el m�dulo BAS pulsando aqui (709 Bytes)