Este ejemplo surgio de una consulta en este artículo.

El control ColorDialog nos presenta una paleta de colores tradicional, pero lo cierto es que la de visual studio es mucho más linda y nos muestra todos los colores por su nombre como están definidos en las propiedades del objeto System.Drawing.Color.

Dado el problema de que no existe un control que nos muestre esta lista de colores vamos a ver como podemos constriur una nosotros mismos.

Para el ejemplo necesitaremos un nuevo proyecto y dos formularios.

En el primer formulario solo tendremos un baton para llamar al formulario 2, tal como se ve en la siguiente figura:

y el código del boton es el siguiente:

Private Sub btnColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnColor.Click
Dim vForm2 As New Form2
vForm2.ShowDialog()
End Sub

y en el siguiente formulario pondremos yn control ListBox y dos botoes (aceptar y cancelar) igual que en el siguiente formulario:

En el evento Load del formulario establecemos algunas propiedades del control ListBox y cargamos los nombres de los colores con el siguiente código:

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.DrawMode = DrawMode.OwnerDrawFixed
ListBox1.ItemHeight = 20

ListBox1.Items.Clear()
ListBox1.BeginUpdate()
For Each pi As Reflection.PropertyInfo In GetType(Color).GetProperties(Reflection.BindingFlags.Static Or Reflection.BindingFlags.Public)
ListBox1.Items.Add(pi.Name)
Next
ListBox1.EndUpdate()
End Sub

En la primer linea del Load “ListBox1.DrawMode = DrawMode.OwnerDrawFixed” establecemos que todos los elementos del control se dibujan manualmente y tienen el mismo alto. Esto, ademças, desencadena un suceso DrawItem justo antes de mostrar cada elemento.

Para programar el evento DrawItem del ListBox, seleccionamos (en la vista de diseño) el ListBox1, presionamos F4 para ver las propiedades, y en la parte de arriba del cuadro de propiedades seleccionamos el icono del rayo para ver los evento que el control tiene disponibles, buscamos DrawItem y le damos doble clic. La siguiente imagen ejemplifica como hacerlo:

y este es el código del evento DrawItem

Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
Dim rectangulo As Rectangle = e.Bounds

If (e.State And DrawItemState.Selected) Then
e.Graphics.FillRectangle(SystemBrushes.Highlight, rectangulo)
Else
e.Graphics.FillRectangle(Brushes.White, rectangulo)
End If

Dim nombreColor As String = ListBox1.Items(e.Index)

Dim b As New SolidBrush(Color.FromName(nombreColor))

rectangulo.Inflate(-16, -2)
e.Graphics.FillRectangle(b, New Rectangle(rectangulo.X, rectangulo.Y, 30, rectangulo.Height))

e.Graphics.DrawRectangle(Pens.Black, New Rectangle(rectangulo.X, rectangulo.Y, 30, rectangulo.Height))

If (e.State And DrawItemState.Selected) Then
e.Graphics.DrawString(nombreColor, e.Font, Brushes.White, rectangulo.X + 34, rectangulo.Y + 2)
Else
e.Graphics.DrawString(nombreColor, e.Font, Brushes.Black, rectangulo.X + 34, rectangulo.Y + 2)
End If
End Sub

Ahora solo nos falta programar los eventosde los dos botones como se ve en el siguiente código:

Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
My.Forms.Form1.BackColor = Color.FromName(ListBox1.SelectedItem)
End Sub

Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
Me.Close()
End Sub

Bueno, a probar la aplicación… si todo salió bien, se verá así:

Les dejo algunas definiciones:

Graphics.FillRectangle (Método): Rellena el interior de un rectángulo especificado por un par de coordenadas, un valor de ancho y un valor de alto.

Graphics.DrawRectangle (Método): Dibuja un rectángulo especificado por un par de coordenadas, un valor de ancho y un valor de alto.

Graphics.DrawString (Método): Dibuja la cadena de texto especificada en la ubicación especificada y con los objetos Brush y Font especificados.

Espero que les sirva y lo puedan usar en sus proyectos.

Acá les dejo una lista de las palabras claves de visual .NET en su versión 2005:

