lunes, 4 de abril de 2011

Validar Textbox






Solo Letras
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsLetter(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsSeparator(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub



Solo Números
Private Sub TextBox2_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles TextBox2.KeyPress
If InStr(1, "0123456789,-" & Chr(8), e.KeyChar) = 0 Then
e.KeyChar = ""
End If
End Sub

jueves, 17 de marzo de 2011

Unir Formularios en Visual Studio.NET

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim form1 As New Form1
Me.Enabled = False ' Ocultamos el principal y lo deshabilitamos
Me.Hide()
Form1.Show()
End Sub

miércoles, 9 de marzo de 2011

Calculadora Básica


Programa en Visual Studio 2010
Descargar

Public Class frmCalculadora
Dim Num1
Dim Num2
Dim Resultado
Dim OtroNumero
Dim Operacion = ""

Private Sub BTN_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_0.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 0
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_1.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 1
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_2.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 2
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_3.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 3
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_4.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 4
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_5.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 5
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_6.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 6
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_7.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 7
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_8.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 8
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_9.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 9
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_Div_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Div.Click
Num1 = Me.TXT_Resultado.Text
Operacion = "Division"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_CE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_CE.Click
Me.TXT_Resultado.Text = "" 'Borra todo el textbox'
End Sub

Private Sub BTN_Multiplicacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Multiplicacion.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "Multiplicacion"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_Resta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Resta.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "Resta"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_Suma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Suma.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "Suma"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_Decimal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Decimal.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Me.TXT_Resultado.Text = Num1 & ","
End Sub

Private Sub BTN_XelvadoY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_XelvadoY.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "X Elevado a la Y"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_RaizCuadrada_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_RaizCuadrada.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "Raiz Cuadrada"
Resultado = Math.Sqrt(d:=Val(Num1))
Me.TXT_Resultado.Text = Resultado
End Sub

Private Sub BTN_Elevado2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Elevado2.Click
'Boton Elevado a la 2 con su funcion'
Num1 = Me.TXT_Resultado.Text
Resultado = Val(Num1) ^ 2
Me.TXT_Resultado.Text = Resultado
End Sub

Private Sub BTN_Elevado3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Elevado3.Click
'Boton Elevado a la 3 con su funcion'
Num1 = Me.TXT_Resultado.Text
Resultado = Val(Num1) ^ 3
Me.TXT_Resultado.Text = Resultado
End Sub

Private Sub BTN_Elevado4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Elevado4.Click
'Boton Elevado a la 4 con su funcion'
Num1 = Me.TXT_Resultado.Text
Resultado = Val(Num1) ^ 4
Me.TXT_Resultado.Text = Resultado
End Sub

Private Sub BTN_Igual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Igual.Click
Num2 = Me.TXT_Resultado.Text
If Operacion = "Suma" Then
Resultado = Val(Num1) + Val(Num2)
Me.TXT_Resultado.Text = Resultado
End If
If Operacion = "Resta" Then
Resultado = Num1 - Num2
Me.TXT_Resultado.Text = Resultado
End If
If Operacion = "Multiplicacion" Then
Resultado = Num1 * Num2
Me.TXT_Resultado.Text = Resultado
End If
If Operacion = "Division" Then
Resultado = Num1 / Num2
Me.TXT_Resultado.Text = Resultado
End If
If Operacion = "X Elevado a la Y" Then
Resultado = Val(Num1) ^ Val(Num2)
Me.TXT_Resultado.Text = Resultado
End If
End Sub
End Class

martes, 8 de marzo de 2011

Programa con listbox

http://rapidshare.com/files/451578090/ejemplo_listbox.rar

Public Class Form1

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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TextBox1.Text = ""
Me.ListBox1.Items.Clear()
' Asignar los valores para "anclar" los controles al formulario
' Asignamos True a la propiedad AutoScroll y dejamos los controles
' como están por defecto:
Me.AutoScroll = True
' El TextBox1 se anclará a Arriba, Izquierda y Derecha
TextBox1.Anchor = AnchorStyles.Top Or AnchorStyles.Left Or AnchorStyles.Right
' El botón Añadir lo hará Arriba y a la derecha:
cmdadd.Anchor = AnchorStyles.Top Or AnchorStyles.Right
' El listbox lo hará en los cuatro vértices:
ListBox1.Anchor = AnchorStyles.Top Or AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Bottom
' El botón cerrar sólo lo hará a la derecha y abajo
cmdcerrar.Anchor = AnchorStyles.Right Or AnchorStyles.Bottom
End Sub

Private Sub cmdadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdadd.Click
ListBox1.Items.Add(TextBox1.Text)
End Sub

Private Sub ListBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown
If e.KeyCode = Keys.Delete Then
'Borrar las palabras seleccionadas del listbox
Dim i As Integer
'
With ListBox1
For i = .SelectedItems.Count - 1 To 0 Step -1
.Items.Remove(.SelectedItems.Item(i))
Next
End With
End If
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
' Cuando pulsamos en un elemento de la lista...
With ListBox1
TextBox1.Text = .GetItemText(.SelectedItem)
End With
End Sub
End Class