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' casa2001@apdo.com

' 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' casa2001@apdo.com

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