Test Foro de elhacker.net SMF 2.1

Ojala les sirva ^^
1_Abrimos visual studio 2008(es el q utilizo yo), creamos un nuevo proyecto de tipo
formulario windows bueno aki la interfaz:
(http://img541.imageshack.us/img541/1614/64177759.jpg)

2_AKI el

Public Class Form1

   Private mouseOffset As Point
   Private isMouseDown As Boolean = False

Button1_Click(boton)
       Me.Close()
  'cierra el formulario
   End Sub

Evento MouseDown

       Dim xOffset As Integer
       Dim yOffset As Integer
       If e.Button = MouseButtons.Left Then
           xOffset = -e.X - SystemInformation.FrameBorderSize.Width
           yOffset = -e.Y - SystemInformation.CaptionHeight - _
                   SystemInformation.FrameBorderSize.Height
           mouseOffset = New Point(xOffset, yOffset)
           isMouseDown = True
       End If
   End Sub

Evento MouseMove

       If isMouseDown Then
           Dim mousePos As Point = Control.MousePosition
           mousePos.Offset(mouseOffset.X, mouseOffset.Y)
           Location = mousePos
       End If
   End Sub

Evento  MouseUp del formulario
       If e.Button = MouseButtons.Left Then
           isMouseDown = False
       End If
   End Sub

   Protected Overrides Sub OnPaint( _
      ByVal e As System.Windows.Forms.PaintEventArgs)
       Dim shape As New System.Drawing.Drawing2D.GraphicsPath
       shape.AddEllipse(0, 0, Me.Width, Me.Height)
       Me.Region = New System.Drawing.Region(shape)
   End Sub


End Class

bUENO asi +o - kedaria al ejecutarlo:
(http://img812.imageshack.us/img812/7214/43791164.jpg)

FaciLiT0
;-)

mmm creo que te equivocaste, esto es Visual Basic...

VB6*

Esto se se claramente que es VB.Net, por que dicen que es VB6?

Cita de: [D4N93R] en 24 Enero 2011, 18:37 PM
Esto se se claramente que es VB.Net, por que dicen que es VB6?

Ha sido movido :P