elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  substraer color
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: substraer color  (Leído 4,644 veces)
FJDA


Desconectado Desconectado

Mensajes: 321


Ver Perfil
substraer color
« en: 21 Abril 2019, 22:03 pm »

estoy intentado substraer el color de una imagen.

El objetivo es superponer un objeto PictureBox y hacer transparentar una parte de color verde de modo que se puedan ver objetos que hay debajo del PictureBox.

He intentado esto, pero lo único que consigo es un agujero en el formulario, ya que al transparentar el color verde de la imagen que está en el picture, también transparenta el formulario y se ve el escritorio, o cualquier cosa que haya debajo del formulario de la aplicación.


Código
  1. Imports System
  2. Imports System.Runtime.InteropServices
  3. Imports System.Security
  4. Imports System.Drawing.Imaging
  5.  
  6. Public Class Form1
  7.    <DllImport("User32.dll", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
  8.    Private Shared Function SetLayeredWindowAttributes(ByVal HWND As IntPtr, ByVal crKey As Integer, ByVal bAlpha As Byte, ByVal dwFlags As Integer) As Integer
  9.    End Function
  10.    <DllImport("User32.dll", EntryPoint:="GetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
  11.    Private Shared Function GetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer) As Integer
  12.    End Function
  13.    <DllImport("User32.dll", EntryPoint:="SetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
  14.    Private Shared Function SetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
  15.    End Function
  16.  
  17.    Const GWL_EXSTYLE = (-20)
  18.    Const WS_EX_LAYERED = &H80000
  19.    Const GreenColor = &HFF00
  20.  
  21.    Private Function SubstractColor(ByVal HWND As IntPtr, Color As Integer) As Integer
  22.  
  23.        SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
  24.        SetLayeredWindowAttributes(HWND, Color, 0, &H1)
  25.        Return Nothing
  26.    End Function
  27.  
  28.    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  29.        SubstractColor(Me.Handle, GreenColor)
  30.    End Sub
  31. End Class

Mi Net no tiene la System.Windows.Media que creo serviría para esto.

https://docs.microsoft.com/en-us/dotnet/api/system.windows.media.color.subtract?view=netframework-4.8

Tampoco me funciona lo de backcolor = color. transparent, ni aún colocando imágenes con transparencia. Recuerdo que el objetivo es recortar o substraer una parte del PictureBox en la sección marcada por un determinado color.

Parece complicado


En línea

Serapis
Colaborador
***
Desconectado Desconectado

Mensajes: 3.348


Ver Perfil
Re: substraer color
« Respuesta #1 en: 22 Abril 2019, 00:10 am »

Qé tal si cambias tu código:
Citar
Private Function SubstractColor(ByVal HWND As IntPtr, Color As Integer) As Integer
 
        SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
        SetLayeredWindowAttributes(HWND, Color, 0, &H1)
        Return Nothing
    End Function

...por algo como lo siguiente:
Código
  1. Private sub SubstractColor(ByVal HWND As IntPtr, Color As Integer, optional byval GradoTr as byte=128)
  2.    SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
  3.    SetLayeredWindowAttributes(HWND, Color, GradoTr , &H1)
  4. End Function

Esto es, le estás diciendo que el nivel de transparencia sea total (valor 0), de momento prueba a invocarlo a mitad de transparencia entre el contenido y lo que haya debajo, es decir cada uno pone el 50% de la fuerza de su color. Puedes variar el valor entre 0 (transparente) y 255 (opaco).

p.d.: Prueba con valores de flags, 2 y 3 (no solo 1), de la api SetLayeredWindowAttributes, pués afectan a como se aplica a la imagen origen y la imagen subyacente...


« Última modificación: 22 Abril 2019, 00:38 am por NEBIRE » En línea

FJDA


Desconectado Desconectado

Mensajes: 321


Ver Perfil
Re: substraer color
« Respuesta #2 en: 22 Abril 2019, 00:42 am »

Qé tal si cambias tu código:
...por algo como lo siguiente:
Código
  1. Private sub SubstractColor(ByVal HWND As IntPtr, Color As Integer, optional byval GradoTr as byte=128)
  2.    SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
  3.    SetLayeredWindowAttributes(HWND, Color, GradoTr , &H1)
  4. End Function

Esto es, le estás diciendo que el nivel de transparencia sea total (valor 0), de momento prueba a invocarlo a mitad de transparencia entre el contenido y lo que haya debajo, es decir cada uno pone el 50% de la fuerza de su color. Puedes variar el valor entre 0 (transparente) y 255 (opaco).


Se agradece la respuesta pero esto que propones es incorrecto en todo caso.

Te lo explico
Citar
   <DllImport("User32.dll", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
    Private Shared Function SetLayeredWindowAttributes(ByVal HWND As IntPtr, ByVal crKey As Integer, ByVal bAlpha As Byte, ByVal dwFlags As Integer) As Integer
    End Function


El último valor que he marcado en rojo (dwFlags) de la función  SetLayeredWindowAttributes, puede tener dos valores según el objetivo a aplicar. Que serían

Código
  1.  
  2. Const LWA_COLORKEY As Long = &H1
  3. Const LWA_ALPHA As Long = &H2
  4.  

Si uso &H1  el valor de bAlpha para la función sólo significa una asignación de color para sustraer

Si aplico &H2  es decir LWA_COLORKEY, entonces  bAlpha representaría un valor de nivel de transparencia que afectaría a TODO el formulario y no solo al color.

Código
  1.  
  2.    Private Sub SubstractColor(ByVal HWND As IntPtr, Optional ByVal GradoTr As Byte = 128)
  3.        SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
  4.        SetLayeredWindowAttributes(HWND, IntPtr.Zero, GradoTr, LWA_ALPHA)
  5.    End Sub
  6.  



El código quedaría de la siguiente manera:
Código
  1. Imports System
  2. Imports System.Runtime.InteropServices
  3. Imports System.Security
  4. Imports System.Drawing.Imaging
  5.  
  6. Public Class Form1
  7.    <DllImport("User32.dll", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
  8.    Private Shared Function SetLayeredWindowAttributes(ByVal HWND As IntPtr, ByVal crKey As Integer, ByVal bAlpha As Byte, ByVal dwFlags As Integer) As Integer
  9.    End Function
  10.    <DllImport("User32.dll", EntryPoint:="GetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
  11.    Private Shared Function GetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer) As Integer
  12.    End Function
  13.    <DllImport("User32.dll", EntryPoint:="SetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
  14.    Private Shared Function SetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
  15.    End Function
  16.  
  17.    Const GWL_EXSTYLE = (-20)
  18.    Const WS_EX_LAYERED = &H80000
  19.    Const GreenColor = &HFF00
  20.    Const LWA_COLORKEY As Long = &H1
  21.    Const LWA_ALPHA As Long = &H2
  22.  
  23.    Private Sub SubstractColor(ByVal HWND As IntPtr, Optional ByVal GradoTr As Byte = 128)
  24.        SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
  25.        SetLayeredWindowAttributes(HWND, IntPtr.Zero, GradoTr, LWA_ALPHA)
  26.    End Sub
  27.    'Private Function SubstractColor(ByVal HWND As IntPtr, Color As Integer) As Integer
  28.    '    SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
  29.    '    SetLayeredWindowAttributes(HWND, Color, 0, LWA_COLORKEY)
  30.    '    Return Nothing
  31.    'End Function
  32.  
  33.    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
  34.        SubstractColor(CType(Me.Handle, IntPtr), 210)
  35.    End Sub
  36. End Class
  37.  


Pero esto aplica el nivel de transparencia a todo el formulario. Por desgracia no se puede limitar  a un determinado color.




y si hago lo siguiente hace las dos cosas, sustrae el color asignado al 100% dejándolo todo transparente, excepto el resto del formulario que queda semi-transparente

Código
  1. Private Sub SubstractColor(ByVal HWND As IntPtr, Optional ByVal GradoTr As Byte = 128)
  2.        SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
  3.        SetLayeredWindowAttributes(HWND, GreenColor, GradoTr, LWA_ALPHA + LWA_COLORKEY)
  4.    End Sub
  5.  


mejor:
Código
  1.    Private Sub SubstractColor(ByVal HWND As IntPtr, ByVal Color As Integer, Optional ByVal GradoTr As Byte = 128)
  2.        SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
  3.        SetLayeredWindowAttributes(HWND, Color, GradoTr, LWA_ALPHA + LWA_COLORKEY)
  4.    End Sub
  5.  



Encontré una persona que quiso hacer lo mismo aquí
http://forums.codeguru.com/showthread.php?477962-Tranparent-color


no se puede hacer, al menos de una forma sencilla, tengo alguna idea pero va para rato. Sería creando un objeto COM o una nueva ventana incrustada en la aplicación mediante código.
« Última modificación: 22 Abril 2019, 15:31 pm por FJDA » En línea

Serapis
Colaborador
***
Desconectado Desconectado

Mensajes: 3.348


Ver Perfil
Re: substraer color
« Respuesta #3 en: 22 Abril 2019, 20:08 pm »

Se agradece la respuesta pero esto que propones es incorrecto en todo caso.

Te lo explico...


Ante tu queja, te vuelvo a leer... y sí, leo tu no quieres que la transparencia se aplique sobre el escritorio. Me dejé llevar por las API que estás usando y que en general se utilizan para generar ventanas con forma irregular y transparencias en bordes, etc...

Hay varias formas de proceder, según lo que precises...
Por ejemplo puedes tener un objeto que admita gráficos (para el ejemplo un picturebox con una imagen precargada en su 'backgroundimage', si lo prefieres puede no tenerla y entonces lo que se verá será su BackColor), y puedes dibujar una imagen procedente de (por ejemplo) otro picturebox, aplicando transparencia a un color...

Aquí un código de ejemplo (y debajo algunas notas):
Código
  1. Private Sub BtnTransparentar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTransparentar.Click
  2.    Dim Iat As New System.Drawing.Imaging.ImageAttributes
  3.    Dim dstRect As Rectangle = PictureBox1.DisplayRectangle
  4.    Dim d2rect As Rectangle
  5.    Dim g As System.Drawing.Graphics = PictureBox1.CreateGraphics
  6.  
  7.    Iat.SetColorKey(Color.Fuchsia, Color.Fuchsia) ' un 1 unico color, puede definirse un rango...
  8.  
  9.    ' Nota como solo se transaprentará lo que se pegue de color rosa chicle, no lo que en destino ya hubiere de dicho color.
  10.    d2rect.Size = New Size(dstRect.Width \ 8, dstRect.Height \ 8)
  11.    d2rect.Location = New Point(60, dstRect.Height \ 6)
  12.    g.FillEllipse(Brushes.Fuchsia, d2rect)
  13.  
  14.    g.DrawImage(PictureBox2.Image, dstRect, 0, 0, PictureBox2.Width, PictureBox2.Height, GraphicsUnit.Pixel, Iat)
  15. End Sub
  16.  

La imagen 1 muestra ambos picturebox, en realidad el 2º está oculto en tiempo de ejcución, da igual si no existe y lo tomas desde recursos, o lo cargas directamente desde fichero, yo he ido a los simple para el ejemplo, por lo mismo ambas imágenes son casi del mismo tamaño (creo), hay varias sobrecargas para elegir el método que mejor se ajuste a tus necesidades, nota sin embargo que la sobrecarga que eleijas debe tener el parámetro "imageattributes", para aplicar como color transparente (colorKey), el color o el rango entre colores deseados.
También para el ejemplo, la imagen de origen es bmp, así para el color rosa chicle existe la seguridad que es ese, si se comprime la imagen a jpg, habrá múltiples colores muy similares...


La segunda imagen,  es como aparece al iniciar la ventana... nota que el tamaño de la ventana ahora está reducida, en la imagen anterior tenía el único propósito de mostrar el picturebox2.


La tercera imagen contiene ya aplicado pegar la imagen y aplicada la transparencia...
Nota que antes de pegar la imagen dibujamos una elipse del mismo color que el transparente (sobre una zona que luego queda transparente), para dejar claro que el color transparente se aplica solo sobre la imagen de origen.


Nota que el destino, puede ser igualmente cualquier otro objeto que admita control gráfico, el form, un panel, etc... y nota que siempre se mantiene el orden gráfico, es decir esto al ser un método, se pegará sienpre en la capa del fondo, es decir en el hDC del control, luego si hay un contenedor que tiene por ejemplo un botón encima, no afecta a su hDc, ese botón está por encima en la capa gráfica que el hDC del contenedor... por eso este método, no soluciona todos los casos, solo cuando es dentro del mismo objeto con gráficos al mismo nivel gráfico.

Pueden hacerse diferentes cosas, pero según de que se trate debe tomarse una orientación distinta, en general deberá usarse máscaras y utilizar operaciones de blitting usando las operaciones de rasterización adecuadas.
« Última modificación: 22 Abril 2019, 20:12 pm por NEBIRE » En línea

FJDA


Desconectado Desconectado

Mensajes: 321


Ver Perfil
Re: substraer color
« Respuesta #4 en: 23 Abril 2019, 01:50 am »

NEBIRE muchas gracias antes de nada.

Pero eso no es lo que intentaba. El objetivo es recortar, eliminar una porción de un control Picturebox dejándolo transparente de tal modo que se puedan ver otros controles que hubieran debajo del Picturebox,  SetLayeredWindowAttributes solo funciona con ventanas no funciona por ejemplo usando Picturebox1.Handle. DrawImage solo afecta a imágenes aplicadas al Picturebox pero no al objeto en cuestión.  

No existe en NET ningún método para hacer eso que yo sepa, la única manera es recurrir a APIs de Windows. Conozco una forma de recortar partes de un control pero si quiero darle una forma concreta es complicado, de ahí que partiera usando un color. Quizás con éste método pudiera eliminar solo los píxeles que contengan un determinado color.

Otra forma sería  creando un objeto COM y a esperar que SetLayeredWindowAttributes  solo afecte a este y no al formulario que lo contiene. También se me ocurre crear un formulario mediante código e incrustarlo en el formulario principal. A ver si esto funciona. Creo que otra forma sería usar GDI32 pero no se nada de eso parece complicado.




ya he probado la primera opción se podría decir que hace lo que quiero pero tiene una extraño comportamiento, además una vez elimino la zona verde se vuelve el picture se vuelve a dibujar, tiene autoredraw. También realiza el proceso muy lentamente ya que va eliminando pixel por pixel. Igualmente lo posteo por si alguien tiene curiosidad o lo puede arreglar.

Código
  1. Imports System
  2. Imports System.Runtime.InteropServices
  3. Imports System.Text
  4. Imports System.Drawing.Color
  5. Public Class Form1
  6.    <DllImport("gdi32")> _
  7.    Private Shared Function CreateRectRgn(ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
  8.    End Function
  9.    <DllImport("gdi32.dll", CharSet:=CharSet.Auto)> _
  10.    Private Shared Function CreateEllipticRgn(ByVal X1 As Integer, _
  11.                    ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
  12.    End Function
  13.  
  14.    <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
  15.    Private Shared Function SetWindowRgn(ByVal hwnd As IntPtr, ByVal hRgn As Integer, ByVal bRedraw As Boolean) As Integer
  16.    End Function
  17.  
  18.    <DllImport("user32.dll", Entrypoint:="SendMessageA", CharSet:=CharSet.Auto)>
  19.    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As StringBuilder) As IntPtr
  20.    End Function
  21.  
  22.    <DllImport("user32.dll", CharSet:=CharSet.Auto)>
  23.    Private Shared Function ReleaseCapture() As Integer
  24.    End Function
  25.  
  26.    <DllImport("gdi32.dll")>
  27.    Private Shared Function CreatePolygonRgn(ByVal lppt As Point(), ByVal cPoints As Integer, ByVal fnPolyFillMode As Integer) As IntPtr
  28.    End Function
  29.  
  30.  
  31.    Const WM_NCLBUTTONDOWN = &HA1
  32.    Const HTCAPTION = 2
  33.    Public Const ALTERNATE = 1
  34.  
  35.  
  36.    Public Structure POINTAPI
  37.        Dim x As Integer
  38.        Dim y As Integer
  39.    End Structure
  40.    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  41.        PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
  42.  
  43.  
  44.  
  45.    End Sub
  46.  
  47.    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  48.  
  49.        '//Obtiene la localización X Y de los píxeles de color Verde RGB(0, 255, 0)
  50.        Dim b As Bitmap = New Bitmap(PictureBox1.Image)
  51.        Dim xPosPixel As Integer = Nothing
  52.        Dim yPosPixel As Integer = Nothing
  53.  
  54.        Dim gp As New Bitmap(b.Width, b.Height, System.Drawing.Imaging.PixelFormat.Format32bppPArgb)
  55.        For Y As Integer = 0 To gp.Height - 1
  56.            For X = 0 To gp.Width - 1
  57.                Dim cw As New Color
  58.                cw = Color.Lime 'Verde RGB(0, 255, 0)
  59.                Dim curPixColor As Color = b.GetPixel(X, Y)
  60.                If curPixColor.ToArgb() = cw.ToArgb() Then
  61.                    'Elimina el píxel
  62.                    ClipPixel(X, Y)
  63.                End If
  64.            Next
  65.        Next
  66.  
  67.    End Sub
  68.  
  69.    Public Sub ClipPixel(ByVal X As Integer, ByVal Y As Integer)
  70.        Dim lpPts(12) As Point
  71.  
  72.        Dim hRustedRgn As Long  ' Rusted region
  73.        Dim WPicture As Integer
  74.        Dim HPicture As Integer
  75.        Dim X1, X2, Y1, Y2 As Integer
  76.       WPicture = PictureBox1.Width
  77.        HPicture = PictureBox1.Height
  78.        X1 = X : X2 = Y : Y1 = Y : Y2 = Y + 1
  79.  
  80.        ' Fill out the Rusted region points
  81.        ' The starting point
  82.        lpPts(0).X = 0 : lpPts(0).Y = 0
  83.        ' The width from the starting point
  84.        lpPts(1).X = WPicture : lpPts(1).Y = 0
  85.        ' The height from the Width
  86.        lpPts(2).X = WPicture : lpPts(2).Y = HPicture
  87.        ' The Height from the starting point
  88.        lpPts(3).X = 0 : lpPts(3).Y = HPicture
  89.        ' Create half of the square as a Triangle
  90.        lpPts(4).X = 0 : lpPts(4).Y = X1
  91.        lpPts(5).X = X1 : lpPts(5).Y = X1
  92.        lpPts(6).X = X1 : lpPts(6).Y = Y1
  93.        lpPts(7).X = X2 : lpPts(7).Y = Y1
  94.        lpPts(8).X = X2 : lpPts(8).Y = Y2
  95.        lpPts(9).X = X1 : lpPts(9).Y = Y2
  96.        lpPts(10).X = X1 : lpPts(10).Y = X1
  97.        lpPts(11).X = 0 : lpPts(11).Y = X1
  98.  
  99.        hRustedRgn = CreatePolygonRgn(lpPts, lpPts.Length, ALTERNATE)
  100.        Call SetWindowRgn(PictureBox1.Handle, hRustedRgn, True)
  101.    End Sub
  102. End Class
  103.  

Curiosamente este código en VB6 funciona mejor. En VB6 los objetos que hay debajo del Picture, como un botón se ven correctamente cuando eliminas la zona de color verde, además una vez eliminado el efecto se mantiene, pero en VB.NET justamente los objetos se vuelven de color verde y el picture se vuelve a redibujar. No funciona  :-\





« Última modificación: 23 Abril 2019, 05:01 am por FJDA » En línea

Serapis
Colaborador
***
Desconectado Desconectado

Mensajes: 3.348


Ver Perfil
Re: substraer color
« Respuesta #5 en: 23 Abril 2019, 16:19 pm »

Más que lo que estás haciendo, ayudaría saber qué es lo que quieres conseguir, porque con lo primero solo puede uno indicarte para corregir, mejorar, con lo segundo es posible reorientarlo de otra forma.

Yo veo (a bote pronto) 3 opciones a ver cual te interesa más.
- Se puede recurrir a las APIs de windows, no es tan complicado... aunque nunca queda tan elegante como usar 2 o 3 propiedades. El principal obstáculo es que solo sirve para ese 'proyecto' cuando lo quieras usar en otra parte, nuevamente tienes que copiar todo el código y posiblemente modificar, y posiblemente cualquier cambio de nuevo te vuelva a presentar complicaciones que quizás no tuvieres tan claro como solventar.

- Si como veo en tu código del mensaje anterior estás dispuesto a operar con los  píxels, el procedimiento se puede hacer mucho más rápido, pero no tengo claro que haces exactamente; trazar líneas, figuras geométricas 'pintadas de verde' donde se te antoje y que de inmediato se transaparente?. formas apilables que quitas y pones?. poner una imagen estática y recortar alrededor lo que no es la imagen?.
Básicamente se trataría de tener un backbuffer, con cada repaint que se exija se regenera y vuelca el contenido del backbuffer. el funcionamiento es idéntuico a usar una lupa... La ventaja sobre lo anterior es que quedará más claro qué hace cada cosa y eso te permite modificar a futuro pos si se precisa hacer cambios...

- También es posible usar controles OCX (de vb6) en NET (no sé hasta que versión sigue siendo posible porque no tengo instaladas las últimas). En tal caso tengo por ahí algún que otro control (de vb6) de muchos años atrás precisamente con transparencia para permitir varias cosas. sería cuestión de saber que propiedades necesitas para ajustar alguno a tales necesidades... luego lo usarías más o menos igual que usas el picturebox...

Pero aclaro, es mejor que señales que quieres conseguir y no tanto que estás haciendo, si no limitas la capacidad de ayudarte, porque lo focalizas en un punto que luego al final no tiene salida, porque no es lo que queires conseguir.
« Última modificación: 23 Abril 2019, 16:21 pm por NEBIRE » En línea

FJDA


Desconectado Desconectado

Mensajes: 321


Ver Perfil
Re: substraer color
« Respuesta #6 en: 27 Abril 2019, 17:10 pm »

perdona si no fui claro amigo

ahora he conseguido instalar vb6 para hacer un control ocx pero no consigo que funciona la propiedad picture, he seguido tutoriales pero cuando establezco el picture me dice uso de la propiedad no válida. aún estoy en elllo.
En línea

Serapis
Colaborador
***
Desconectado Desconectado

Mensajes: 3.348


Ver Perfil
Re: substraer color
« Respuesta #7 en: 27 Abril 2019, 19:37 pm »

Explícate mejor con eso de que "no consigo que funciona la propiedad picture".

La propiedad picture, permite alojar un bitmap.
en vb6, puedes asignar una imagen directamente desde fichero:

Código
  1. set objeto.picture = loadpicture(ruta)
Nota que en vb6 solo acepta bmp, rle, jpg, gif, si usas png, entonces hay que cargarla con APIs.

y luego puedes reasignarla entre objetos (son referencias no duplicados):
Código
  1. Set objeto2.picture = objeto1.picture
tambien puedes tener un picture sin asignarla a ningún objeto:
Código
  1. dim img as IpictureDisp
  2. set img= loadpicture(rutaimagen)
  3. ' o...
  4. Set img = objeto.picture
  5. ' o también...
  6. Set img = otroImg

Puede pegar parcialmente una imagen con paintpicture (es similar a bitblt)
Código
  1. objeto.paintpicture(objeto.picture, x,y, ancho, alto, orgX, orgY, orgAncho, OrgAlto, rasterOp) // típicamente vbCrscCopy

...si te atrancas con algo avisa...
En línea

FJDA


Desconectado Desconectado

Mensajes: 321


Ver Perfil
Re: substraer color
« Respuesta #8 en: 28 Abril 2019, 15:40 pm »

Con vb6 para crear el OCX hice esto.
Código
  1. Option Explicit
  2.  
  3. Public Property Get Picture() As Picture
  4.    Set Picture = UserControl.Picture
  5. End Property
  6.  
  7. Public Property Set Picture(ByVal New_Picture As Picture)
  8.    Set UserControl.Picture = New_Picture
  9.    PropertyChanged "Picture"
  10. End Property
  11.  
  12. 'Cargar valores de propiedad desde el almacén
  13. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  14.  
  15.    Set Picture = PropBag.ReadProperty("Picture", Nothing)
  16. End Sub
  17.  
  18. 'Escribir valores de propiedad en el almacén
  19. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  20.  
  21.    Call PropBag.WriteProperty("Picture", Picture, Nothing)
  22. End Sub

Esto funciona si asigno la imagen desde la página de propiedades de pero cuando hago esto con códgo:

Código
  1. Private Sub Command1_Click()
  2. UserControl_1.Picture = LoadPicture("")
  3. End Sub

Me dice eso de uso no válido de la propiedad



justo acabo de solucionar el problema viendo este foro que encontré en google
http://www.vbforums.com/showthread.php?560245-RESOLVED-Problem-with-LoadPicture-in-an-ActiveX-Control

Para que funcionara tenía que añadir SET
Código
  1. Private Sub Command1_Click()
  2. Set UserControl_1.Picture = LoadPicture("")
  3. End Sub
  4.  


Para evitar usar el procedimiento set añadí esto al código del activex y ya funcionó bien

Código
  1. Public Property Let Picture(ByVal New_Picture As Picture)
  2.    Picture1.Picture = New_Picture
  3.    PropertyChanged "Picture"
  4. End Property

ahora ya puedo seguir  :)
publicaré los resultados a ver si lo consigo. pero me gustaría no tener que usar un ocx y hacerlo todo desde net. Tengo alguna idea pero por ahora probaré esto.

javascript:void(0);


he creado ya el ActiveX pero SetLayeredWindowAttributes no aplica cambios en el ActiveX, no elimina la parte coloreada. paso a la siguiente opción  :-\
« Última modificación: 30 Abril 2019, 03:04 am por FJDA » En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: substraer color
« Respuesta #9 en: 5 Mayo 2019, 15:33 pm »

Sin leer más que el post principal, te respondo algunas cosas que no se si ya te habrán respondido:



estoy intentado substraer el color de una imagen.

Para volver transparente el color de una imagen no necesitas nada más que utilizar el método Bitmap.MakeTransparent...

Ejemplo:
Código
  1. Dim bmp As Bitmap = DirectCast(Bitmap.FromFile("C:\image.png"), Bitmap)
  2.  
  3. Dim clrs As Color() = { ' Colores específicos a substraer.
  4.    Color.FromArgb(255, 0, 0, 0),
  5.    Color.FromArgb(255, 255, 255, 255)
  6. }
  7.  
  8. For Each clr As Color In clrs
  9.    bmp.MakeTransparent(clr)
  10. Next
  11.  
  12. Me.PictureBox1.Image = bmp



El objetivo es superponer un objeto PictureBox y hacer transparentar una parte de color verde de modo que se puedan ver objetos que hay debajo del PictureBox.

Una forma sofisticada sería utilizando la clase Region. De este modo crearías a tu antojo la región visible del control, y la que no sería visible (es decir, la parte transparente de tu PictureBox).

Para crear la región de forma óptima, me refiero, para determinar que debe ser visible y que no, probablemente deberías analizar los píxeles de la imagen, cosa que puedes hacer mediante el método Bitmap.LockBits / Bitmap.UnlockBits y un búcle for. Hay muchos ejemplos en Internet. Para aplicar la región utilizarías la propiedad PictureBox.Region del control...


Una forma más rudimentaria pero igualmente eficaz dependiendo de tus requisitos, sería asignarle un control padre a los controles que quieres superponer a ese PictureBox. Simplemente utiliza la propiedad Control.Parent...

Ejemplo:
Código
  1. Button1.Parent = PictureBox1
  2. Button1.Location = New Point(0, 0)



Mi Net no tiene la System.Windows.Media que creo serviría para esto.

Doy por hecho que estás trabajando bajo la tecnología Windows Forms, pero nada te impide agregar una referencia a los ensamblados principales de la tecnología WPF (PresentationCore.dll, PresentationFramework.dll y WindowsBase.dll) para poder acceder al espacio de nombres System.Windows.Media y usar los miembros que provee.

De todas formas, para hacer eso, mejor sería que directamente lo hagas en WPF ya que te beneficiarás en lo que respecta a "transprencia real".



Código
  1.    <DllImport("User32.dll", EntryPoint:="GetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
  2.    Private Shared Function GetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer) As Integer
  3.    End Function
  4.  
  5.    <DllImport("User32.dll", EntryPoint:="SetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
  6.    Private Shared Function SetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
  7.    End Function

Las definiciones de esas funciones son incorrectas. Carece de sentido que asignes como punto de entrada la versión ANSI de una función, y luego le asignes el set de caracteres Unicode al marshaler. No es un problema en este caso, pero en funciones que manejen strings te daría problemas de codificación de texto al enviar o recibir argumentos, o directamente error al intentar llamar a la función. No hagas eso. Si no sabes muy bien como funcionan estas cosas entonces deberías informarte sobre la correcta utilización de los servicios de invocación de plataforma en .NET (Platform Invoke o P/Invoke en Inglés)...


Aparte, esas funciones en teoría solo te funcionarán correctamente bajo un proceso en modo de 32 bits. En su lugar deberías usar las funciones GetWindowLongPtr y SetWindowLongPtr para compatibilizar tu código bajo un proceso en modo 64 bits o neutral (AnyCPU), mientras que en 32 bits te seguiría funcionando igual...


Un saludo.
« Última modificación: 5 Mayo 2019, 15:42 pm por Eleкtro » En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
sin color
Diseño Gráfico
Kaizin 3 1,994 Último mensaje 4 Julio 2006, 12:00 pm
por Kaizin
fila impar, un color, fila par, otro color...
PHP
Luisango 5 5,427 Último mensaje 25 Marzo 2007, 12:23 pm
por дٳŦ٭
color vb
Programación Visual Basic
WestOn 5 2,397 Último mensaje 20 Octubre 2008, 08:39 am
por WestOn
Igualar color de figura al color de fondo progresivamente.
Programación General
ignorantev1.1 2 2,130 Último mensaje 25 Noviembre 2016, 04:30 am
por ignorantev1.1
[SOURCE-CODE] Color.NET - Color Picker
.NET (C#, VB.NET, ASP)
**Aincrad** 8 4,040 Último mensaje 21 Noviembre 2018, 05:14 am
por **Aincrad**
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines