me olvide como se hacia >_<

[EpicMetal]

Hola, no me puedo acordar como era para que se active algo al apretar una tecla en particular (o una combinacion de ellas) si alguien me ayuda estaria agradecido.

ah! y tmb como hacer para que el mouse se mueva a las coordenadas que yo le diga (no del from, si no de la pantalla en general).

y ya que estamos... como hacer para que lea la posicion actual (coordenadas) del mouse

[BenRu]

No creo que sea que no te acuerdes, sino que no tienes ni idea de visual basic xD

Lo primero puedes hacerlo con "call"

Código [Seleccionar] Expandir

Private command1_Click()
Call Command2_Click
end sub


Asi al apretar el boton uno, se activara el boton 2.

Lo otro no se muy bien, y puede que te suelte alguna tonteria 

[Kizar]

Coger la posicion de el cursor:

Código [Seleccionar] Expandir


Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim Pt As POINTAPI
GetCursorPos Pt


Poner el cuersor en una posicion:

Código [Seleccionar] Expandir


Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

SetCursorPos 200, 200


Salu2

[NYlOn]

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim Pt As POINTAPI
GetCursorPos Pt

Luego, para usar las variables de las posiciones X e Y tenes que poner:

Código [Seleccionar] Expandir


MsgBox Pt.X & " - " Pt.Y


Saludos.-

[EpicMetal]

No creo que sea que no te acuerdes, sino que no tienes ni idea de visual basic xD

Lo primero puedes hacerlo con "call"

Código [Seleccionar] Expandir

Private command1_Click()
Call Command2_Click
end sub


uh.... no, se como hacer una llamada... lo que quiero es que al apretar por ejemplo la tecla a se activa la funcion... creo que era

Código [Seleccionar] Expandir


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)


tengo que hacer que una tecla fuera del form de presione... habia pensado en un timer que mida todo el tiempo si la tecla esta apretada o no, pero no me acuerdo como hacerlo

Coger la posicion de el cursor:

Código [Seleccionar] Expandir


Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim Pt As POINTAPI
GetCursorPos Pt


para mover a las coordenadas ya esta andando, pero no se a que coordenadas lo quiero mover >_<

no me anda el que lee coordenadas :S me tira error en esta parte:

Código [Seleccionar] Expandir


Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long


me dice, "user-defined type not defined"

[Kizar]

Cambia la linea k te da error por esto:

Código [Seleccionar] Expandir

Private Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Salu2

[NYlOn]

El error te lo da porque te falta declarar el POINTAPI.
El codigo completo seria asi:

Código [Seleccionar] Expandir

Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long


Y despues para poner las coordenadas en un label, por ejemplo, en un timer con intervalo en 10 pones:

Código [Seleccionar] Expandir


Dim Pos As POINTAPI
GetCursorPos Pos

Label1 = Pos.X & " - " & Pos.Y


Bueno espero que no haya errores.


Ah y eso de las teclas lo podes lograr usando la API GetKeyState
Para obtener la pulsacion de la tecla F5 por ejemplo, seria asi:

Código [Seleccionar] Expandir


Private Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
Private Const VK_F5 = &H74

Private Sub Timer1_Timer ()
If GetKeyState(VK_F5) < 0 Then
MsgBox "Se apreto la tecla F5"
eNd if
end sub


Hay muchas formas... espero que te sirva


Saludos.-