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

254 - CommonDialog Color hecho con controles Slider

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Ejemplo que utiliza tres controles Slider para indicar los colores RGB y visualizarlos en un picturebox, y también obtener el valor RGB en formato Hexadecimal

El ejemplo utiliza tres controles Slider que se posicionan al costado de los textBox que visualizan los valores RGB que se van seleccionado.

Los mismos están redimensionados para no ocupar espacio, y cuando se hace click en uno (para indicar el color ) se despliega.

vista del form

vista del ejemplo para crear un diálogo de selección de selección de color usando controles slider de vb

También hay otro textbox que muestra el valor RGB pero en formato Hexadecimal. La función en el código fuente que convierte esto, se llama Obtener_Color_Hexadecimal que retorna un String.

En realidad esta función se podría obviar ya que el valor se puede obtener con los valores actuales de los slider o textbox convirtiendo los mismos con la función Hex$ de vb, pero no está demás por si se quiere extraer la misma para usarla aparte.

Para el ejemplo colocar los siguientes controles en el formulario:

Tres controles Slider en una matriz de controles llamadados Slider_Color : - > Slider_Color(0), Slider_Color(1) y Slider_Color(2). Este control se encuentra en el ocx Microsoft Windows Common Controls 6.0

Tres controles TextBox también en una matriz llamados txt_Color -- > txt_Color(0), txt_Color(1) y txt_Color(2) ( para el ROJO VERDE y AZUL)

Un pictureBox llamado Picture_Color

Un textBox llamado txt_Hexadecimal: es el que muestra el RGB en formato Hex

Nota: no especificar el ancho y alto de los textbox y de los slider, ya que se indican en el código fuente

Código fuente en el formulario

Option Explicit 'Constantes para las dimensiones del los textbox _ y los controles slider '--------------------------------------------------------- Const ALTO_SLIDER As Single = 2000 Const ANCHO_SLIDER As Single = 500 Const ANCHO_TEXTBOX As Single = 400 Const ALTO_TEXTBOX As Single = 285 Dim Flag_Scroll As Boolean Private Sub Form_Click() Dim i As Integer For i = 0 To 2 Slider_Color(i).Move txt_Color(i).Left + txt_Color(i).Width, _ txt_Color(i).Top, ANCHO_SLIDER, ALTO_TEXTBOX 'Le quita las líneas a los sliders cuando no está activo Slider_Color(i).TickStyle = sldNoTicks Next Call Color_Final End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 2 'Propiedades varias para los slider Slider_Color(i).Max = 255 Slider_Color(i).Min = 0 Slider_Color(i).TickStyle = sldBoth Slider_Color(i).TickFrequency = 20 Slider_Color(i).Value = 150 Slider_Color(i).Orientation = ccOrientationVertical 'Propiedades varias para los textbox que muestran los valores RGB txt_Color(i) = Slider_Color(i).Value txt_Color(i).Locked = True txt_Color(i).Width = ANCHO_TEXTBOX txt_Color(i).Height = ALTO_TEXTBOX 'Posiciona y redimensiona los controles slider Call Redimensionar_Slider(i) Next 'Para que al minimizar no se pierda lo dibujado con Line Picture_Color.AutoRedraw = True Color_Final Me.Caption = " CommonDialog de color para obtener el color Hexadecimal RGB " End Sub Private Sub Slider_Color_MouseDown(Index As Integer, _ Button As Integer, Shift As Integer, _ x As Single, y As Single) Flag_Scroll = True 'Alto Slider_Color(Index).Height = ALTO_SLIDER Slider_Color(Index).ZOrder 0 'Trae el control al frente End Sub Private Sub Slider_Color_Scroll(Index As Integer) Dim i As Integer If Flag_Scroll Then Flag_Scroll = False Exit Sub End If For i = 0 To 2 'Visualiza los alores en los textbox ( Rojo, verde, azul ) txt_Color(i) = CByte(Slider_Color(i)) 'Asigna el valor de los tooltip a los slider Slider_Color(i).ToolTipText = Slider_Color(i).Value Next ' Establece el color parcial Establecer_Color_Parcial End Sub Private Sub Establecer_Color_Parcial() Dim Color As Long ' Valor del color Color = RGB(Slider_Color(0), Slider_Color(1), Slider_Color(2)) 'Dibuja el color parcial Picture_Color.Line (0, 0)-(Picture_Color.ScaleWidth, _ Picture_Color.ScaleHeight / 2), Color, BF 'Le envía la función el color en formato Long, para que lo retorne _ en formato Hexadecimal txt_Hexadecimal = Obtener_Color_Hexadecimal(Color) End Sub '----------------------------------------------- 'Redimensiona y podiciona los Slider al costado de los textbox '----------------------------------------------- Private Sub Redimensionar_Slider(Index As Integer) Dim i As Integer Slider_Color(Index).Move txt_Color(Index).Left + txt_Color(Index).Width, _ txt_Color(Index).Top, 500, 285 'Le quita las líneas a los sliders cuando no está activo Slider_Color(Index).TickStyle = sldNoTicks End Sub '----------------------------------------------- 'Retorna el valor del color en Hexadecimal a partir de un LONG '----------------------------------------------- Private Function Obtener_Color_Hexadecimal(ByVal Color As Long) As String Dim Azul As Byte, Verde As Byte, Rojo As Byte Dim sRojo As String, sVerde As String, sAzul As String 'Descompone el color Azul = (Color And 16711680) / 65536 Verde = (Color And 65280) / 256 Rojo = Color And 255 If Len(Hex$(Azul)) = 1 Then sAzul = "0" & Hex$(Azul) Else sAzul = Hex$(Azul) End If If Len(Hex$(Verde)) = 1 Then sVerde = "0" & Hex$(Verde) Else sVerde = Hex$(Verde) End If If Len(Hex$(Rojo)) = 1 Then sRojo = "0" & Hex$(Rojo) Else sRojo = Hex$(Rojo) End If 'Retorna el valor Obtener_Color_Hexadecimal = "#" & sRojo & sVerde & sAzul End Function Private Sub txt_Color_GotFocus(Index As Integer) txt_Color(Index).SelStart = 0 txt_Color(Index).SelLength = Len(txt_Color(Index)) End Sub ' Muestra el color en el control PictureBox con la función RGB Private Sub Color_Final() Picture_Color.BackColor = RGB(Slider_Color(0), _ Slider_Color(1), _ Slider_Color(2)) End Sub Private Sub Slider_Color_LostFocus(Index As Integer) Call Redimensionar_Slider(Index) Color_Final End Sub Private Sub Slider_Color_GotFocus(Index As Integer) Slider_Color(Index).TickStyle = sldBottomRight End Sub Private Sub txt_Color_Click(Index As Integer) 'Oculta el Slider indicado Call Redimensionar_Slider(Index) End Sub

Ejemplo 2

Este es el el mismo ejemplo pero con Slider Xp, que en vez de utilizar el Windows Common controls 6.0 , utiliza la versión 5.0 del Common Controls , para que al usar el Manifest.exe , pueda tomar la apariencia de xp para los controles, incluyendo los controles slider, como se puede ver en esta imagen.

Descargar proyecto de ejemplo

vista previa del proyecto

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb