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.
Private Sub WebBrowser1_DownloadBegin()
ct = ct+1
End Sub
Private Sub WebBrowser1_DownloadComplete()
ct = ct-1
if ct = 0 then finish
End SubCita de: Bulld0z3r en 24 Febrero 2012, 14:57 PM
Alternativa 3, aprovechando la función de @79137913:
Código (vb) [Seleccionar]
Private Function MaxInArr(a() As Long) As Long
Dim max As Long
max=a(0)
For x = 1 To UBound(a)
If a(x) >max Then Max = a(x)
Next
MaxInarr=max
End Function
Saludos.
Private Function max4(a As Long, b As Long, c As Long, d As Long) As Long
Dim m1 As Long: Dim m2 As Long
If a > b Then m1 = a Else m1 = b
If c > d Then m2 = c Else m2 = d
If m1 > m2 Then max4 = m1 Else max4 = m2
End Function
Private Function MaxInArr(a() As Long) As Long
For x = LBound(a) To UBound(a)
If a(x) > MaxInArr Then MaxInArr = a(x)
Next
End Function
.
Public sub SendInformation()
Winsock1.senddata 5mbDatastring
Winsock2.senddata 5mbDataString
End SubCita de: Speeding en 9 Febrero 2012, 18:28 PM
You're asking him to use paste bin. So your answer is really stupid and not polite.
Private sub Winsock1 data arrival()
Do
doevents
Loop
end sub
Private sub winsock2 data arrival()
Debug.print "a"
end sub