[ayuda] Problema con visualización de form
Publicado por Chaoss (1 intervención) el 01/04/2016 23:49:11
Buenas gente, molesto con un pequeño pero incomodo problema que tengo en Visual Studio 2015.
Estoy intentando programar un formulario, haciendo yo mismo la interfaz, sin bordes (FormBorderStyle = none), pero a la hora de ejecutar el programa los bordes de lo que sería la imagen png que uso de fondo, se ve muy mal, como si tuviera un color de fondo y se haya cortado brutamente, voy a mostrar una foto de ejemplo:
Usé muchas imágenes, tanto hechas por mí como descargadas, con todo es igual, y es muy raro por que antes no me pasaba. Probé varios códigos y ninguno funcionó. Los ultimos que usé fueron:
En el load del form, y el otro:
También probé lo del transparency key pero tampoco funcionó.
Voy a probar descargando algún visual mas viejo, alguien sabe algo para solucionarlo?
Desde ya, muchas gracias!
Estoy intentando programar un formulario, haciendo yo mismo la interfaz, sin bordes (FormBorderStyle = none), pero a la hora de ejecutar el programa los bordes de lo que sería la imagen png que uso de fondo, se ve muy mal, como si tuviera un color de fondo y se haya cortado brutamente, voy a mostrar una foto de ejemplo:
Usé muchas imágenes, tanto hechas por mí como descargadas, con todo es igual, y es muy raro por que antes no me pasaba. Probé varios códigos y ninguno funcionó. Los ultimos que usé fueron:
1
2
3
Me.BackColor = Nothing
TransparencyKey = BackColorMe.FormBorderStyle = FormBorderStyle.None
En el load del form, y el otro:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
Inherits System.Windows.Forms.Form
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Aca tiene que cargar su imagen de fondo...
Dim imagen As Image = me.backgroundimage
Me.BackgroundImage = imagen
Me.Height = imagen.Height
Me.Width = imagen.Width
Dim mibitmap As Bitmap = CType(imagen, Bitmap)
'Le paso a la funcion la imagen el bitmap de fondo y el color transparente ( En este caso tomo el color del pixel 0,0 del bitmap)
'Dicha función me retorna la región de la imagen para poder asignarla a la región del formulario
Me.Region = ObtenerRegionDelBitmap(mibitmap, mibitmap.GetPixel(0, 0))
End Sub
Private Function ObtenerRegionDelBitmap(ByVal MiImagen As Bitmap, ByVal ColorTransparente As Color) As Region
Dim RegionLocal As Region
If MiImagen Is Nothing Then Return RegionLocal
Dim ColorDeFondo As Color = ColorTransparenteDim Largo As Integer = MiImagen.Height - 1
Dim Ancho As Integer = MiImagen.Width
Dim Fila As Integer
Dim Columna As Integer
RegionLocal = New Region(New Rectangle(0, 0, 0, 0))
For Fila = 0 To LargoDim ColumnaComienzo As Integer = -1
Dim ColumnaFin As Integer = -1
For Columna = 0 To Ancho If Columna = Ancho ThenIf ColumnaComienzo <> -1 Then
ColumnaFin = ColumnaDim regUnion As New Region(New Rectangle(ColumnaComienzo, Fila, ColumnaFin - ColumnaComienzo, 1))
RegionLocal.Union(regUnion)
regUnion = NothingEnd If
Else
If Not MiImagen.GetPixel(Columna, Fila).Equals(ColorDeFondo) Then
If ColumnaComienzo = -1 Then ColumnaComienzo = Columna
ElseIf MiImagen.GetPixel(Columna, Fila).Equals(ColorDeFondo) Then
If ColumnaComienzo <> -1 Then
ColumnaFin = ColumnaDim regUnion As New Region(New Rectangle(ColumnaComienzo, Fila, ColumnaFin - ColumnaComienzo, 1))
RegionLocal.Union(regUnion)
regUnion = NothingColumnaComienzo = -1
ColumnaFin = -1
End If
End If
End If
Next
Next
Return RegionLocal
End Function
También probé lo del transparency key pero tampoco funcionó.
Voy a probar descargando algún visual mas viejo, alguien sabe algo para solucionarlo?
Desde ya, muchas gracias!
Valora esta pregunta
0