Mitt första forums inlägg här på pellesoft! Hej hej!

Till problemet

Jag vill skapa en menu som kommer upp i en RichTextBox när jag skriver t ex Document och sedan en punkt så att man då kan se vad det finns för val att göra för objektet Document(t ex Write).

Problemet är nu inte att skapa själva menyn utan att hitta positionen (X,Y) för markören så jag vet var jag ska rita ut själva menyn.

Om det är någon som vet hur man ser hur långt man scrollat på en RichTextBox så vore det också värdefult.

Tacksam för (snabbt) svar ;) // En Bäver På 56kbps

Hej och välkommen!

Jag hoppas att det här fungerar:

<code>
'Modul
Public Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Type POINTAPI
X As Long
Y As Long
End Type

Public caretPos As POINTAPI


'Formulär
'objMeny är självklart den kontrollen du vill flytta
Call GetCaretPos(caretPos)
objMeny.Left = (caretPos.X * Screen.TwipsPerPixelX) + objMeny.Left
objMeny.Top = (caretPos.Y * Screen.TwipsPerPixelY) + objMeny.Top + 250 'Flytta ner menyn lite
</code>

/Micke

Wunderbar!

Kan inte testa den just nu (jobbet) men den funkar väl troligtvis.

Tackar tackar//Bävern