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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
GM
programador
programador
 
Сообщения: 1427
Зарегистрирован: 24.06.2003 (Вт) 15:56
Откуда: 194.67.52.100

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

Сообщение GM » 20.11.2003 (Чт) 20:41

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

gaidar
System Debugger
System Debugger
 
Сообщения: 3152
Зарегистрирован: 23.12.2001 (Вс) 13:22

Сообщение gaidar » 20.11.2003 (Чт) 21:35

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

Код: Выделить всё
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
The difficult I’ll do right now. The impossible will take a little while. (c) US engineers in WWII
I don't always know what I'm talking about, but I know I'm right. (c) Muhammad Ali

ShadowCaster
Бывалый
Бывалый
 
Сообщения: 254
Зарегистрирован: 24.05.2002 (Пт) 10:52

Сообщение ShadowCaster » 20.11.2003 (Чт) 23:04

Да нет...

Дано: 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
Обычный пользователь
Обычный пользователь
 
Сообщения: 90
Зарегистрирован: 05.02.2003 (Ср) 15:09
Откуда: Russia

Сообщение Nikita » 26.11.2003 (Ср) 11:55

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

ShadowCaster
Бывалый
Бывалый
 
Сообщения: 254
Зарегистрирован: 24.05.2002 (Пт) 10:52

Сообщение ShadowCaster » 26.11.2003 (Ср) 12:15

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

GM
programador
programador
 
Сообщения: 1427
Зарегистрирован: 24.06.2003 (Вт) 15:56
Откуда: 194.67.52.100

Сообщение GM » 27.11.2003 (Чт) 19:55

Спасибо. Но я уже в нете нашёл.Еще правда не пробывал, но надеюсь что будет работать. :idea:
Код: Выделить всё
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 


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 11

    TopList