Errores inocentes!

factura
Mucha gracia me ha dado el echo de conseguir un error en la siguiente factura!… pero qué clase de error! jajajajaja

No se habrán dado cuenta con tantas facturas entregadas al día?

Dónde está la seguridad?

Aún no entiendo como dicen los funcionarios públicos encargados de la seguridad, por no ponerme aqui a nombrarlos, que gozamos de mucha seguridad en Venezuela.

Realmente no se como hacen para declarar esto y quedarse como si nada, sabiendo que son asesinados, secuestrados, desaparecido centenares y miles de venezolanos al año.

Algo que me sorprendió, ya que me encontraba de viaje durante 15 días, por cuestiones de trabajo; fue que todos esos puntos de control que se encuentran o encontraban para cruzar el país de oriente a occidente, simplemente no estaban.

Habían muchas personas viajando imagino para celebrar hoy el día de madres.  Muchas de ellas se encontraban bebiendo mientras manejaban, exponiendo no solo sus vidas sino de los demás.  Y no hubo en todo el camino algún punto de control que cuidase esta situación.

Ya hasta viajar se está convirtiendo en algo riesgoso, si no se toman medidas y se vuelven a colocar operativos en los puntos de control necesarios.

Ejemplo VB 2005 (Modificando propiedades del Label)

Para dar inicio a este blog, comparto un pequeño ejemplo que para muchos será una pequeña cosita, pero para mi… fue un día largo!.

Es un simple ejemplo para modificar algunas características del Control “Label”.

La pequeñita aplicación se ve de la siguiente manera:

ejemplo01

Aquí el código:

Public Class Form1

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim currentSize As Single
Dim color As String

currentSize = TextBox1.Font.Size
currentSize += NumericUpDown1.Value
Label2.Font = New Font(TextBox1.Font.Name, currentSize, _
TextBox1.Font.Style, TextBox1.Font.Unit)
color = ListBox1.SelectedItem

If color = “Azul” Then
Label2.BackColor = Drawing.Color.Black
Label2.ForeColor = Drawing.Color.Blue
Label2.Text = TextBox1.Text
End If
If color = “Rojo” Then
Label2.BackColor = Drawing.Color.Black
Label2.ForeColor = Drawing.Color.Red
Label2.Text = TextBox1.Text
End If
If color = “Amarillo” Then
Label2.BackColor = Drawing.Color.Black
Label2.ForeColor = Drawing.Color.Yellow
Label2.Text = TextBox1.Text
End If
End Sub
End Class

Bienvenidos a mi espacio!

No es ningún espacio cibernético….

Este sólo es mi rinconcito para compartir vivencias, experiencias y algunas curiosidades aprendida con Visual Basic 2008.

Gracias por visitarme, y si puedes aportar algo te agradezco!