Mensajes

Si la parte central de la cadena (la que quieres rescatar) nunca va a tener espacios podes usar replace

cadena = "[          aqui.texto.centrado.a.remplazar         ]"
MsgBox cadena
cadena = Replace(cadena, " ", "")
MsgBox cadena

TRIM

[Leandro = Maestro]

Leandro = Maestro, estoy seguro que eso va a servir, con WM_CLOSE parece contundente, cierra forzado y ni el window seven te pregunta ni "a"  (con SC_CLOSE funciona tambien)

Call EndTask(Hwn, 0, &H10)

'WM_CLOSE = &H10
'SC_CLOSE = &HF060&

Gracias por los aportes (ya perdí la cuenta)



EDIT:
Karcrack : solo con SendMessage (por lo menos yo) nunca pude cerrar forzado


saludos

Era mas que nada para decirte que funciona bien en windows seven pero si vas a usar ese code agregá un array de Texbox o por lo menos un Texbox1 con la propiedad index = 0 (cero).

Saludos

Hola, para las "Marcas" (checkbox) tambien podes usar SendMessage con BM_GETCHECK para saber si está tildado, el retorno sería (0 si no está tildado, 1 tildado o  2 si está gris.
Y con  SendMessage  y BM_CLICK le mandas el click si hace falta. (buscá ejemplos)

retorno= SendMessage(Hndl, BM_GETCHECK, 0, 0)
If retorno= 0 Then Call SendMessage(Hndl, BM_CLICK, 0, 0)

Saludos

WinExec, CmdLine, CmdShow, suena interesante

gracias por el aporte, saludos

Esto es buenisimo, al final se lo terminaste dando servido... ya no esta de moda leer?

Tampoco pretendo hacer una discución, pero todos no aprendemos de la misma forma ni con la "velocidad", yo necesito ver un ejemplo para a "mi tiempo" entenderlo (a veces), y encima buscando en internet soy malisimo.
Por otro lado tampoco veo mal darsela "servida", siempre y cuando solo nos lleve unos minutos, lo que si veo mal es hacer copy-paste con un code "servido", sin tratar de entenderlo.

Saludos

Bueno, Seba, entonces lo descartamos hasta estar seguros, estoy probando el W7,pero en cuanto pueda lo pruebo en XP

Saludos 

Hola, probé con un ejemplo sencillo en W7 y sí funcionó, me imagino que en vista tambien tendría que andar (Tené en cuenta que no uso antivirus)

Código [Seleccionar] Expandir


Private Sub Form_Load()   
    'Apenas carga el programa, carga los datos   
    Cargar_De_Registro   
 
    Me.Caption = " ejemplo de GetSetting y SaveSetting" 
 
End Sub 
 
'Lee los datos del registro con la función GetSetting _   
recorre los textbox y le asigna el valor a cada uno de ellos   
Sub Cargar_De_Registro()   
    Dim i As Integer 
    For i = 0 To Text1.Count - 1   
        Text1(i).Text = GetSetting(App.EXEName, _   
                                   "TextBox", _   
                                   "Text" & i)   
       
    Next 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer)   
Grabar_En_Registro   
End Sub 
 
 
 
Private Sub Grabar_En_Registro()   
    Dim i As Integer 
    For i = 0 To Text1.Count - 1   
       
        Call SaveSetting(App.EXEName, "TextBox", _   
                         "Text" & i, Text1(i).Text)   
       
    Next 
End Sub 




Saludos

Hola, probá con este code, (creo que me lo pasó  Leandro), con XP, si mal no recuerdo funcionaba bien , con windows seven no.

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = 2 Then
        MsgBox "se esta apagando"
    End If
End Sub


Saludos