[Duda] Imagen en el Form

Iniciado por SγиtαxEяяoя, 26 Mayo 2013, 08:39 AM

0 Miembros y 5 Visitantes están viendo este tema.

SγиtαxEяяoя

hola, intentando jugar con las propiedades del form...

logre hacer esto..



Pero me fijo en los bordes tan robustos que tiene la imagen .PNG

hay alguna forma de "pulir" los bordes.. para que queden finos

PD:La imagen esta en la mejor calidad... lo probe con otros fondos





Eleкtro

Ese es el problema de usar un WindowsForm con transparencia y PNG's con transparencia...

Puedes perfeccionarlo con API's: [SOURCE] Splat

Pero yo personálmente no te recomiendo que sigas con este tema... deberías dejarlo para cuando aprendas un poco más.

Saludos








z3nth10n

#2
Yo también estoy con las transparencias... Yo uso:

Me.TransparencyKey = BackColor

Se supone que es ese el que tu usas?

Prueba a ver... Pero se supone que no va a hacer nada...  :-\




Es más, yo también tengo ese problema  :-(

Interesados hablad por Discord.

SγиtαxEяяoя

Se supone que lo que voy a tratar de hacer es

Quitar el formulario,

FormBorderStyle = None
y añado funciones de mover formulario desde la imagen

z3nth10n

Cita de: SyntaxError404 en 26 Mayo 2013, 17:24 PM
Se supone que lo que voy a tratar de hacer es

Quitar el formulario,

FormBorderStyle = None
y añado funciones de mover formulario desde la imagen

Yo justamente necesito ayuda con un WebBrowser cabrón, me podrías ayudar? xD  :silbar:
PD: Me refiero para mover el formulario desde el mismo.

Interesados hablad por Discord.

SγиtαxEяяoя

#5
con este codigo, puedes mover el formulario sin la barra donde se ubican los "ControlBox e Icon"

FormBorderStyle = None

   Dim formPosition As Point
   Dim mouseAction As Boolean
   Private Sub Form_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
       formPosition = New Point(Cursor.Position.X - Location.X, Cursor.Position.Y - Location.Y)
       mouseAction = True
   End Sub
   Private Sub Form_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove
       If mouseAction = True Then
           Location = New Point(Cursor.Position.X - formPosition.X, Cursor.Position.Y - formPosition.Y)
       End If
   End Sub
   Private Sub Form_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp
       mouseAction = False
End Sub



z3nth10n

#6
El picture se llama MyBase?  :rolleyes:
PD: Soy bastante noob/newbie. xD




A ver, si nos entendemos, ese code es para solo el Form, yo necesito algo que me vaya con un WebBrowser...

Si es que estoy invadiendo un post... Ayudadme por el mio...  :-\

Interesados hablad por Discord.

Eleкtro

@Seazoux
MyBase = Me (más o menos)

http://msdn.microsoft.com/en-us/library/20fy88e0%28v=vs.80%29.aspx





@SyntaxError404

No está muy perfeccionado el código, ¿Que pasa si mantienes pulsado botón central o botón derecho sobre el form?, no creo que quieras moverlo con esos botones.

Además imagino que tendrás controles en el form, y también querrás mover el Form al mantener presionado click izquierdo sobre un picturebox, aquí tienes mi versión:

Código (vbnet) [Seleccionar]
#Region " Move Form "

   ' [ Move Form ]
   '
   ' // By Elektro H@cker

   Public MoveForm As Boolean
   Public MoveForm_Mouse_Position As Point

   Public Sub MoveForm_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles _
       MyBase.MouseDown ' Add more handles here (Example: PictureBox1.MouseDown)

       If e.Button = MouseButtons.Left Then MoveForm = True : MoveForm_Mouse_Position = e.Location
   End Sub

   Public Sub MoveForm_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles _
       MyBase.MouseMove ' Add more handles here (Example: PictureBox1.MouseMove)

       If MoveForm Then Me.Location = Me.Location + e.Location - MoveForm_Mouse_Position
   End Sub

   Public Sub MoveForm_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles _
       MyBase.MouseUp ' Add more handles here (Example: PictureBox1.MouseUp)

       If e.Button = MouseButtons.Left Then MoveForm = False
   End Sub

#End Region


PD: ¿Y si te miras mi librería de snippets? hay códigos para todo lo que has necesitado hasta ahora: http://foro.elhacker.net/net/libreria_de_snippets_posteen_aqui_sus_snippets-t378770.0.html








z3nth10n

#8
Pero ayúdame con mi topic no? xDDD




PD: Te recomiendo que uses sombras con Photoshop:



Como puedes observar no hay ningún borde robusto...  :)

Interesados hablad por Discord.

Eleкtro

#9
Cita de: Seazoux en 26 Mayo 2013, 18:11 PMPero ayúdame con mi topic no? xDDD

Es que casi todos tus problemas se basan en que no lees nada, nisiquiera los mensajes de error.

ya te he contestado,
saludos.