Mensajes

[r]

Do While (Timer - snTimer) < (Milliseconds / 1000)*

xD

un saludo.

deshabilita el ctrl alt supr  .... creo que esto lo deshabilita en winXP

Código [Seleccionar] Expandir

Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"


un saludo.

efectivamente he cometido 2 errores magistrales, esa linea va despues de abrir el archivoy se debe serrar despues del loop o no habra len de ningun arhivo ya que estará cerrado .. duh... en definitiva queda así

Código [Seleccionar] Expandir

Dim i%, hFile%, a$
hFile = FreeFile
    For i = 0 To 93
         Open "C:\a.txt" For Input As #hFile
         Do While Not EOF(hFile)
         Line Input #hFile, a
         Text1(i).Text = Text1(i).Text & a
         Loop
         Close #hFile
    Next i


un saludo.


EDITO: lo he probado y corre correctamente, pero, lo he hecho coin 5 textboxes y con un texto de 30 kb y creeme que va muy mal, es muy lento.... asi que hazlo de esta manera que es la mejor para este caso

Código [Seleccionar] Expandir

Dim i%, hFile%, a$
hFile = FreeFile
    For i = 0 To 93
         Open "D:\a.txt" For Input As #hFile
         a = Input(LOF(hFile), #hFile)
         Text1(i).Text = a
         Close #hFile
    Next i

la anterior es para cuando necesites leer necesariamente linea por linea

un saludo.

pfff las mates (calculo)  r000000lz, ademas, Anhur se refiere a cosas de verdad productivas no simplemente capturar datos mediante fakes, intenta crear aplicaciones que busquen soluciones y acrecenten tu conocimiento..


un saludo.

pfff pues postee en el otro hilo antes de leer este :S , muchas gracias xavierote


un saludo.

creo que necesariamente te vendria bien que leyeras algo sobre los controles y sus propiedades, asi no te enredas tanto GreenDeviL 


un saludo.

estoy con reydelmundo11 ... si pudieces ponerlo en otro hilo algo más ordenado o subirlo a alguna parte se te agradeceria ya que se ha dañado el hilo :\



un saludo.

Código [Seleccionar] Expandir

Dim i%, hFile% , a$
hFile = Freefile
    For i = 0 To 93
        Do While Not EOF(hFile)       
         Open "C:\a.txt" For Input As #hFile
         Line Input #hFile, a
         Text(i).Text = Text(i).text & a
         Close #hFile
        Loop
    Next i



un saludo.

una pequeña correccion ala que ha puesto Slasher, no es &HO para octales sino &O .... eso es xD, que se suele pasar


un saludo.

Todas las dependenciasde ocx se puede dejar a un lado usando correctamente toda la variedad de API's que windows tra en si, sabiendolas utilizar cada cosa que se quiera hacer sobre este OS será tecnicamente posible con el VB, asi que simplemente quien sepa programar en VB no dependerá de ninguna Dll y hará lo que quiera


un saludo.