Вопросы на засыпку

[Kotofeich]

Помогите кто здесь умный хоть какими-нибудь советами по данным вопросам
1) Как програмно добавлять/удалять пункты меню. Если простыми средствами
VB нельзя, то скажите api-функции.
2) На форме имеется RichTextBox. Как сделать чтобы при нажатии определенной
клавиши, под текстовым курсором становился обьект List. То есть как узнать
координатное положение курсора на экране?
3) Посоветуйте маааааленькую (в пределах 1.5мб), но хорошую
freeware программу установки.
4) Кто-нибудь видел freeware программу типа VbPower-wrap, предназначенную пихать
все библиотеки в экзешник? Или крэк для VbPower-wrap? Или shareware
програмку, но качественную и не очень дорогую?

[Sanya Z]

Насчет первого пункта - насоздавать все возможные пункты меню и "убирать", "создавать" их с помощью .Visible

[SSecurity]

1) Итак, для динамического добавления/удаления элеметов меню .... тебе надо:
- на этапе разработки создать массив элементов меню (если не знаешь как напиши расскажу)
- для скрытия используй метод Hide или visible = false

для непосредственного добавления из программы:

Dim I as Integer
For I = 1 to 5
Load mnuFile(mnuFile.Ubound + 1)
mnuFile(mnuFile.Ubound).Caption = "элемент"+str(I)
next I

[SSecurity]

естественно массив элементов меню mnuFile уже должен существовать хотябы 1 элемент:)


теперь по второму вопросу:
просто вызави функцию GetCursorPos по любому действию которое тебе нравится, но получив координаты посмотри чтобы координаты в пикселях были, И!, размещая свой ListBox в нужное место не забуть из координат курсора вычленить координаты формы .... получишь координаты на форме где должен быть ЛИСТБОКС


вот код описания функции:

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

Public Type POINTAPI
x As Long
y As Long
End Type

[Kotofeich]

Первый ответ еще не проверил, а на второй не совсем то. Мне выдаются координаты курсора мышки, а мне надо координаты курсора которым пишем текст. Такое возможно? А на третий и четвертый вопросы никто ответа не знает?

[SSecurity]

Возможно всё .... вопрос как:) ...
я такого метода не знаю
думаю там тебе прийдется на уровне контрола смотреть .... анализируя получение им фокуса и длину введенного текста.

[Rouch]

Помниться мне была какая-то API функция типа GetRows, которая возвращала строку курсора текстбокса (ну и соответственно GetCol - для столбца). Извини, что не могу примером кинуть (я на работе, а пример дома).

[Rouch]

3) Мне нравиться Ghost Installer.

[tyomitch]

Помниться мне была какая-то API функция типа GetRows, которая возвращала строку курсора текстбокса (ну и соответственно GetCol - для столбца). Извини, что не могу примером кинуть (я на работе, а пример дома).

EM_LINEFROMCHAR и EM_LINEINDEX, только это не то. Они возвращают номер строки/символа, а Kotofeich нужны координаты в пикселах.

[SSecurity]

если я не ошибаюсь есть функция определяющая длину и высоту текста ... но может ошибюсь

[tyomitch]

если я не ошибаюсь есть функция определяющая длину и высоту текста ... но может ошибюсь

Хм, действительно есть - GetTextExtentPoint32, и пара стандартных методов TextWidth/TextHeight. Только мороки с ними будет имхо неоправданно много.

[Egor_moscow]

Народ! Может я очень тупой и этот вопрос не по теме НО объясните дураку что такое "имхо"!!! плз.

зы. извините что не по теме.

[Approximator]

Народ! Может я очень тупой и этот вопрос не по теме НО объясните дураку что такое "имхо"!!! плз.

зы. извините что не по теме.

In My ((very) humble) opinion (по моему ((очень) скромному) мнению) -> Im((v)h)o -> Им((в)х)о.

[tyomitch]

№2, оказывается, делается на удивление просто: http://bbs.vbstreets.ru/viewtopic.php?t=8020

А ещё есть имнсхо - in my not so humble opinion.

[Kotofeich]

Огромное спасибо за помошь. Последний пример как раз то что надо!