[Aporte] EnvironEx

Iniciado por raul338, 18 Septiembre 2010, 01:43 AM

0 Miembros y 3 Visitantes están viendo este tema.

Dessa

#20
La constante pàra la carpeta de sistema seria &H25, lee la lista de Raul338 o el link de Xkis o todo el hilo   ;)








Adrian Desanti

raul338

Cita de: BlackZeroX
Código (vb) [Seleccionar]

EnvironEx = Left$(str_Return$, InStr(1, str_Return$, Chr(0)) - 1)   '   //  Resto 1 para quitar el ultimo Chr(0).

Que eso no lo hace el Trim$ ? Lo de quitar el Chr(0) y lo que sigue ?
Lo de hacer una clase para esto seria algo exagerado, tal vez si incluimos otros metodos se aplicaria




Cita de: Dessa
Si no utiliza el indicador CSIDL_FLAG_CREATE:
si la carpeta no existe, la función de SHGetFolder devuelve S_FALSE y nada se coloca en el búfer de cadena.
Si.. habia leido eso, el problema es que nunca encontre las constantes de S_FALSE, E_FAIL y demas por lo que no los puse jeje




Cita de: Petro_Boca en 19 Septiembre 2010, 04:09 AM
Cita de: xkiz en 19 Septiembre 2010, 04:07 AM
creo que CSIDL_SYSTEM

http://msdn.microsoft.com/en-us/library/bb762494%28v=VS.85%29.aspx

sisi yase, pero me devuelve numeros :/

que raro que te devuelva numeros, generalmente eso pasa cuando pedis Internet (IE), Panel de control, red, impresoras, etc

BlackZeroX

#22
.

Segun lo siguiente deviste haber usado RTrim$() en lugar de Trim$()

Aqui Todos los Trim()...

Function Trim$(String As String) As String
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin espacios iniciales y finales

Function Trim(String)
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin espacios iniciales y finales

Function RTrim$(String As String) As String
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin espacios finales

Function RTrim(String)
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin espacios finales

Function LTrim$(String As String) As String
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin los espacios iniciales

Function LTrim(String)
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin los espacios iniciales

* En Resumen solo quita los ESPACIOS no los Caracteres NULOS

Código (vb) [Seleccionar]


Option Explicit
Private Sub Form_Load()
Dim Str_Data$
Dim Str_Aux$
   Str_Data = Space$(200)
   Mid$(Str_Data$, 1, 11) = "BlackZeroX" & Chr(0)
MsgBox Strings.Len(Str_Data$)
   Str_Aux$ = Strings.Trim$(Str_Data$)
MsgBox "caracter Nulo = " & Conversion.CBool(InStr(1, Str_Aux$, Chr(0), vbBinaryCompare) > 0) & vbCr & Strings.Len(Str_Aux$) & vbCr & Str_Aux$ & Chr(34)
   Str_Aux$ = Strings.Left$(Str_Data$, Strings.InStr(1, Str_Data$, Chr(0)) - 1)
MsgBox "caracter Nulo = " & Conversion.CBool(InStr(1, Str_Aux$, Chr(0), vbBinaryCompare) > 0) & vbCr & Strings.Len(Str_Aux$) & vbCr & Str_Aux$ & Chr(34)
End Sub



Dulce Infierno Lunar!¡.
The Dark Shadow is my passion.

BlackZeroX

#23
.
Perdon no lei esto:

Cita de: raul338 en 19 Septiembre 2010, 05:26 AM

Lo de hacer una clase para esto seria algo exagerado, tal vez si incluimos otros metodos se aplicaria


Lo mensionaba para aprovechar el evento initializze y asi crear una ventana con CreateWindowExy el evento finalize para destruir dicha ventana, así jalarias un Hwnd VALIDO en su paramtro, aun que el Hwnd de otra ventana como el del explorer (El escritorio) me parece que tambien sería valido, aun mejor no nos complicamos y nos quedamos con &H0 te parece xP.

Dulces Lunas!¡.
The Dark Shadow is my passion.

raul338

Cita de: BlackZeroX en 19 Septiembre 2010, 06:04 AMun mejor no nos complicamos y nos quedamos con &H0 te parece xP.

Me parece la mejor opcion :xD