USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Criar negativo de Imagem
Postada em 30/1/2004 por ^HEAVY-METAL^            
Resumo: Criar o negativo de uma imagem à escolha.

Código:

<%@ Page Language="VB" Debug="True" %>
<%@ import namespace="system.drawing" %>  
<%@ import namespace="system.drawing.imaging" %>
<%  
    Dim binario As New system.drawing.bitmap(server.mappath  ("exemplo.jpg"))  
    Dim x,y,tmpCor As Integer  
    for y = 0 to binario.height-1    
        for x = 0 to binario.width-1  
            tmpCor=binario.GetPixel(x,y)        
            binario.SetPixel(x,y,color.FromARGB(255,255-tmpCor.r,255-tmpCor.g,255-tmpCor.b))  
        next
    next  
    response.contenttype="image/jpeg"  
    binario.save(response.outputstream, imageformat.jpeg)  
    binario.dispose()
%>

T+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página