Mensajes

Manuales, tutoriales y ejemplos

Recopilación de enlaces de Visual Basic

Menos mal que los pones raul, los escondes de tal manera que es casi imposible dar con ellos...

DoEvents!

La única solución que vi 100% efectiva, fue hacer un hook para detectar cuando se abría, entonces lo cerraba y ya está.
Lo del registro es verdad que da problemas.

DoEvents!

[CreateRoundRectRgn()]

y con CreateRoundRectRgn() se podría hacer con bordes redondeados.

DoEvents!

¿Para qué tanta variable?

Código (vb) [Seleccionar] Expandir


Dim i&

For i = 1 To ListView1.ListItems.Count
    ListView3.ListItems.Add(,,ListView1.ListItems(i)).SubItems(1) = (CInt(ListView2.ListItems(i).SubItems(1)) + CInt(ListView1.ListItems(i).SubItems(1)))
next i
¿Así funciona?

DoEvents!

.
Actualice el código de mi función.

Temibles Lunas!¡.

Muy bueno, buen trabajo.
Resulta muy divertido empezar a sacar versiones de una misma cosa a ver quien lo hace mejor.
Veo que te basaste en la mía...

DoEvents!

[Variant]

Supongo que me has dejado la función como Variant y las variables como Variant.
Ya dije en el test que cambié un par de cosas en mi función.
¿Se puede saber que cambiaste en tu test?

DoEvents!

[@el-brujo]

Gracias a ambos por los apoyos.

Por cierto @el-brujo, te envié un mensaje privado, es importante.

DoEvents!

[P.A.U.]

... la P.A.U. (Prueba de Acceso Universitaria) o Selectividad o como la queráis llamar.
Quedan sólo dos días, abro este post para saber si alguien más se va a examinar en España y cómo lleva la materia.


DoEvents!

[lvcsplit]

.
OK, yo pensaba que decias por el array de stRangos (lvcsplit) .

No hagas el test de esa manera,:

estas aplicando la relación:

Variable -> a -> Variable

la debes aplicar

(Miembro de clase)Propiedad -> a -> Variable

La diferencia radica en que en una no hay PILA de datos y en otra si.

Dulces Lunas!¡.

Sería genial que la técnica esa la emplearas también con vArray(), puesto que las estructuras pesan 8 Bytes.
Es cierto lo que dices, en el test no conté con eso...
Está bien como está.

Pd1:

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

Public Property Get maxval() As Long
'   //  Obtiene el limite superior de los numeros a generar de manera aleatoria sin repetir.
    minval = lcvalmax '// Sería maxval
End Property


Pd2: Estaría genial que pusieras más ejemplos usando todas las propiedades para que a la gente le quedara más claro.

Pd3:

P.D.: Psyke1 -> Estoy saturado de tarea... lo bueno que ya entro para el ciclo vacacional en 5 días.

Ook, comienza la cuanta atrás...

DoEvents!

[RtlMoveMemory()]

Algo así, por ejemplo:

Código (vb,20,19,18,34) [Seleccionar] Expandir


'...

Public Property Get GetNumRandom() As Long
'   //  Genera un numero aleatorio sin repetir de acuerdo a un rango de valores dados.
Dim lindex          As Long
Dim lu              As Long
Dim lret            As Long
   If (bChange = True) Then
       Call Fixnumbers(lcvalmin, lcvalmax)
       Call Reset
   End If
   If (GetMore = True) Then
       lindex = NumRandom(0, UBound(lvcsplit))
       lret = NumRandom(lvcsplit(lindex).lValIni, lvcsplit(lindex).lValEnd)
       SeparateRange lret, lindex, lvcsplit
       If (Itsarrayini(VarPtrA(lacexcep)) = True) Then
           lu = UBound(lacexcep) + 1
           If (lu Mod &H3FF) = 0 Then '# si la matriz tiene 1024 elementos (lo puedes hacer con And también)
               ReDim Preserve lacexcep(0 to (lu + &H400)) '# le añadimos 1024 más...
           End If
       Else
           lu = 0
           Redim lacexcep(0)
       End If
       lacexcep(lu) = lret
       GetNumRandom = lret
   End If
End Property

'...

Private Sub Class_Initialize()
'   //  Constructor de la clase, no tengo por que hacer lo siguiente pero como me estoy adaptando a un standart lo hare.
   ReDim lacexcep(&H3FF) '# iniciamos la matriz con 1024
   bChange = False
End Sub


En cuanto a lo de copiar la matriz...
Hice este test y... ¡sorpresa!
Gana RtlMoveMemory()

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (ByVal Destination&, ByVal Source&, ByVal Length&)

Private Sub Form_Load()
Const Max& = 999990
Dim q&, a&(Max), b&(), t As New CTiming
   Me.AutoRedraw = True
   
   ReDim b&(Max)
   
   For q = 0 To Max
       a(q) = q
   Next q
   
   t.Reset
   RtlMoveMemory VarPtr(b(0)), VarPtr(a(0)), (Max + Max + Max + Max + 4) '// Procuro evitar multiplicaciones...
   Me.Print "RtlMoveMemory", t.sElapsed
   
   ReDim b&(Max)
   
   t.Reset
   b = a
   Me.Print "Igualación", , t.sElapsed

  '// Con Set me tiraba error... xP
End Sub

Resultado:


DoEvents!