Mensajes

Cierto, me recuerda a esto que hice en mis comienzos:
http://goo.gl/u6wgr

También mira esto:
http://allapi.mentalis.org/apilist/AnimateWindow.shtml

DoEvents!

Es Width, no Widht...
Ahora no tengo mucho tiempo para revisar, pero no me funciona...

DoEvents!

Me alegro por ambos chicos!
A ver si se nota en la sección de vb6.

DoEvents!

[Option Explicit]

Para la segunda forma (sin Dim) no puedes tener Option Explicit declarado.
El Option Explicit, te avisa si utilizas una variable no declarada...
Sin él, todas las variables quedarían Variant cosa que no es aconsejable porque ocupa más espacio en la memoria que cualquier otro tipo de varibale, al ser la variable comodín. A parte que los arrays por defecto se crean de 0 to 10...
Además, sería un código mucho más desorganizado.

Más info: http://en.wikipedia.org/wiki/Variant_type



Conclusión:
Usa Option Explicit y declara todas las variables.

Un ejemplo:

Código (vb) [Seleccionar] Expandir


'código declarando variable
Option Explicit

Private Sub Form_Load()
Dim Número As Integer
   Me.AutoRedraw = True
   Número = 5
   Me.Print Número
   Número = 12
   Me.Print Número
End Sub

Código (vb,6) [Seleccionar] Expandir


'código sin declarar variable
Option Explicit

Private Sub Form_Load()
   Me.AutoRedraw = True
   Número = 5 ' Error - variable no definida
   Me.Print Número
   Número = 12
   Me.Print Número
End Sub

@79137913
No solo hay Private, Public y Dim.
Tambien hay Global, Static (y Const para las constantes... )

Más info: http://www.vbforums.com/showthread.php?t=468662

DoEvents!

[seba123neo]

Hola chicos:
Está a la vista que seba123neo [moderador de vb] no está muy activo que digamos, al menos en su sección correspondiente.
Cada dos por tres postea gente en Visual Basic que se equivoca de sección o hay comentarios inapropiados, temas que no llevan a ningún lado...
Yo reporto algunos casos, pero aún así, no creo que sea la solución.
Por tanto sugiero añadir otro moderador más a la sección.
Es solo mi opinión ¿que opinais? (sobretodo el staff  )

DoEvents!

Ya tienes a otro mas raul!!
Me encanta!

DoEvents!

[seba123neo]

Creo que esta sección esta necesitando un moderador más, ya no se lo ve muy seguido a seba123neo por estos lados, y ver este tipo de mensajes me suena agresivo.

Saludos.

Amén!
seba123neo! Where are you??

DoEvents!

@andresxdddd
Eso es vb.Net, tu sección es esta:
http://foro.elhacker.net/net-b62.0/

DoEvents!

Usa el buscador del foro,creo que Elemental Code posteo info sobre eso...

DoEvents!

[Recordar quitar comprobación en los límites de arrays al compilar!Debería haber tambien tests con cadenas laaaargas!]

Ya corregí la función ahora devuelve lo que tiene que devolver...  

Recordar quitar comprobación en los límites de arrays al compilar!
Debería haber tambien tests con cadenas laaaargas!

DoEvents!



Ninguna función vuestra se acerca tanto

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
Dim tmr As New CTiming
Const s1 As String = "elhacker"
Dim s As String
Dim x As Long
Dim pos As Long

   For x = 1 To 10000
       s = s & ChrW$(Rnd * 255)
   Next
   s = s & s1
   For x = 1 To 10000
       s = s & ChrW$(Rnd * 255)
   Next
   
   Me.AutoRedraw = True
   
   tmr.Reset
   pos = InStr(1, s, s1)
   Me.Print "Instr", "Ret :"; pos, tmr.sElapsed
   
   tmr.Reset
   pos = MrFrogInstrII(1, s, s1)
   Me.Print "MrFrog", "Ret :"; pos, tmr.sElapsed
End Sub



DoEvents!