Mensajes

por simple logica

Código (Vb) [Seleccionar] Expandir



   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Winsock1.RemoteHost = TextBox2.Text
        Winsock1.Connect()
        Winsock1.Listen()
    End Sub



Si conectas eres cliente si escuchas eres servidor, desde un punto Ambiguo

Es decir o conectas o escuchas( Connect o Listen, si es listen asigna un localPort y si es connect asina un remotehost y remoteport)

P.D.: Esto lo digo sin probarlo ya que se obvia!¡.

Dulces Lunas!¡.

[if Objeto is objeto then]

Código [Seleccionar] Expandir

If f Is FormCliente then

Código [Seleccionar] Expandir

If f.Name  = "FormCliente" then y funciona... Gracias BlackZeroX

Es mejor con   if Objeto is objeto then en lugar de if Objeto.Nombre = "Objeto" then pero si te sirvio asi estara bien xP

Dulces Lunas!¡.

[Sub-Foro]

ADO .NET, en el Sub-Foro .NET!¡ te ayudaran mejor!¡.

Dulces Lunas!¡.

Qué código implementas?, mucho no se te puede ayudar de esta manera!¡.

Dulces Lunas!¡.

[OJO el For Each]

Código (vb) [Seleccionar] Expandir



Dim f As Form
For Each f In Forms
   If f.ID = ID Then MsgBox "Cliente abierto"
Next



OJO el For Each recorrerá TODOS los Forms cargados y si alguno de estos no tiene la variable/Propiedad invocada te causara error así qué hay qué hacer esto!¡.

Código (vb) [Seleccionar] Expandir



Dim f As Form
For Each f In Forms
   if f is FormCliente then
       If f.ID = ID Then MsgBox "Cliente abierto"
   end if
Next



Ahora en el formulario "FormCliente" pega esto en el cabezal.

Código (vb) [Seleccionar] Expandir



option explicit

Public ID as string




P.D.: Puedes usar de igual forma la propiedad .Tag en lugar de una variable ID creada por ti!¡.

Dulces Lunas!¡.

Esta bonito pero la vdd que ver un ProgressBAr y no cuanto va pues como que me desiluiona asi que solo edite un poco el código:

Solo Reemplacen la funcion y listo!¡.

Código (Vb) [Seleccionar] Expandir



Public Sub DownloadFile(strURL As String, strDestination As String) 'As Boolean
Const CHUNK_SIZE        As Long = 1024
Dim intFile             As Integer
Dim lngBytesReceived    As Long
Dim lngFileLength       As Long
Dim strHeader           As String
Dim b()                 As Byte
Dim i                   As Integer
Dim AntSecond           As Integer
Dim Velocidad           As Long
Dim AntBytes            As Long
    With Inet1
        .URL = strURL
        .Execute , "GET", , "Range: bytes=" & CStr(lngBytesReceived) & "-" & vbCrLf
        While .StillExecuting
            DoEvents
        Wend
        strHeader = .GetHeader
    End With
    strHeader = Inet1.GetHeader("Content-Length")
    lngFileLength = Val(strHeader)
    DoEvents
    lngBytesReceived = 0
    intFile = FreeFile()
    Open strDestination For Binary Access Write As intFile
        AntSecond = Second(Time)
        Do
            b = Inet1.GetChunk(CHUNK_SIZE, icByteArray)
            Put intFile, , b
            lngBytesReceived = lngBytesReceived + UBound(b, 1) + 1
            lblEstado.Caption = Velocidad / 1024 & " kb/s (" & lngBytesReceived / 1024 & " kb-" & lngFileLength / 1024 & " kb)"
            If AntSecond <> Second(Time) Then
                Velocidad = lngBytesReceived - AntBytes
                AntBytes = lngBytesReceived
                AntSecond = Second(Time)
            End If
            DownloadProgress (Round((lngBytesReceived / lngFileLength) * 100))
            DoEvents
        Loop While UBound(b, 1) > 0
    Close intFile
End Sub



Sangriento Infierno Lunar!¡.

Solo un consejo esos For Each se pueden simplificar pasando a una Proceso externo  ( Función ).

Dulces Lunas!¡.

[Nothing]

Algo mas sencillo!¡.

Declara una variable del tipo del WebBrowser de forma publica y en cada cambio de pestaña le asignas a esta variable el control WebBrowser ( seria mas Optimo la asignacion por medio de una propiedad, ya que así sabes si dicha variable es igual a Nothing y desactivar los demás controles que tienen como objeto la manipulación del WebBrowser SOLO SI SE A ELIMINADO DICHA PESTAÑA Y DESCAGADO EL WEBBROWSER cagado dinamicamente!¡.)

Para que te quede entendible lo que he dicho seria que solo y unicamente de una variable que hace referencia a un WebBrowser se realisen dichos eventos ( Metele a los eventos Ty Catch cuando estes depurando Errores )

Dulces Lunas!¡.

Agrégala a referencias o como declaración API!¡.

Dulces Lunas!¡.

http://www.recursosvisualbasic.com.ar/htm/tutoriales/iconos-enlaces.htm

Dulces Lunas.