Список функций

[GM]

Как сделать чтобы при нажатие CTRL-SPACE возле курсора в Textbox возникал список функций(как в VB).Я выделил возле курсора потому, что именно позицию возле курсора в пикселях я не могу ни как реализовать.

[gaidar]

На vbstreets пример валяется. А вообще:

Код: Выделить всё

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

[ShadowCaster]

Да нет...

Дано: List1 - ListBox, Text1 - TextBox; что для чего - очевидно
List1.Visible = False

В событии нажатия клавиши Text1'а ловишь свою комбинацию и делаешь так:

...
Printer.Font = Text1.Font
w = TextWidth(Mid(Text1, 1, Text1.SelStart))
List1.Top = Text1.Top
List1.Left = Text1.Left + w+2
List1.Visible = True
...

Что-то типа этого...

[Nikita]

и list - список функций - будет обрезаться краем формы если не поместится

[ShadowCaster]

Вообще-то у ListBox есть такая замечательная проперть как .Height

[GM]

Спасибо. Но я уже в нете нашёл.Еще правда не пробывал, но надеюсь что будет работать.

Код: Выделить всё

Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As Long

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