Форматирование RTF EM_SETPARAFORMAT

[k123]

Пожалуйста, подскажите почему может не работать
lngRet = SendMessage(hwndr, EM_SETPARAFORMAT, mZERO, myparaf), где myparaf это PARAFORMAT2
Функция возвращает всё время 0?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!?

[Viper]

Пожалуйста, подскажите почему может не работать
lngRet = SendMessage(hwndr, EM_SETPARAFORMAT, mZERO, myparaf), где myparaf это PARAFORMAT2
Функция возвращает всё время 0?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!?

А объявлено как?

[k123]

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

Private Structure PARAFORMAT2
        Dim cbsize As Short
        Dim dwpad As Short
        Dim dwMask As Integer
        Dim wNumbering As Short
        Dim wReserved As Short
        Dim dxStartIndent As Integer
        Dim dxRightIndent As Integer
        Dim dxOffset As Integer
        Dim wAlignment As Short
        Dim cTabCount As Short
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=32)> Dim lTabstops() As Integer
       Dim dySpaceBefore As Integer ' Vertical spacing before para
        Dim dySpaceAfter As Integer
        Dim dyLineSpacing As Integer ' Line spacing depending on Rule
        Dim sStyle As Short
        Dim bLineSpacingRule As Byte
        Dim bOutlineLevel As Byte
        Dim wShadingWeight As Short
        Dim wShadingStyle As Short
        Dim wNumberingStart As Short
        Dim wNumberingStyle As Short
        Dim wNumberingTab As Short
        Dim wBorderSpace As Short
        Dim wBorderWidth As Short
        Dim wBorders As Short
    End Structure

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal uMgs As Integer, ByVal wParam As Integer, ByRef lParam As PARAFORMAT2) As Integer

Далее в подпрограмме

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

Dim myparaf As PARAFORMAT2
Dim lngRet As Integer
    myparaf.cbsize = Len(myparaf)
........................................
lngRet = SendMessage(hwndr, EM_SETPARAFORMAT, mZERO, myparaf)

и всё время возвращает 0 Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!???

[Viper]

Во-первых, пользуйся тэгом CODE, а, во-вторых, а что же ты хочешь получить, передавая незаполненную структуру?

[k123]

Я заполняю, просто не написал

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

Dim myparaf As PARAFORMAT2
       Dim lngRet As Integer
        myparaf.cbsize = Len(myparaf)
        myparaf.dwMask = PFM_ALIGNMENT
        myparaf.wAlignment = PFA_RIGHT
       lngRet = SendMessage(hwndr, EM_SETPARAFORMAT, mZero, myparaf)

[Viper]

А какой номер ошибки возвращается? Используй для этого Marshal.GetLastWin32Error.

[k123]

Ошибка не возвращается.
Функция возвращает 0

[Viper]

Ошибка не возвращается.
Функция возвращает 0

Понятно, что функция возвращает 0, вызови Marshal.GetLastWin32Error и посмотри номер возвращаемой ошибки.

[k123]

Возвращает 6

[Viper]

Если все верно, то это ERROR_INVALID_HANDLE, то есть недопустимый описатель (дескриптор). Что-то не то передается в качестве описателя (дескриптора) окна.

[k123]

А где описания ошибок взять?
А то сейчас мне выдало 87?

[k123]

Я нашёл маленькую прогу с описаниями ошибок.
не могу пока ничего понять????
С некоторыми константами функция работает, а с некоторыми нет.
С EM_SETPARAFORMAT выдаёт 0 и ошибку 126, а с EM_GETOLEINTERFACE выдаёт 1 и ошибку 127, а с EM_FORMATRANGE работает без замечаний.

[Viper]

Во-первых, в состав студии входит утилитка Error Loookup, описание ошибки можно посмотреть с ее помощью. Ну а если у тебя в составе студии установлен C++, то можно поискать файл error.h, где заданы константы ошибок и их описание.

[k123]

Проблема с EM_GETOLEINTERFACE снята.
Я, к сожалению почти ничего не знаю о "маршалинге", а всё дело в нём. Применяя ту или иную константу, иногда, приходится по разному пользоваться "маршалингом". К сожалению в Инете по этому поводу в среде VB.NET примеров и информации мало. Теперь попробую с EM_SETPARAFORMAT и EM_GETPARAFORMAT разобраться.

[Viper]

На основном сайте читай мою статью. Некоторые моменты маршалинга там разъясняются.

[k123]

Спасибо!
Как программно создать таблицу в RTF?
На этот вопрос, тоже, не могу найти , пока, ответа?

[Viper]

Спасибо!
Как программно создать таблицу в RTF?
На этот вопрос, тоже, не могу найти , пока, ответа?

Вариант раз: через объектную модель Word. Там есть коллекция Tables, в ней метод Add (название коллекции и методов стоит таки уточнить). Второй вариант: изучаешь формат RTF-файла и добавлешь таблицу непосредственно в файл.

[k123]

Через Word нельзя, так как я специально ушёл от него, чтобы не быть связанным с чужой программой. Через RTF ты имеешь в виду через свойство .RTF посредством введения управляющих слов?

[Viper]

Через RTF ты имеешь в виду через свойство .RTF посредством введения управляющих слов?

Именно так.

[k123]

Не самый удобный вариант, но делать нечего!!!
Получается, однако придётся много кода написать, чтобы это было удобно