Sección de códigos , trucos y ejemplos para visual basic

405 - Mostrar el valor de la propiedad Value de un Scrollbar mientras movemos la barra

Ejemplo hecho con un picturebox y un Label para poder mostrar el valor tipo leyenda al mover el Scrollbar, es decir en el evento Change y el evento Scroll de la barra

Colcar en el formulario

un control picturebox
un Scrollbar Horizontal
y un control Label

Código fuente en el Formulario

Option Explicit Private Declare Sub InitCommonControls Lib "comctl32" () Private Type TOpciones lBorderStyle As Integer HideLostFocus As Boolean End Type 'posición x y posición y del Label1 Dim X As Double, Y As Double ' para almacenar opciones Private OptionLabel As TOpciones Private Sub Form_Initialize() Call InitCommonControls End Sub Private Sub HScroll1_Change() Call MostrarLeyenda End Sub Private Sub HScroll1_GotFocus() HScroll1_Change End Sub Private Sub HScroll1_LostFocus() If OptionLabel.HideLostFocus Then Label1.Visible = False End If End Sub Private Sub HScroll1_Scroll() Call MostrarLeyenda End Sub ' muestra el valor al ejecutar el _ evento Scroll y el evento Change de la barra '''''''''''''''''''''''''''''''''''''''''''''''''' Sub MostrarLeyenda() Dim k As Double With Label1 .Caption = Trim(Str(HScroll1.Value)) k = Len(Label1.Caption) .Move (Y + X * (HScroll1.Value - HScroll1.Min) - _ (k * 50) - 10), (HScroll1.Top - Label1.Height) .Visible = True .AutoSize = True End With End Sub Private Sub Form_Load() ' oculta la leyenda cundo la barra pierde el foco OptionLabel.HideLostFocus = False ' estilo del label OptionLabel.lBorderStyle = 0 'Propiedades del Scrollbar With HScroll1 .Min = 0 .Max = 255 ' coloca el HScrollbar dentro del picturebox Set .Container = Picture1 End With ' propiedades del Picture1 With Picture1 .BorderStyle = 0 .Width = HScroll1.Width .BackColor = &H8000000F End With ' propiedades del Label1 With Label1 .Visible = False .FontName = "Verdana" .BackColor = &H80000013 .BorderStyle = OptionLabel.lBorderStyle .BackStyle = 0 .ForeColor = vbBlack .AutoSize = True ' coloca el Label dentro del picturebox Set .Container = Picture1 End With End Sub ' redimensiona los control al cambiar el tamaño del picture1 Private Sub Picture1_Resize() Label1.Move 0, 0, 540, 225 HScroll1.Move 0, (Label1.Top + Label1.Height) Picture1.Width = HScroll1.Width Picture1.Height = Label1.Height + HScroll1.Height X = ((Picture1.Width - 600) / (HScroll1.Max - HScroll1.Min)) Y = 300 End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb