Visual Basic Foro

Programación => Visual Basic .NET / C# => Mensaje iniciado por: ADONAIRAFA en Junio 07, 2011, 08:43:49 pm

Título: Form con fondo Degradado
Publicado por: ADONAIRAFA en Junio 07, 2011, 08:43:49 pm

Saludos a todos !!!

Aquí tengo otro pequeño aporte (para aquellos que quieren darle a los forms de sus aplicaciones algo de efecto estético, sin comprometer la funcionalidad y los recursos), para que estas sean un poco menos "rústicas" (por así decirlo).

El código no es nada del otro mundo, y he aquí en las versiones VB 6.0 y VB 9.0 (VB 2008):

VB 6.0:

Private Sub Form_Resize()
       Cls
       AutoRedraw = True
       DrawStyle = 6
       DrawMode = 13
       DrawWidth = 2
       ScaleMode = 3
       ScaleHeight = (256 * 2)
       For i = 0 To 255
            Line (0, Y)-(Width, Y + 2), RGB(i, 0, 0), BF
            Y = Y + 2
       Next i
End Sub

Como pueden ver, se emplea en el evento Resize del Form. Se puede variar los parámetros de RGB(i, 0, 0) y así jugar con los efectos del color. Se puede ver que es más fácil que darle un tiro al piso ;D
______________________________________________________________________________

Ahora en VB 9.0 (VB 2008):

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
              Dim Rect As Rectangle = New Rectangle(0, 0, Frm.Width, Frm.Height)
              Dim LinearBrush As Drawing2D.LinearGradientBrush = _
                     New Drawing2D.LinearGradientBrush(Rect, Color.MidnightBlue, Color.RoyalBlue, _
                     Drawing2D.LinearGradientMode.Vertical)
              Dim g As Graphics = e.Graphics
              g.FillRectangle(LinearBrush, 0, 0, Frm.Width, Frm.Height)
End Sub

Aquí se usan los métodos Rectangle, Drawing2D.LinearGradientBrush(), Drawing2D.LinearGradientMode.Vertical, Graphics y FillRectangle. En el evento Paint del Form.

Se pueden jugar con los parámetros para los colores, en este ejemplo, Color.MidnightBlue es el color desde donde se comienza la degradación, y Color.RoyalBlue es el color donde finaliza.

Espero les sirva de algo.
Saludos !!!

Manuel F. Borrego S. 8)
Barcelona, Edo. Anzoátegui - Venezuela

Título: Re:Form con fondo Degradado
Publicado por: YAcosta en Junio 07, 2011, 09:05:35 pm

SeudoCodigo
Empiezo desanimado.
Cuando veo el código de .Net a veces me animo a estudiarlo, pero cuando lo vuelvo a ver nuevamente me desanimo... debe ser la edad. Por ejemplo, como seria este codigo en .Net?:

Código VB6:

Private Sub EstadoAnimicoYvanB()
Dim Animado       As Boolean
Dim TimePiensa    As Integer
Dim Conclusion    As String

Animado = True
TimePiensa = 10

For i = 1 To TimePiensa
   If Animado Then
      Accion = "Quiero estudiar, se ve interesante, hay que estar a la vanguardia"
   Else
      Accion = "Mucho código para hacer lo mismo, pero claro es otra plataforma, " & _
                    "quiero sub contratar!!! también odio Java jaja"
   End If
   Animado = Not Animado
Next i
End Sub

MsgBox (Accion)


;D (broma)