Mensajes

es sencillo pero como soy novato no sabia jeje  gracias!!!

panas como yo aria para ponerle contresañe a un programa yo le ago esto para que si la contreseña es incorrecta sale el msg pero si es correcta pasa a otro formulario como seria para que se vea en vez de los numeros se vean los asteriscos de la contraseña??

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
If Text1.Text <> "" And Text2.Text <> "" And Val(Text2.Text) = 12345 Then

Menu.Show
Unload Me
Else
MsgBox "Debe introducir su nombre y la contraseña", vbCritical, "DATOS"
End If
End Sub 

es lo que tengo hasta ahora

gracias !!

gracias ahora el problema es q cuando pongo varias opciones solo lee una osea algo asi

Código (vb) [Seleccionar] Expandir

If tenis.value = 1 Then
Text5.Text = "Tenis"
End If

If bailar.value = 1 Then
Text5.Text = "Bailar"
End If

If cantar.value = 1 Then
Text5.Text = "canta"
End If

If corre.value = 1 Then
Text5.Text = "Corre"
End If entonces solo me sale una solo opcion no me salen todas las que selecciono si selecciono solo 3 me sale solo una. como aria eso para que me salgan todas las q selecciono seria con un select case?

ayuda con esto estoy haciendo un programa qeu cuando selecciones varias opciones de check me salgan en un text ejemplo

Código (vb) [Seleccionar] Expandir

if futbol.check=true then
text1.text="usted practica futbol"

osea lo ice asi pero no me sale refleado en el text

y no me marca error ni nada por eso no entiendo q deberia acer!!

panas alguien sabe de algun programa para softwares y archivos q no se pueden eliminar??

weno gracias!

osea yo encontre esto con otros amigos q me ayudaron pero estuvimos inventando ayi aunq en realidad no se q es lo q tengo q acer solo me dijeron programa q calcule los dias de la semana solo eso y ya

como haria un programa q calcule los dias de la semana seria algo como esto:

Codigo:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dia = Dia.Text
Mes = Mes.Text
Año = Año.Text
Mifecha = DateSerial(Año, Mes, Dia)
semana = Weekday(Mifecha, vbMonday)
dias = DateDiff("d", Mifecha, Now)
Diasvividos.Caption = dias

Select Case semana
Case 1
Dianaciste.Caption = "Lunes"
Case 2
Dianaciste.Caption = "Martes"
Case 3
Dianaciste.Caption = "Miércoles"
Case 4
Dianaciste.Caption = "Jueves"
Case 5
Dianaciste.Caption = "Viernes"
Case 6
Dianaciste.Caption = "Sábado"
Case 7
Dianaciste.Caption = "Domingo"

End Select
End Sub

si me pueden explicar o algo no se es si es asi solo me dijeron q era asi y asi lo ice pero no se es como calcular los dias de la semana???

muchas gracias!!!!!!!!