Foros del Web » Programando para Internet » ASP Clásico »

imagen

Estas en el tema de imagen en el foro de ASP Clásico en Foros del Web. Hola quisiera saber si alguien me puede ayudar quisiera saber como hago para cambiar el tamaño de una imagen gracias...
  #1 (permalink)  
Antiguo 23/04/2003, 17:39
 
Fecha de Ingreso: diciembre-2002
Mensajes: 5
Antigüedad: 21 años, 5 meses
Puntos: 0
imagen

Hola quisiera saber si alguien me puede ayudar
quisiera saber como hago para cambiar el tamaño de una imagen



gracias
  #2 (permalink)  
Antiguo 23/04/2003, 19:14
Avatar de Mickel  
Fecha de Ingreso: mayo-2002
Ubicación: Lima, Peru
Mensajes: 4.619
Antigüedad: 22 años, 1 mes
Puntos: 7
En ASP???

Si quieres modificar el tamaño de una imagen por diseño puedes usar el PhotoEditor. Si quieres modificarlo en tiempo de ejecucion podrias asignarle un width y un height especificos(aunque se va a distorsionar).

Es algo asi lo que quieres?
__________________
No tengo firma ahora... :(
  #3 (permalink)  
Antiguo 23/04/2003, 19:19
 
Fecha de Ingreso: diciembre-2002
Mensajes: 5
Antigüedad: 21 años, 5 meses
Puntos: 0
gracias por interesarte en el tema
efectivamente eso es lo que quiero (en tiempo de ejecucion)
si me pudieras proporcionar algo de codigo en asp
te lo agradeceria infinitamente.
  #4 (permalink)  
Antiguo 23/04/2003, 19:20
Avatar de ElAprendiz  
Fecha de Ingreso: enero-2002
Ubicación: Maipu, Chile
Mensajes: 3.706
Antigüedad: 22 años, 4 meses
Puntos: 2
lo llamas asi
<%redimImage "fotos/mifoto.jpg", 50, 70, 100, 100%>

Sub redimImage(inImg, inW, inH, inMW, inMH)
maxWidth = CInt(inMW)
maxHeight = CInt(inMH)

dW = 0
dH = 0

h = CInt(inH) : w = CInt(inW)
dH = CInt(inH) : dW = CInt(inW)
If h >= maxHeight Or w >= maxWidth Then
If h >= maxHeight And w >= maxWidth Then
If h > w Then
dH=maxHeight
dW = CInt((w * dH) / h)
Else
dW = maxWidth
dH = CInt((h * dW) / w)
End If
ElseIf h > maxHeight And w < maxWidth Then
dH = maxHeight
dW = CInt((w * dH) / h)
ElseIf h < maxHeight And w > maxWidth Then
dW = maxWidth
dH = CInt((h * dW) / w)
End If
End If
Response.Write "<img src=""" & inImg & """ width=""" & dW & """ height=""" & dH & """ border=""0"">"
End Sub%>


un saludo
__________________
Manual de ASP Avanzado ;-)
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 00:48.