• AddHandler
• AddressOf
• Alias
• And
• AndAlso
• As
• Boolean
• ByRef
• Byte
• ByVal
• Call
• Case
• Catch
• CBool
• CByte
• CChar
• CDate
• CDbl
• CDec
• Char
• CInt
• Class
• CLng
• CObj
• Const
• Continue
• CSByte
• CShort
• CSng
• CStr
• CType
• CUInt
• CULng
• CUShort
• Date
• Decimal
• Declare
• Default
• Delegate
• Dim
• DirectCast
• Do
• Double
• Each
• Else
• ElseIf
• End
• EndIf
• Enum
• Erase
• Error
• Event
• Exit
• False
• Finally
• For
• Friend
• Function
• Get
• GetType
• Global
• GoSub
• GoTo
• Handles
• If
• Implements
• Imports
• In
• Inherits
• Integer
• Interface
• Is
• IsNot
• Let
• Lib
• Like
• Long
• Loop
• Me
• Mod
• Module
• MustInherit
• MustOverride
• MyBase
• MyClass
• Namespace
• Narrowing
• New
• Next
• Not
• Nothing
• NotInheritable
• NotOverridable
• Object
• Of
• On
• Operador
• Option
• Optional
• Or
• OrElse
• Overloads
• Overridable
• Overrides
• ParamArray
• Partial
• Private
• Property
• Protected
• Public
• RaiseEvent
• ReadOnly
• ReDim
• REM
• RemoveHandler
• Resume
• Return
• SByte
• Select
• Set
• Shadows
• Shared
• Short
• Single
• Static
• Step
• Stop
• String
• Structure
• Sub
• SyncLock
• Then
• Throw
• To
• True
• Try
• TryCast
• TypeOf
• UInteger
• ULong
• UShort
• Using
• Variant
• Wend
• When
• While
• Widening
• With
• WithEvents
• WriteOnly
• Xor

Todas las clases de Visual Basic .NET tienen un método .ToString para mostrar una su contenido en formato texto.

En visual basic.net tenemos dos formas de trabajar con las variables de texto o string:

- Utilizando las viejas funciones que conocemos desde “siempre” como left, right, trim, replace, etc.

- Utilizar los nuevos métodos de la clase System.String de .NET

Para utilizar las funciones de de cadenas de visual basi “tradicional” (por llamar de alguna manera a las versiones anteriores a .NET) están disponibles en el espacio de nombre Microsoft.VisualBasic por ejemplo:

microsoft.VisualBasic.Left("Text1", 5)

veamos algunos metodos y propiedades del objeto String

Propiedades

Métodos

y ahora veamos algunos ejemplos en los que utilizaremos algunas de estas propiedades y métodos:

Para averiguar la longitus de un texto usamos la propiedad Length:

dim texto1 as string = "un texto cualquiera"

msgbox(texto1.Length) 'Mostrará 19

'También podemos hacerlo directamente sobre el texto

msgbox("otro texto cualquiera".Length)  'Mostrará 21

Para alinear el contenido de una cadena de texto usamos PadLeft o PadRight

Estos dos métodos son nuevos y no tienen equibalencia en visual basic tradicional. Ellos aumentan la cadena alineando su contenido hacia la izquierda o derecha.

Para ver el siguiente ejemplo en funcionamiento solo copia el código en el evento Load de un formulario y hazlo correr.

Te voy a explicar brevemente que es lo que hace: primero crea un objeto textbox y lo parametriza para poder mostrar varias lineas con la propiedad multiline en True. Hace que el textbox ocupe todo el formulario con la propiedad Dock en Fill y como lo que queremos ver es la alinación de las cadenas de texto es muy importante usar una fuente monoespaciada como Courrier New. Esto es muy importante porque si usamos una fuente que no es monoespaciada no veremos los textos correctamente alineados. Ah… y la constante vbCrlf representa un carácter de retorno de carro combinado con un carácter de avance de línea para las funciones de impresión y visualización.
Por último, como el control textbox1 no lo estoy creando en modo diseño (arrastrando el control y soltandolo sobre el formulario) sino, que lo creo mediante codigo, no podré verlo a menos que lo agregue a la lista de control del formulario. Para ello utilizo la última linea del codigo del ejemplo.

   Dim textbox1 As New TextBox
textbox1.Multiline = True
textbox1.Dock = DockStyle.Fill
textbox1.ScrollBars = ScrollBars.Vertical
textbox1.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
For i As Integer = 1 To 100
    textbox1.Text &= i.ToString.PadLeft(4).PadRight(10, "-") & "Es la mitad de " & (i * 2).ToString.PadLeft(3) & vbCrLf
Next
Me.Controls.Add(textbox1)

Dando formato a los números

Utilizando la clase String podemos dar formato a los numeros, como se muestra en el siguiente ejemplo:

Dim numero As Double
numero = 10580.65
Dim resultado As String

resultado = numero.ToString("G") '               10580.65
resultado = numero.ToString("N") '              10.580,65
resultado = numero.ToString("E") '           1058065E+004
resultado = numero.ToString("000,000.00") '    010.580,65
resultado = numero.ToString("###,##0.00") '     10.580,65

numero = 0.63
resultado = numero.ToString("P") '                63,00 %
resultado = numero.ToString("##0.00%") '           63,00%
resultado = numero.ToString("##0%") '                 63%