Ayuda con programas para visual basic 6

[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] Expandir

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]

tenes 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...

[& eDu &]

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

y el siguiente codigo

Código (vb) [Seleccionar] Expandir

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]

gracias !!

[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] 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

[seba123neo]

ponele en la propiedad passwordchar del textbox el caracter *

saludos.

[ThonyMaster]

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

[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??

[seba123neo]

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

Código [Seleccionar] Expandir

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.

[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!!