Mensajes

Espero que esta funcion te sirva:

Código [Seleccionar] Expandir


Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_CURRENT_CONFIG = &H80000005

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long


Public Function RegComprobarClave(Key As String, Subkey As String) As Boolean
    Dim regRes As Long
    Key = LLave(Key)
    RegOpenKey Key, Subkey, regRes
    If regRes = 0 Then
        RegComprobarClave = False
    Else
        RegComprobarClave = True
    End If
    RegCloseKey regRes
End Function


Para usarla pone:

Código [Seleccionar] Expandir


MsgBox RegComprobarClave(HKEY_LOCAL_MACHINE, "Software\Microsoft")


Si existe la clave Microsoft te devuelve TRUE.

Saludos.-

Tenes que transformar la base de datos al formato de Office 97.
Esto lo haces llendo a Herramientas>Utilidades da la base de datos>Convertir base de datos>Convertir a formato de Acces 97. Guardas el archivo y lo conectas con el control Data.
Espero que te sirva, saludos.-

Esa linea esta en el evento Load del Form?

Sep! Esta en load form!
influye en algo ? 

Cambialo de lugar. Podes ponerlo en un timer (con un intervalo de unos 10 mls) que se corte cuando termine. Algo asi:

Código [Seleccionar] Expandir


Private sub Timer1_Timer()
   FileCopy blablabla....
   Timer1.Enabled = False
End Sub


Fijat si funciona. Saludos.-

Esa linea esta en el evento Load del Form?

Modificarse a si mismo no es posible; no podes modificar un archivo que esta abierto. Lo mejor es agregar una clave al registro.

Saludos.-

Usa un shape cuadrado (en este caso se llama SH) y en la propiedad mousemove del picturebox pone lo siguiente:

Código [Seleccionar] Expandir


    sh.Left = X - sh.Width \ 2
    sh.Top = Y - sh.Height \ 2


Saludos.-

el código de Robokop esta muy bien pero se le debería poner un Sleep sino se llega a petar el programa.

Con un DoEvents adentro del blucle se arregla

Saludos.-

 

y por que no lo haces con el codigo que te dejo Jareth??
no tienes que usar bucles, y en el caso de que sea un listbox con muchos items, tardaria muchisimo mas el metodo que estas usando...

Lo que podes hacer es abrir el archivo de forma binaria y obtener su codigo. Una vez echo esto encriptas el codigo y lo volcas como un archivo nuevo.
Tenes que tener en cuenta que el archivo va a quedar inutilizable. Para volverlo a su estado original tenes que hacer lo mismo pero descifrando el codigo.

Saludos.-

Hola, primero... gracias por tu respuesta.. y segundo..
yo preguntaba porque una vez vi un programa que creaba exe...
no me acuerdo cual era pero por ejemlo vos activavas cheks box y se agregaban cosas, le dasbas a crear y se creaba un exe con lo que habias puesto...

Bueno... de tdas formas... gracias...

Salu2

Ranslsad

Busca informacion sobre como escribir y leer en archivos de forma binaria.