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.
Imports System
Imports System.Runtime.InteropServices
Imports System.Security
Imports System.Drawing.Imaging
Public Class Form1
<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
<DllImport("User32.dll", EntryPoint:="GetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
Private Shared Function GetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer) As Integer
End Function
<DllImport("User32.dll", EntryPoint:="SetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
Private Shared Function SetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
End Function
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const GreenColor = &HFF00
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
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
SubstractColor(Me.Handle, GreenColor)
End Sub
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 (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
Qé tal si cambias tu código:
CitarPrivate 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:
Private sub SubstractColor(ByVal HWND As IntPtr, Color As Integer, optional byval GradoTr as byte=128)
SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
SetLayeredWindowAttributes(HWND, Color, GradoTr , &H1)
End FunctionEsto 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...
Cita de: NEBIRE en 22 Abril 2019, 00:10 AM
Qé tal si cambias tu código:
...por algo como lo siguiente:
Private sub SubstractColor(ByVal HWND As IntPtr, Color As Integer, optional byval GradoTr as byte=128)
SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
SetLayeredWindowAttributes(HWND, Color, GradoTr , &H1)
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
Const LWA_COLORKEY As Long = &H1
Const LWA_ALPHA As Long = &H2
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.
Private Sub SubstractColor(ByVal HWND As IntPtr, Optional ByVal GradoTr As Byte = 128)
SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
SetLayeredWindowAttributes(HWND, IntPtr.Zero, GradoTr, LWA_ALPHA)
End Sub
El código quedaría de la siguiente manera:
Imports System
Imports System.Runtime.InteropServices
Imports System.Security
Imports System.Drawing.Imaging
Public Class Form1
<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
<DllImport("User32.dll", EntryPoint:="GetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
Private Shared Function GetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer) As Integer
End Function
<DllImport("User32.dll", EntryPoint:="SetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
Private Shared Function SetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
End Function
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const GreenColor = &HFF00
Const LWA_COLORKEY As Long = &H1
Const LWA_ALPHA As Long = &H2
Private Sub SubstractColor(ByVal HWND As IntPtr, Optional ByVal GradoTr As Byte = 128)
SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
SetLayeredWindowAttributes(HWND, IntPtr.Zero, GradoTr, LWA_ALPHA)
End Sub
'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, LWA_COLORKEY)
' Return Nothing
'End Function
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
SubstractColor(CType(Me.Handle, IntPtr), 210)
End Sub
End Class
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
Private Sub SubstractColor(ByVal HWND As IntPtr, Optional ByVal GradoTr As Byte = 128)
SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
SetLayeredWindowAttributes(HWND, GreenColor, GradoTr, LWA_ALPHA + LWA_COLORKEY)
End Sub
mejor:
Private Sub SubstractColor(ByVal HWND As IntPtr, ByVal Color As Integer, Optional ByVal GradoTr As Byte = 128)
SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
SetLayeredWindowAttributes(HWND, Color, GradoTr, LWA_ALPHA + LWA_COLORKEY)
End Sub
Encontré una persona que quiso hacer lo mismo aquí
http://forums.codeguru.com/showthread.php?477962-Tranparent-color (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.
Cita de: FJDA en 22 Abril 2019, 00:42 AM
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):
Private Sub BtnTransparentar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTransparentar.Click
Dim Iat As New System.Drawing.Imaging.ImageAttributes
Dim dstRect As Rectangle = PictureBox1.DisplayRectangle
Dim d2rect As Rectangle
Dim g As System.Drawing.Graphics = PictureBox1.CreateGraphics
Iat.SetColorKey(Color.Fuchsia, Color.Fuchsia) ' un 1 unico color, puede definirse un rango...
' Nota como solo se transaprentará lo que se pegue de color rosa chicle, no lo que en destino ya hubiere de dicho color.
d2rect.Size = New Size(dstRect.Width \ 8, dstRect.Height \ 8)
d2rect.Location = New Point(60, dstRect.Height \ 6)
g.FillEllipse(Brushes.Fuchsia, d2rect)
g.DrawImage(PictureBox2.Image, dstRect, 0, 0, PictureBox2.Width, PictureBox2.Height, GraphicsUnit.Pixel, Iat)
End Sub
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...
(https://i.imgur.com/OXSmIvq.jpg)
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.
(https://i.imgur.com/xAoprJK.jpg)
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.
(https://i.imgur.com/xQDyP6N.jpg)
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.
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.
Imports System
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Drawing.Color
Public Class Form1
<DllImport("gdi32")> _
Private Shared Function CreateRectRgn(ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
End Function
<DllImport("gdi32.dll", CharSet:=CharSet.Auto)> _
Private Shared Function CreateEllipticRgn(ByVal X1 As Integer, _
ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
End Function
<DllImport("user32.dll", CharSet:=CharSet.Auto)> _
Private Shared Function SetWindowRgn(ByVal hwnd As IntPtr, ByVal hRgn As Integer, ByVal bRedraw As Boolean) As Integer
End Function
<DllImport("user32.dll", Entrypoint:="SendMessageA", CharSet:=CharSet.Auto)>
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As StringBuilder) As IntPtr
End Function
<DllImport("user32.dll", CharSet:=CharSet.Auto)>
Private Shared Function ReleaseCapture() As Integer
End Function
<DllImport("gdi32.dll")>
Private Shared Function CreatePolygonRgn(ByVal lppt As Point(), ByVal cPoints As Integer, ByVal fnPolyFillMode As Integer) As IntPtr
End Function
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Public Const ALTERNATE = 1
Public Structure POINTAPI
Dim x As Integer
Dim y As Integer
End Structure
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'//Obtiene la localización X Y de los píxeles de color Verde RGB(0, 255, 0)
Dim b As Bitmap = New Bitmap(PictureBox1.Image)
Dim xPosPixel As Integer = Nothing
Dim yPosPixel As Integer = Nothing
Dim gp As New Bitmap(b.Width, b.Height, System.Drawing.Imaging.PixelFormat.Format32bppPArgb)
For Y As Integer = 0 To gp.Height - 1
For X = 0 To gp.Width - 1
Dim cw As New Color
cw = Color.Lime 'Verde RGB(0, 255, 0)
Dim curPixColor As Color = b.GetPixel(X, Y)
If curPixColor.ToArgb() = cw.ToArgb() Then
'Elimina el píxel
ClipPixel(X, Y)
End If
Next
Next
End Sub
Public Sub ClipPixel(ByVal X As Integer, ByVal Y As Integer)
Dim lpPts(12) As Point
Dim hRustedRgn As Long ' Rusted region
Dim WPicture As Integer
Dim HPicture As Integer
Dim X1, X2, Y1, Y2 As Integer
WPicture = PictureBox1.Width
HPicture = PictureBox1.Height
X1 = X : X2 = Y : Y1 = Y : Y2 = Y + 1
' Fill out the Rusted region points
' The starting point
lpPts(0).X = 0 : lpPts(0).Y = 0
' The width from the starting point
lpPts(1).X = WPicture : lpPts(1).Y = 0
' The height from the Width
lpPts(2).X = WPicture : lpPts(2).Y = HPicture
' The Height from the starting point
lpPts(3).X = 0 : lpPts(3).Y = HPicture
' Create half of the square as a Triangle
lpPts(4).X = 0 : lpPts(4).Y = X1
lpPts(5).X = X1 : lpPts(5).Y = X1
lpPts(6).X = X1 : lpPts(6).Y = Y1
lpPts(7).X = X2 : lpPts(7).Y = Y1
lpPts(8).X = X2 : lpPts(8).Y = Y2
lpPts(9).X = X1 : lpPts(9).Y = Y2
lpPts(10).X = X1 : lpPts(10).Y = X1
lpPts(11).X = 0 : lpPts(11).Y = X1
hRustedRgn = CreatePolygonRgn(lpPts, lpPts.Length, ALTERNATE)
Call SetWindowRgn(PictureBox1.Handle, hRustedRgn, True)
End Sub
End Class
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 :-\
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.
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.
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:
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):
Set objeto2.picture = objeto1.picture
tambien puedes tener un picture sin asignarla a ningún objeto:
dim img as IpictureDisp
set img= loadpicture(rutaimagen)
' o...
Set img = objeto.picture
' o también...
Set img = otroImg
Puede pegar parcialmente una imagen con paintpicture (es similar a bitblt)
objeto.paintpicture(objeto.picture, x,y, ancho, alto, orgX, orgY, orgAncho, OrgAlto, rasterOp) // típicamente vbCrscCopy
...si te atrancas con algo avisa...
Con vb6 para crear el OCX hice esto.
Option Explicit
Public Property Get Picture() As Picture
Set Picture = UserControl.Picture
End Property
Public Property Set Picture(ByVal New_Picture As Picture)
Set UserControl.Picture = New_Picture
PropertyChanged "Picture"
End Property
'Cargar valores de propiedad desde el almacén
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set Picture = PropBag.ReadProperty("Picture", Nothing)
End Sub
'Escribir valores de propiedad en el almacén
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Picture", Picture, Nothing)
End Sub
Esto funciona si asigno la imagen desde la página de propiedades de pero cuando hago esto con códgo:
Private Sub Command1_Click()
UserControl_1.Picture = LoadPicture("")
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 (http://www.vbforums.com/showthread.php?560245-RESOLVED-Problem-with-LoadPicture-in-an-ActiveX-Control)
Para que funcionara tenía que añadir SET
Private Sub Command1_Click()
Set UserControl_1.Picture = LoadPicture("")
End Sub
Para evitar usar el procedimiento set añadí esto al código del activex y ya funcionó bien
Public Property Let Picture(ByVal New_Picture As Picture)
Picture1.Picture = New_Picture
PropertyChanged "Picture"
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 :-\
Sin leer más que el post principal, te respondo algunas cosas que no se si ya te habrán respondido:
Cita de: FJDA en 21 Abril 2019, 22:03 PM
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...
- Bitmap.MakeTransparent Method (System.Drawing) | Microsoft Docs (https://docs.microsoft.com/en-us/dotnet/api/system.drawing.bitmap.maketransparent?view=netframework-4.8)
Ejemplo:
Dim bmp As Bitmap = DirectCast(Bitmap.FromFile("C:\image.png"), Bitmap)
Dim clrs As Color() = { ' Colores específicos a substraer.
Color.FromArgb(255, 0, 0, 0),
Color.FromArgb(255, 255, 255, 255)
}
For Each clr As Color In clrs
bmp.MakeTransparent(clr)
Next
Me.PictureBox1.Image = bmp
Cita de: FJDA en 21 Abril 2019, 22:03 PM
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...
- Control.Region Property (System.Windows.Forms) | Microsoft Docs (https://docs.microsoft.com/en-us/dotnet/api/system.windows.forms.control.region?view=netframework-4.8)
- Region Class (System.Drawing) | Microsoft Docs (https://docs.microsoft.com/en-us/dotnet/api/system.drawing.region?view=netframework-4.8)
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:
Button1.Parent = PictureBox1
Button1.Location = New Point(0, 0)
Cita de: FJDA en 21 Abril 2019, 22:03 PM
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".
Cita de: FJDA en 21 Abril 2019, 22:03 PM
<DllImport("User32.dll", EntryPoint:="GetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
Private Shared Function GetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer) As Integer
End Function
<DllImport("User32.dll", EntryPoint:="SetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
Private Shared Function SetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
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)...
- Consuming Unmanaged DLL Functions (https://docs.microsoft.com/en-us/dotnet/framework/interop/consuming-unmanaged-dll-functions)
- Interop Marshaling (https://docs.microsoft.com/en-us/dotnet/framework/interop/interop-marshaling)
- Platform Invoke Examples (https://docs.microsoft.com/en-us/dotnet/framework/interop/platform-invoke-examples)
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...
- GetWindowLongPtr - Microsoft Docs (https://docs.microsoft.com/en-us/windows/desktop/api/winuser/nf-winuser-getwindowlongptra)
- SetWindowLongPtr - Microsoft Docs (https://docs.microsoft.com/en-us/windows/desktop/api/winuser/nf-winuser-setwindowlongptra)
Un saludo.
Si necesitas hacerlo desde NET, prueba con las sugerencias de
Elektro...
Respecto de vb6 (perdona que no te haya respondido antes, no me he percatado que respondiste hasta ahora).
Citar
Private Sub Command1_Click()
Set UserControl_1.Picture = LoadPicture("")
End Sub
Exacto, en vb6 la asignación de objetos es a través de
Set objeto = loquesea Citar
Para evitar usar el procedimiento set añadí esto al código del activex y ya funcionó bien
Set no es ningún procedimiento, es una instrucción propia de la sintaxis del lenguaje.
Un procedimiento implica código asociado que se ejecuta por debajo.
Una instrucción (como su nombre indica), simplemente instruye/advierte/notifica al compilador... (en este caso concreto) que se trata de un objeto, para que tenga en consideración el puntero de memoria, las referencias, y lo valide todo, etc... y de cara al programador para indicarle con claridad una diferencia tangible entre variables 'nativas' y las 'extendidas'...
Citar
Public Property Let Picture(ByVal New_Picture As Picture)
Picture1.Picture = New_Picture
PropertyChanged "Picture"
End Property
En definitiva, omitir el Set carece de consecuencias prácticas referentes al rendimiento, más bien es al revés, exige comprobaciones de tipo retrasadas a la compilación. Usando el Set, al compilar se verifica la asignación de objetos y por ende, una vez compilado evita hacer comprobaciones innecesarias...
Esto no es deseable, por que lo pasas por valor, que si tiene una pérdida de eficiencia. Fuerza a realizar más comprobaciones "Late In Time", de las necesarias...
Ten en cuenta que desde que la programación existe, la instrucción de asignar un valor a una variable es LET. La mayoría de los lenguajes la usaban en su tiempo y poco a poco fueron de sapareciendo de la mayoría (aún queda alguno que la utiliza).
Antes se usaban estas instrucciones de asignación, que hacen exactamente lo mismo que eliminando el Let.
Let b = 5
Let a = b
Let c = (a + 3)
Let picture1.picture = New_Picture
Pero al final el 'let' dejó de ser obligatorio... es opcional. Para aquellos que proceden del C, y se lían por el uso de los símbolos '=' en referencia a la distinción entre asignación y comparación, la conveniente aparición y uso del 'let' les resolvería muchas dudas... pero se perdió en BASIC a finales de los 80, por obviedad... igual que el 'Set' en NET, por la misma razón (solo que en NET 'Set' ni siquiera es opcional en tanto que el 'Let' si lo sigue siendo... si lo pones, NET no canta error, simplemente lo borra inmediatamente, para indicarte que 'no es necesario'...
Así tu código debiera ser:
'Public Property Let Picture(ByVal New_Picture As Picture)
Public Property Set Picture(ByRef New_Picture As Picture) ' ó mejor as IPictureDisp
Set Picture1.Picture = New_Picture
PropertyChanged "Picture"
End Property
p.d.: Olvidaba responderte a esto:
Citarhe creado ya el ActiveX pero SetLayeredWindowAttributes no aplica cambios en el ActiveX, no elimina la parte coloreada. paso a la siguiente opción
La idea de crear el ActiveX, es que ya por sí solo y sin mediación de nada más (cero APIs) tenga intrínsecamente la transparencia, tu solo te preocupará de cambiar alguna propiedad, como
la propiedad 'Picture' y la propiedad 'MaskColor' y punto (y eventualmente alguna propiedad más, relacionada, por ejemplo para que deje de actuar transparente y en un momento dado sea opaco, o vuelta a transparente... vamos según en algún momento interese que sea así o asá...).
P.d2: Te dije que si me señalabas que necesitas exactamente o qué propiedades precisas tener, podría modificarte un control para que se adapte a lo que necesitas...
Te pongo alguna captura de ejemplo:
En el primero se ven varias intancias de un control DisplayLCD, que permite tener una serie de dígitos, y señalar en otro color los decimales, elegir la base numérica (octal, decimal y hexadecimal, hacerlo transparente o no, el relieve del borde admite hundido, elevado, plano (de un color específico) o sin borde, así mismo se puede sincronizar con un timer para reflejar la hora (el timer se pone a 1000 ms. y cuando vence el tiempo, actualiza el contenido con el valor de la hora, luego cambia cada segundo), etc...
(https://i.imgur.com/FFHolsA.png)
En este otro se ven dos controles uno es un array de vértices 3d, que conecta a otros vértices, también transparente, que admite el giro en las 3 dimensiones... al caso muestra una figura dle ajedrez.
El otro es de texto... en la siguiente imagen se hace uso de desactivar/activar la transparencia cuando se pulsa/suelta el botón sobre las partes visibles de dicho control...
(https://i.imgur.com/oML5EjM.png)
(https://i.imgur.com/Xppl4Ne.png)
ahora estoy con otro programa este tema lo dejé apartado temporalmente cuando pueda me probaré lo que me habéis comentado
En cuanto a lo del ActiveX si le puse APIs.
tened paciencia porque dedico muy poquito tiempo a la programación