ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужен совет по комбо
11 сообщений из 11, страница 1 из 1
Нужен совет по комбо
    #33738216
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
Хочу попробовать, реализовать открывающийся список наденных элементов
при вводе начальных букв слова в текстовом поле, как реализовано в VB при написании кодов типа Auto List members. Без API не обойтись но как заставить комбо раскрываться там где установлен курсор. если юзать комбо то придется показывать или скрывать контрол взависимости от набора клашишь Ctrl+Space, как передать x,y координаты курсора комбо, что бы комбо автоматом выводил список по линии курсора.
Возможно ли это реализовать и как?
Заранее спасибо
...
Рейтинг: 0 / 0
19.05.2006, 12:26
| Ответить | Цитировать | Написать  
Нужен совет по комбо
    #33738244
Andres 1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andres 1
Участник
что-то здесь http://www.vbcity.com/forums/topic.asp?tid=5568
К сожалению, vb6 уже нет :), так что проверить не могу.
...
Рейтинг: 0 / 0
19.05.2006, 12:32
| Ответить | Цитировать | Написать  
Нужен совет по комбо
    #33738308
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
Andres 1что-то здесь http://www.vbcity.com/forums/topic.asp?tid=5568
К сожалению, vb6 уже нет :), так что проверить не могу.
спасибо за ссылку но не смог скачать класс придуманный челом (форум требует регится), пробовал за регится пока нет результатов.
...
Рейтинг: 0 / 0
19.05.2006, 12:48
| Ответить | Цитировать | Написать  
Нужен совет по комбо
    #33738370
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
А это не подойдет?
Код: plaintext
1.
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
...
Рейтинг: 0 / 0
19.05.2006, 13:02
| Ответить | Цитировать | Написать  
Нужен совет по комбо
    #33738380
Andres 1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andres 1
Участник
MelkiadesА это не подойдет?
Код: plaintext
1.
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

Это же курсор мыши? Не подойдет. Если человек делает свой Intellisense - мышь может быть вообще на другом рабочем столе - на втором мониторе, а комбобокс, например, вываливается по Ctrl+Space.
...
Рейтинг: 0 / 0
19.05.2006, 13:04
| Ответить | Цитировать | Написать  
Нужен совет по комбо
    #33738392
Andres 1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andres 1
Участник
Это может помочь: http://www.devx.com/vb2themax/Tip/19269
Потом нужно будет поиграть с API функцией GetTextMetrics чтобы перевести строки/символы в координаты.
...
Рейтинг: 0 / 0
19.05.2006, 13:09
| Ответить | Цитировать | Написать  
Нужен совет по комбо
    #33738442
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Странно. Попробовал и никакой проблемы не увидел.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeySpace And Shift = vbCtrlMask Then
        Combo1.Move Text1.Left + Me.TextWidth(Text1.Text), Text1.Top + Me.TextHeight(Text1.Text)
        Combo1.Visible = True
    Else
        Combo1.Visible = False
    End If
End Sub
...
Рейтинг: 0 / 0
19.05.2006, 13:23
| Ответить | Цитировать | Написать  
Нужен совет по комбо
    #33738454
Andres 1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andres 1
Участник
MelkiadesСтранно. Попробовал и никакой проблемы не увидел.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeySpace And Shift = vbCtrlMask Then
        Combo1.Move Text1.Left + Me.TextWidth(Text1.Text), Text1.Top + Me.TextHeight(Text1.Text)
        Combo1.Visible = True
    Else
        Combo1.Visible = False
    End If
End Sub

И в самом деле, полезные функции. Прямо хоть снова на Vb6 перебирайся :)
...
Рейтинг: 0 / 0
19.05.2006, 13:25
| Ответить | Цитировать | Написать  
Нужен совет по комбо
    #33738492
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Andres 1 MelkiadesСтранно. Попробовал и никакой проблемы не увидел.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeySpace And Shift = vbCtrlMask Then
        Combo1.Move Text1.Left + Me.TextWidth(Text1.Text), Text1.Top + Me.TextHeight(Text1.Text)
        Combo1.Visible = True
    Else
        Combo1.Visible = False
    End If
End Sub

И в самом деле, полезные функции. Прямо хоть снова на Vb6 перебирайся :)
А что, в аксессе такого нет?
...
Рейтинг: 0 / 0
19.05.2006, 13:31
| Ответить | Цитировать | Написать  
Нужен совет по комбо
    #33738537
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
Спасибо отличное решение.
Me.TextWidth как я понимаю просчитывает длину текста
не множко не корректо выводит при моногострочном режиме, но можно подрегулировать
век живи век учись!!!
Еще вопрос как урезать комбо что бы показывать только лист ?
...
Рейтинг: 0 / 0
19.05.2006, 13:38
| Ответить | Цитировать | Написать  
Нужен совет по комбо
    #33738635
Andres 1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andres 1
Участник
Melkiades
И в самом деле, полезные функции. Прямо хоть снова на Vb6 перебирайся :)
А что, в аксессе такого нет?[/quot]
В аксессе, кажется, нет. А вообще-то перебираюсь на C#. Пока - очень неплохо. Но очень уж много всего понапихано во Framework :)
...
Рейтинг: 0 / 0
19.05.2006, 14:00
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужен совет по комбо
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33738392&tid=2165838]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 154ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 252ms
total:  483ms
созд. / загр.: 483ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]