Cita de: dimitrix en 11 Mayo 2012, 18:03 PMen ese caso pones image/jp* o image/png
p1r4t0s Eso lo vi hace una semana, el problema es que no es compatible con muchos navegadores y no es muy exacto, por que quizás necesites que se sea JPG y no PNG.

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: dimitrix en 11 Mayo 2012, 18:03 PMen ese caso pones image/jp* o image/png
p1r4t0s Eso lo vi hace una semana, el problema es que no es compatible con muchos navegadores y no es muy exacto, por que quizás necesites que se sea JPG y no PNG.
Cita de: Deeo Raiser en 11 Mayo 2012, 21:06 PMEso es subjetivo, aunque depende que tanto lleves programando y ya te acostumbres a expresiones amontonadas
La idea es que el código sea fácil y rápidamente legible, en cuanto a "mucho codigo sin sentido", no lo comprendo, el cogido esta y cumple una función, en poner un if en una sola linea no se optimiza nada, mas que ahorrar renglones.
CitarEn cuanto a tu código, no solo le falto en End Sub, declaraste un procedimiento y le pasaste parámetros en ves de declarar una función, tampoco devuelve ningún valor, ademas faltan declarar variables. La idea estaba y funcionaba, pero el código estaba incompleto.Ni idea como estaba el código antes de la edición, pero tampoco hace falta que sea una función, con una simple llamada y ya. No falta ninguna variable
Borrar_Linea = Texto.Text
txtSource = Mid(txtSource.Text, 1, fopen - 1) & "goto" & Mid(txtSource, fopen + 10, Len(txtSource) - fopen - 10)
Cita de: EleKtro H@cker en 5 Mayo 2012, 12:39 PMDa la casualidad que el mismo inicio el mismo reto en la sección vb, por si alguien quiere ver
Reto iniciado por 79137913