Ayuda con programas para visual basic 6

Iniciado por ThonyMaster, 28 Abril 2008, 03:22 AM

0 Miembros y 1 Visitante están viendo este tema.

cassiani

Se pueden seleccionar varios ckeck sin problema, lo que sucede es que, NO estas CONCATENANDO...

Ese es el error mas común que se comete cuendo se empieza...

Como lo tienes, siempre te mostrará en el text el valor asignado al ultimo check seleccionado...

Esta sería la forma correcta ¡concatendo! si no sabes que es concatenar --> google

Código (vb) [Seleccionar]
Private Sub Command1_Click()
    Text5.Text = ""
   
    If tenis.Value = 1 Then
        Text5.Text = "Tenis"
    End If
   
    If bailar.Value = 1 Then
        Text5.Text = Text5 & " Bailar"
    End If
   
    If cantar.Value = 1 Then
        Text5.Text = Text5 & " canta"
    End If
   
    If corre.Value = 1 Then
        Text5.Text = Text5 & " Corre"
    End If
End Sub



seba123neo

Cita de: skullptenes algun manual de visual??? porqeu hay cosas muy basicas como estas y no las sabes integrar... deberias leer un poco mas de funciones y calculos con vb...

verdad...
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

& eDu &

Para el tres añades 3 Textbox
1 commandbuton
1 listbox

y el siguiente codigo

Código (vb) [Seleccionar]
Private Sub Command1_Click()
On Error Resume Next
List1.AddItem Text1.Text - 1
List1.AddItem Text2.Text - 1
List1.AddItem Text3.Text - 1
Error:
End Sub

ThonyMaster

Sin Firma

ThonyMaster

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]
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
Sin Firma

seba123neo

ponele en la propiedad passwordchar del textbox el caracter *

saludos.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

ThonyMaster

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

ThonyMaster

pana disculpa pero como seria para que en la parte del nombre en ese text solo reconozca letras?? y cuando pase el mouse por una imagen la imagen se mueva o algo asi como seria eso??
Sin Firma

seba123neo

mira lo que preguntas esta en todos lados y hay muchas formas de validar solo letras,una forma rapida podes hacerlo asi:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub


despues hay otras formas ,donde podes validar las letras que solo vos quieras,usandola funcion InStr...buscalas que estan por ahi.

y lo de la imagen explicate mas porque no se que queres hacer bien...

saludos.

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

ThonyMaster

gracias pana usted sabe okis!!!

weno lo de la imgen es que por esjemplo yo pongo una igen cualqiera en un formulario y cuando pasas el mouse por encima de ella la imagen se vea como sobresaliente como cuando vas a presionar un boton!!
Sin Firma