miércoles, 5 de diciembre de 2012

combo box con paises

Para utilizar el combo box se necesita este codigo. Esta representando los países y el idioma que se habla.

prefijos


  • elabora un label y justo a lado de ese label tienes que poner un textbox.
  • a lado de esas cajas, elaboras dos labels.
  • uno que diga correcto
  • otro que diga incorrecto
  • por ultimo escribes el prefijo que le corresponda en el textbox que habias elaborado al principio.
  • aqui esta el codigo.

este se pone al principio de lo siguiente:
Dim aciertos As Integer
aciertos = 0

If Txtpicture.Text <> "pic" Then
lblincorrecto.Visible = True
Else
aciertos = aciertos + 1
lblcorrecto.Visible = True
End If
End Sub

lunes, 12 de noviembre de 2012

password visual basic 6.0



formulario:
If txtpassword.Text <> "hola" Then
MsgBox "incorrecto", vbCritical, "atención"
Else
MsgBox "correcto", vbInformation, "atencion"
frmcalculadora.Show
Unload Me
End If

viernes, 9 de noviembre de 2012

calculadora visual basic 6.0

código de suma:

Txt3.Text = Val(txt1.Text) + Val(Txt2.Text)
lblsigno.Caption = "+"


código de resta:

Txt3.Text = Val(txt1.Text) - Val(Txt2.Text)
lblsigno.Caption = "-"

código de multiplicación:

Txt3.Text = Val(txt1.Text) * Val(Txt2.Text)
lblsigno.Caption = "*"


código de división:

If Txt2.Text = 0 Then
MsgBox "error", vbCritical, "information"
Txt2.Text = ""
Else
Txt3.Text = Val(txt1.Text) / Val(Txt2.Text)
lblsigno.Caption = "/"
End If