Idiomas

Con este código tu podrás elegir cualquier país que tu hayas indicado en el comboBox y se mostrara el idioma que se habla en ese país.


Private Sub cbopaises_Click()
If cbopaises.Text = "mexico" Then
txtidioma.Text = "castellano"
End If

If cbopaises.Text = "españa" Then
txtidioma.Text = "español"
End If

If cbopaises.Text = "italia" Then
txtidioma.Text = "italiano"
End If

If cbopaises.Text = "portugal" Then
txtidioma.Text = "portugues"
End If

If cbopaises.Text = "china" Then
txtidioma.Text = "chino"
End If

End Sub

Muestra de Colores

Aquí en esta aplicación tu podrás escoger el color que tu desees y te lo mostrara en un textBox

Private Sub Form_Load()
txtCaja.Top = 0

End Sub


Private Sub optAbajo_Click()
txtCaja.Top = frmColores0.ScaleHeight - txtCaja.Height
End Sub

Private Sub optAmarillo_Click()
txtCaja.BackColor = vbYellow
End Sub

Private Sub optArriba_Click()
txtCaja.Top = 0
End Sub

Private Sub optAzul_Click()
txtCaja.BackColor = vbBlue
End Sub

Private Sub optRojo_Click()
txtCaja.BackColor = vbRed
End Sub

Private Sub optVerde_Click()
txtCaja.BackColor = vbGreen

End Sub

Grados Centigrados

En este código te ayudara a convertir de Grados Centigrados a Grados Fahrenhit en Visual Basic.


Private Sub vsbTemp_Change()
txtCent.Text = vsbTemp.Value
txtFahr.Text = 32 + 1.8 * vsbTemp.Value

End Sub

Private Sub mnuFileSalir_Click()

End

End Sub

Private Sub cmdsalir_Click()

Beep

End

End Sub

Tu Personalidad

Este código sirve para elaborar un cuadro en el que te muestre tu nombre, edad, estado civil, equipo favorito. Primero te preguntara en InputBox y se mostrara en el cuadro.


Private Sub Form_Load()
Dim nombre As String
Dim paterno As String
Dim materno As String
Dim edad As String
Dim equipo As String
Dim estado As String
Do
nombre = InputBox("escribe tu nombre", "software")
Loop Until nombre <> ""
Do
paterno = InputBox("escribe tu apellido paterno", "software")
Loop Until paterno <> ""
Do
materno = InputBox("escribe tu apellido materno", "software")
Loop Until materno <> ""
Do
edad = InputBox("escribe tu edad", "software")
Loop Until edad <> ""
Do
equipo = InputBox("escribe tu equipo favorito", "software")
Loop Until equipo <> ""
Do
estado = InputBox("escribe tu estado civil", "software")
Loop Until estado <> ""

txtnombre.Text = nombre
txtapaterno.Text = paterno
txtamaterno.Text = materno
txtedad.Text = edad
txtequipo.Text = equipo
txtestado.Text = estado
End Sub