Mensajes

Que tal a todos, he estado haciendo un proyecto en donde no tengo un formulario, solamente modulos, tengo el submain declarado mas o menos así

Código (vb) [Seleccionar] Expandir

Sub Main()
call CreateTimer ' en realidad no es lo que tiene, pero hago una llamada para crear un timer
End Sub

si lo dejaba asi creaba el timer y el prograba finalizaba por el end sub, le agregue un do while que nunca dejaba de parar

Código (vb) [Seleccionar] Expandir

Sub Main()
call CreateTimer
Do while 1 = 1
    DoEvents
Loop
End Sub

asi me va bien, el programa no se cierra, solo que consume demasiada memoria, y estuve pensando en alguna otra alternativa para que no se cierre, sin usar formulario y sin gastar mucha memoria, les agradeceria si me ayudaran con este problema, salu2   

bien haber si te sirve un poco mi explicación.

ByVal = Por Valor
ByRef = Por Referencia

Por valor es cuando se llama a la función y al pasar este parametro/variable se copia un nuevo espacio en memoria con el mismo valor de la variable que usaste, asi si modificas dicha variable dentro de la función esta no cambiara su valor original.
Por referencia es cuando se llama a la función pero con el mismo puntero de la variable que usaste, asi cuando modificas la variable dentro de la función esta cambiara su valor en la variable original.

Un ejemplo seria:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim A As String
A = "Hola!!!"
Call MiFuncionPorValor(A)
MsgBox "El contenido de la variable ahora es: " & A
Call MiFuncionPorReferencia(A)
MsgBox "El contenido de la variable ahora es: " & A
End Sub
Public Function MiFuncionPorValor(ByVal MiVariable As String)
    MsgBox "El contenido de la variable es: " & MiVariable, vbInformation
    MiVariable = vbNull
End Function
Public Function MiFuncionPorReferencia(ByRef MiVariable As String)
    MsgBox "El contenido de la variable es: " & MiVariable, vbInformation
    MiVariable = vbNullString
End Function

Código (vb) [Seleccionar] Expandir

Dim Arreglo()             As Integer
Dim N                     As Integer
    ReDim Arreglo(List1.ListCount - 1)
    For N = 0 To List1.ListCount - 1
        Arreglo(N) = List1.List(N)
    Next
    MsgBox Arreglo(0): MsgBox Arreglo(1): MsgBox Arreglo(2)

  gracias !, ya lo habia visto pero mi logica se enredo que no pudo ver la solución    , salu2 

Buenas a todos, eh estado buscando la manera de convertir una variable tipo Long a una DWord, se que con Lset se puede hacer, pero lo que estoy tratando de hacer es llevarlo a otro lenguaje donde no se puede usar Lset, tengo entendido que un DWord tiene 4 bytes al igual que una variable tipo long y por lo tal se puede hacer dicha conversión, agradeceria si pudieran ayudarme, he probado con copymemory pero no me va...  salu2  

si te refieres a que no se te abre el cmd con el comando que quieras prueba con

Código [Seleccionar] Expandir

shell "cmd /k " & MiComando

Esto no quedó muy claro
(En principio sin contar con métodos de compración)
si te refieres a que no se debe usar estructuras de decisión entonces todos perdimos por usar el if  , pero bueno si no es asi se puede usar otra función parecida a la instr 

Código (vb) [Seleccionar] Expandir

Public Function InstrNew2(Start As Integer, Str1 As String, Str2 As String) As Integer
InstrNew2 = Len(Str1) - InStrRev(StrReverse(Str1), StrReverse(Str2), Start - 2) + 1
End Function

http://pastebin.ca/2036231
Aún así no le gana al instr   

lo que te falta es el salto de linea... unos temas abajo preguntaron lo mismo,
http://foro.elhacker.net/programacion_visual_basic/orientacion_caracteres-t315362.0.html

aca el mio 

Código [Seleccionar] Expandir

Public Function InstrNew(ByVal Start As Integer, ByVal Str1 As String, ByVal Str2 As String) As Integer
If Start = 0 Or Str1 = "" Or Str2 = "" Then
    InstrNew = -1
    Exit Function
End If
Do While Start <= Len(Str1)
    If Mid(Str1, Start, Len(Str2)) = Str2 Then
        InstrNew = Start
        Exit Function
    End If
    Start = Start + 1
Loop
End Function

una pregunta... como lo pongo con colores  ?

vbcrlf
vbnewline
chr(10)
chr(13)

Dulces Doevents XDD