@max_crt

Хотел получить начальную и конечную позицию выделенного в текстбоксе
текста. Написал процедуру..
Значение переменной b (позиция в контроле следующего за выделенным
текстом символа выдает всегда правильно), а вот значение переменной a
всегда null. В хелпе(Win32 из Borland C++) сказано, что первый параметр
(в данном случае переменная а) принимает начальную позицию выделенного
текста, и может! принимать значение null. Ну а у меня почему-то всегда
получается null(начинаю выделенние и с первого символа в контроле и
с 10 и с какого угодно, результат null). Не подскажете, так можно ли как-
то получить начльную позицию выделения или 'может быть null' у них
означает, что 'всегда будет null'?

0

@genius_at_play

попробуй объявить SendMessage как
SendMessage(ByVal hWnd, ByVal Msg, ByRef wParam, ByRef lParam)
штука вся в (ByRef wParam, ByRef lParam), для EM_GETSEL туда надо передавать указатели

0

Comanche

http://www.vbstreets.ru/default.asp?page=library&id=gaidarfaq#GetSEText

@max_crt

1. Попытался объявить Sendmesage как подсказал genius_at_play, а именно:

Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA'
(ByVal hWnd, ByVal Msg, ByRef wParam, ByRef lParam) As Long

но по событию Form_Click() (запускается на выполенение sendmessage) выдается
ошибка 49 'Плохое Dll соглашение вызова'. В чем ошибка?

2. В примере из статьи Comanche:

Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_GETSEL = &HB0
Dim begintext As Long
Dim curpos As Long
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call SendMessage(Text1.hwnd, EM_GETSEL, begintext, curpos)
docursora = Mid(Text1.Text, begintext + 1, curpos - begintext)
Print 'Текст до курсора: ', docursora
End Sub

процедура делает все правильно, она получает текст, начиная с первого символа в текстбоксе и по символ,
за которым следует курсор, а это символ который стоит в конце выделенного текста, а мне нужна именно позиция
первого выделенного символа.

0

Comanche

По-моему, ты слишком дословно последовал совету genius_at_play.
Не надо было убирать 'As <тип_данных>' в объявлении аргументов. Просто надо было заменить ByVal на ByRef.

@max_crt

ща попробую

0

@max_crt

Большое спасибо Comanche и genius_at_play через byref получил то что хотел.

0