si ahora entiendo,proba con GetCaretPos....te tira la cordenada dentro del textbox...

Option Explicit
Private Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
    X As Long
    Y As Long
End Type
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim XPos As Long
Dim YPos As Long
XPos = GetTCursX
YPos = GetTCursY
Me.Caption = "X: " & XPos & " Y: " & YPos
End Sub
 
Public Function GetTCursX() As Long
    Dim pt As POINTAPI
    GetCaretPos pt
    GetTCursX = pt.X
End Function
 
Public Function GetTCursY() As Long
    Dim pt As POINTAPI
    GetCaretPos pt
    GetTCursY = pt.Y
End Function
 

saludos.

Hola,probate este ejemplo,usa la api SendMessageLong y las constantes EM_LINEFROMCHAR,EM_GETLINECOUNT...y algunas mas para saber la posicion en el textbox...

posicion cursor textbox

saludos.

Hola, excelente Leandro  ,esto esta muy bueno,viste se pueden hacer un monton de cosas con estas api's onlines ya sea de google o de cualquier otro,tienen tantas opciones que no da para leerlo todo,por lo menos yo no podria es una perdida de tiempo bastante importante leer todo,pero ir haciendo miniaplicaciones de a poco asi mostrando funciones esta bien...

saludos.

bueno gracias a todos y a hannah por tomarse tiempo de modificar ya gregarle cosas,que la verdad se le pueden agregar mil cosas y medio como que no da gana  ...y si gulabyte esto es algo que se me ocurrio a mi,empeze a leer sobre estas api's y se me ocurrio...dentro de poco vas a ver como usar la api de Youtube, en mi actualizacion de el programa que hice para bajar videos de youtube voy a usar la api de Youtube para hacer algunas cositas ...capas que mañana lo suba...

saludos.

Hola,si vos queres restringir el cursor a un determinado control podes usar esto...es del api-guide:

Private Type RECT
    left As Long
    top As Long
    right As Long
    bottom As Long
End Type
Private Type POINT
    x As Long
    y As Long
End Type
Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT)
Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT)
Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long)
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Command1.Caption = "Limit Cursor Movement"
    Command2.Caption = "Release Limit"
End Sub
Private Sub Command1_Click()
    'Limits the Cursor movement to within the form.
    Dim client As RECT
    Dim upperleft As POINT
    'Get information about our wndow
    GetClientRect Picture1.hWnd, client
    upperleft.x = client.left
    upperleft.y = client.top
    'Convert window coördinates to screen coördinates
    ClientToScreen Picture1.hWnd, upperleft
    'move our rectangle
    OffsetRect client, upperleft.x, upperleft.y
    'limit the cursor movement
    ClipCursor client
End Sub
Private Sub Command2_Click()
    'Releases the cursor limits
    ClipCursor ByVal 0&
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'Releases the cursor limits
    ClipCursor ByVal 0&
End Sub
 
 

cambia Me por el control, que quieras...que tenga handle..

saludos.

reviviste un post de 1 año 

este es un post de hace 5 meses  , aca me parece no se trata el tema de VBS ,lo tendrias que hacer me parece en el foro de Scripting...

saludos.

Hola,mira este post:

Codigo de pagina web

saludos.

bueno estaba al pedo y te hice un ejemplo nuevo a ver si lo captas  ,bueno lo primero que vi fue que estas trabajando con el ADODC que usa como metodo ADO y al mismo tiempo estabas usando DAO... por eso te estaba tirando error,y otra cosa NUNCA conectes los controles en el panel de propiedades porque la ruta que pones es de tu computadora,pero si la llevas a otra computadora al abrir el programa tira errores la ruta de la base,como me paso a mi,yo no tengo tu ruta de la base en mi pc...para corregir eso tenes que siempre conectarlo desde codigo usando la propiedad App.Path y decirle que la base esta en la carpeta del proyecto asi App.Path & "\base.mdb" y no con una ruta relativa "c:\carpeta\base.mbd"....te comente algunas lineas..podes hacer todo en un formulario,no hace faltan 2...

Descargar: Ejemplo ADODC

saludos.

si esta bien ,salvo que esta con ADO y el maneja DAO y me inmagino se le va a hacer un quilombo en la cabeza