revisa firewall de windows, agrega el puerto como regla para que lo excluya, antivirus que este bloqueando.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúImports System.Threading
Public Class Form1
Private Delegate Sub Progreso()
Private vHilo As Thread
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = 0
vHilo = New Thread(New ThreadStart(AddressOf Proceso))
vHilo.Start()
End Sub
Private Sub Proceso()
If Me.InvokeRequired Then
Me.Invoke(New Progreso(AddressOf Proceso))
Else
Do While True
TextBox1.Text += CInt(1)
Application.DoEvents()
Loop
End If
End Sub
End Class
Cita de: WHK en 29 Noviembre 2012, 14:39 PM
vaya mentira publicitaria, yo probé outlook.com y le falta mucho para alcanzar la profesionalidad de gmail, de hecho el correo de yahoo es mas cómodo y eficiente.
Cita de: EleKtro H@cker en 28 Noviembre 2012, 22:29 PM
hay alguna forma sencilla de exportar tu label trsnaparente como un nuevo controll DLL para instalarlo en la IDE?
Public Class Label_Transparent
Inherits System.Windows.Forms.Label
Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
Get
Dim cp As CreateParams = MyBase.CreateParams
cp.ExStyle = cp.ExStyle Or &H20
Return cp
End Get
End Property
Public Sub New()
Me.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
Me.SetStyle(ControlStyles.ResizeRedraw, True)
Me.SetStyle(ControlStyles.UserPaint, True)
Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, False)
End Sub
Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
If MyBase.BackgroundImage IsNot Nothing Then
MyBase.OnPaintBackground(pevent)
End If
End Sub
Protected Overrides Sub OnForeColorChanged(ByVal e As System.EventArgs)
Me.Refresh()
End Sub
End Class