ahora con un problema nueva.....


tengo esto hasta ahorita

Dim PROMEDIO As Integer
PROMEDIO = (Val(Text5) + Val(Text6) + Val(Text7)) / 3

If PROMEDIO >= 70 Then
Form2.Show
Form2.Text5 = PROMEDIOhasta aqui funsiona

"lo que no logro es hacer esto posible
tengo que ponerlo en algun evento?
o modificar una propiedad?"

Form2.Label6.Caption = APROBADO
ForeColor = &HC000&se supone que es color verde
End If

FORM2 POR que se captura en uno y muestra el resultado en otro
loco no??

en realidad no te entendi bien q es lo que quieres hacer.

pero para poder ponerle cambiarle el colo a un label es:

form2.label6.caption=aprobado
form2.label6.forecolor=&Hc000


espero te sirva o postea un poco mas clara tu duda

Iniciado por farit

"lo que no logro es hacer esto posible
tengo que ponerlo en algun evento?
o modificar una propiedad?"

Form2.Label6.Caption = APROBADO
ForeColor = &HC000&se supone que es color verde
End If

FORM2 POR que se captura en uno y muestra el resultado en otro

loco no??

Si no indicas el objeto a la hora de llamar a un metodo o propiedad este se aplica sobre el objeto sobre el que estas escribiendo el codigo, en este caso cuando llamas a ForeColor se lo estaras aplicando al Form1 que sera donde estas escribiendo el codigo.

Salu2...

graciasNO ESPERABA MENOS DE USTEDES


Charl

SE TRATA DE DOS FORM BASICAMENTE....

EN UNO INTRODUCES DATOS COMO NOMBRE, MATERIA Y 3 CALIFICACIONES.LUEGO AL DAR CLIC EN BOTON ACEPTAR
ENVIA LOS DATOS INTRODUCIDOS NOMBRE MATERIA Y EL PROMEDIO
A EL SEGUNDO FORMULARIO


ES AHI DONDE NO PUEDO QUE MEDIANTE UNA CONDICION(IF)
SI EL PROMEDIO ES MAYOR A 70 ENTONCES ...
(AQUI ES DONDE ENTRA EL PROBLEMA..)

ENVIE A UN LABEL "APROBADO" Y QUE SEA CON LETRAS COLOR VERDE

es facil hasta el punto en el que copia los textbox a otros
pero es en la condicion donde simpre tengo problemas

Salu2

podrias intentar de la sigueinte forma aver si te queda:

Código:

Dim PROMEDIO As Integer
PROMEDIO = (Val(Text5) + Val(Text6) + Val(Text7)) / 3

If PROMEDIO >= 70 Then

Form2.Label1 = "Aprobado"
 Form2.Label1.ForeColor = &HFF00&
 Form2.Show
Else
Form2.Label1 = "Reprobado"
 Form2.Label1.ForeColor = &HFF&
 Form2.Show

End If

espero te sirva mi ayuda saludos

solo lo tienes q adecuar con tus label.
loq te mande fue un ejemplo.

salu2

camarada otra duda deja un post