Mensajes

la verdad no se que  podria ser, a mi me funciona bien ¿Podrias colocal un screen?

Saludos.

mmm, talvez te sirva esto:

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Sub Mouse Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Private Const IzquierdoAbajo = &H2
Private Const IzquierdoArriba = &H4
Private Const Presionado = -32767

Private Type POINTAPI
   X As Long
   Y As Long
End Type

Dim Coor As POINTAPI

Private Sub CmdIniciar_Click()
   Me.Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
   GetCursorPos Coor
   Me.lBLx = Coor.X
   Me.lBLy = Coor.Y
   
  If GetAsyncKeyState(vbKeyNumpad1) = Presionado Then
   Me.LblGX = Coor.X
   Me.LblGY = Coor.Y
  ElseIf GetAsyncKeyState(vbKeyNumpad2) = Presionado Then
   Me.Timer2.Enabled = False
  End If
End Sub

Private Sub Timer2_Timer()
   SetCursorPos Me.LblGX, Me.LblGY
   
   Mouse IzquierdoAbajo, 0, 0, 0, 0
   Mouse IzquierdoArriba, 0, 0, 0, 0
End Sub


solo coloca el cursor en la parte que quieres clicar y presiona en el teclado numerico 1 (guardara las cordenadas) y luego clica el boton inisiar y empezara a clicar. Para terminar presiona el 2 (los puedes cambiar)

Saludos.

Intenta asi:

Código (vb) [Seleccionar] Expandir


form1.doom


asi llamas a una variable publica que esta en otro form.

Saludos.

¿tenes la BD lista?
¿los botones son para moverte por los registros, buscar, eliminar?
¿Tenes el ODBC?

Aca hay varios

Saludos.

¿con ADO?
¿Que botones?

Saludos.

te explicare lo que dijo BlackZeroX▓▓▒▒░░:

Una variable estatica, no pierde su valor cuando se declara de manera que dentro de tu timer declara una variable estatica que utilizaras como acumulador:

coloca esto en el timer:

Código (vb) [Seleccionar] Expandir


static C as integer
PictureBox1.Image.Save("c:\capturador de pantalla\imagen" & c &  ".jpg,")
c = c + 1


De este modo cada vez que se realize la captura, se guardara imagen(valor de c) y como abajo sumamos 1 a c te guardara las imagenes asi:

imagen0
imagen1
...

Saludos.

te explicare. esos codes lo que  hacen es pasar el caracter a ASCII (que es un numero y con los numro se puden hacer muchas operaciones)  la funcion para ver el codigo ASCII de un caracter es Asc() y la contraria (ver el caracter de un codigo ASCII) Chr().

Sabiendo esto, un algoritmo lo que hace es recorrer caracter por caracter, el caracter que coje, lo convierte a ASCII y hace una operacion con ese  numero, y luego lo pasa de nuevo a carcter. osea que si tenemos el siguiente code:

Código (vb) [Seleccionar] Expandir


For i = 1 To Len(Datos)
  cifrar = cifrar & Chr(Asc(Mid(Datos, i, 1)) +1)
Next


lo que hacemos es recorrer cada caracter, pasarlo a ASCII, suma 1 al valor ASCII y lo convierte  de nuevo a caracter.

Ahora, para descifrar es la operacion contraria:

Código (vb) [Seleccionar] Expandir


For i = 1 To Len(Datos)
  Descifrar = Descifrar & Chr(Asc(Mid(Datos, i, 1)) -1)
Next


Esta no es la forma de encriptacion mas elaborada   pero, solo es para que entiendas mas o menos como funciona esto.

Espero hallas entendido.

Saludos.

Creo que podes utilizar variables de entorno WinDir y seria algo asi:

Código (vb) [Seleccionar] Expandir


Dim SO as string
SO = Environ("Windir")


y te devolvera la unidad + \WINDOWS

Saludos.

ps, por hay dicen que quien controla la informacion tiene el poder

Saludos.

En Medellin

Parque Explora
Parque de los deseos
Planetario
Parque de los Pies Descalzos
Museo de Antioquia y Plazoleta Botero
Metro
Jardin Botanico
Unidad deportiva Atanasio Girardot

Que disfrutes tu viaje.

Saludos.