Mensajes

[youtube=425,350]http://www.youtube.com/watch?v=iMTvopHErY4[/youtube]

P.D.: Las etiquetas de youtube no aparecen en el tema del foro que uso xS.

[youtube=425,350]http://www.youtube.com/watch?v=pjXYOPYP6Oc[/youtube]

P.D.: Las etiquetas de youtube no aparecen en el tema del foro que uso xS.

.
Es mas facil de lo que parece

Código (vb) [Seleccionar] Expandir



Dim ArrayStr() as byte
ArrayStr = strconv("Hola Mundo",vbfromunicode) ' la inversa es con vbunicode



Para Re-Dimensionar el array usa redim preserve  y / o solo redim

Sangrientas Lunas!¡.
.

.
aaa yo pensaba que se modificaban bytes del exe o algo similar, pero fue mas facil... registro de windows.

Sangrientas Lunas!¡.
.

bueno ademas estuve checkando y la funcion rgb que viene el visual, pide paramentros integer, bueno eso no es pretexto, pero ademas es mejor comerese 3 bytes para poder sumarles y restarles numeros sin que ocurra un error

por eso yo también lo declare en integer jem

Nota: Casi nos pega cobein xS

.
Tengo una pregunta y es como puedo actualizar información en el UserControl después de invocar un proceso de un modulo de clase, ando trabado en esto xP

en el user control tengo algo parecido a esto

Código (vb) [Seleccionar] Expandir



Public ListItems                    As New ClsListItems

...
Otros Procesos
...



posteriormente en un form dibujo el control de usuario y le invoco

Código (vb) [Seleccionar] Expandir



usercontrol.ListItems.add ...



Después de invocar esto como se podría actualizar en el UserControl, a si tal cual lo hace el ListView de microsoft?.

Nota: se que las variables no ejecutan procesos pero... ya me atore jajaja... lo peor quiero es que quiero organizar esto de buena forma, y poder manipular el UserControl de forma accesible... posiblemente con un hook ¬¬"

Sangrientas Lunas!¡.
.

.
Si te sirve esto lo puedes usar, es un modulo de clase que acabo de hacer para repetir un Proceso X cantidad de Veces, mostrando a su vez el porcentaje de ejecuciones efectuadas.

Código (vb) [Seleccionar] Expandir



'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////

Option Base 0
Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Event PorcentajeEjecutado(Porcentaje As String, Cancel As Boolean)

Public Function ReplicarAccion(ObjDestino As Object, NombreDeProceso As String, CantidadDeReplicas As Integer, EsperaEntreReplicas As Integer, ParamArray Argumentos() As Variant) As Variant()
Dim Contador                    As Long
Dim ProcesoCompletado           As String
Dim Cancel                      As Boolean
Dim Res()                       As Variant

    If ObjDestino Is Nothing Then Exit Function
   
    ReDim Res(CantidadDeReplicas - 1)
   
    Do: DoEvents
       
        If IsMissing(Argumentos) Then
            Res(Contador) = CallByName(ObjDestino, NombreDeProceso, VbMethod)
        Else
            Res(Contador) = CallByName(ObjDestino, NombreDeProceso, VbMethod, Argumentos())
        End If
       
        Contador = Contador + 1
        ProcesoCompletado = FormatNumber(Contador * 100 / CantidadDeReplicas, 2)
       
       
        RaiseEvent PorcentajeEjecutado(ProcesoCompletado, Cancel)
        If Cancel Then Exit Do
       
        Call Sleep(EsperaEntreReplicas)
       
    Loop Until Contador = CantidadDeReplicas
   
    ReplicarAccion = Res
   
End Function



Ejemplificacion:

Código (vb) [Seleccionar] Expandir



'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Option Base 0
Option Explicit

Private WithEvents ReplicarProcesos             As ClsRepliProcess

Private Sub Form_Load()

Dim Res()                       As Variant
Dim index                       As Integer

    Set ReplicarProcesos = New ClsRepliProcess
   
    Res = ReplicarProcesos.ReplicarAccion(Me, "HolaMundo", 75, 10)
   
    For index = LBound(Res) To UBound(Res)
        Debug.Print Res(index)
    Next index
   
End Sub

Public Function HolaMundo() As Long

    Randomize
    HolaMundo = Rnd * 10
   
End Function

Private Sub ReplicarProcesos_PorcentajeEjecutado(Porcentaje As String, Cancel As Boolean)

    Debug.Print Porcentaje
   
End Sub

Private Sub Form_Unload(Cancel As Integer)

    Set ReplicarProcesos = Nothing
   
End Sub



Código [Seleccionar] Expandir


    If Sleep(500) Then
       progressbar.Value = 20
       If Sleep(500) Then
           progressbar.Value = 40
           If Sleep(500) Then
               progressbar.Value = 60
               If Sleep(500) Then
                   progressbar.Value = 80
                   If Sleep(500) Then
                       progressbar.Value = 100
                       If Sleep(500) Then
                           MsgBox "La Cuenta ha sido bloqueada con exito", vbInformation, "[CPH] Msn Freezer: La cuenta " & text1 & " ha sido bloqueada con exito"
                        End If
                    End If
                End If
            End If
        End If
    End If


O.O!¡

[Personas()]

Personas() es una matriz/vector?, de cuantas dimensiones la tienes?

usa una estructura declarada en una matrix

recien acabo de intentar poniendo 1 to 3 y funciona. Entonces no puedo declararlo infinito?

solo de forma indefinida el inficinito ni una pc q conosca llega a tanto a si q ese termino referidoa a una pc no es valido.

Lo puedes declarar de forma indefinida es decir

dim matrix() as tipodato

redim matrix(cantidad)  ' redimenciona y vacia los datos

o

redim preserve matrix(cantidad) ' redimenciona y preserva los datos anteriores de forma intacta

Para eliminar o vaciar por completo usas

erase matrix

Notase que cantidad puede ser un numero 0 hasta X ( 0 to X ) o de Y to X siendo Y<X

Sangrientas Lunas!¡.y
.