Два простых вопроса: RTF и MouseDown

[Ruslan Demidow]

У меня два вопроса к уважаемым посетителям форума:
1. Есть RichTextBox. В нём текст. Можно ли добавить этот текст в документ Word (дописать)? Т.е. сохранить не в новый файл, а добавить в существующий. Использовать объект Word.Application не предлагать.

2. Заметил такую странность событие Toolbar_MouseDown происходит и при нажатии на саму панель и при нажатии на кнопку на панели. Хотя для кнопок есть отдельное событие Toolbar1_ButtonClick. Как бы мне их разграничить? А то я хочу сделать перетаскивание тулбара левой кнопкой мыши за пустое, не занятое кнопками, место панели. Это без проблем. Но тогда при нажатии на любую кнопку на панели она у меня только перетаскивается, до нажатия на кнопку уже не доходит.
Спасибо за внимание.

[Zer]

Дык при нажатии на кнопку возвращается её индекс. Если значение не сответствует какой-либо кнопке, то ты ткнул на саму панель.

[tyomitch]

У меня два вопроса к уважаемым посетителям форума:
1. Есть RichTextBox. В нём текст. Можно ли добавить этот текст в документ Word (дописать)? Т.е. сохранить не в новый файл, а добавить в существующий. Использовать объект Word.Application не предлагать.

В .doc - едва ли.
В .rtf - гипотетически возможно, например, загрузить существующий документ в невидимый RTB, дописать ему в конец то, что нужно, и всё сохранить.

[Ruslan Demidow]

У меня два вопроса к уважаемым посетителям форума:
1. Есть RichTextBox. В нём текст. Можно ли добавить этот текст в документ Word (дописать)? Т.е. сохранить не в новый файл, а добавить в существующий. Использовать объект Word.Application не предлагать.

В .doc - едва ли.
В .rtf - гипотетически возможно, например, загрузить существующий документ в невидимый RTB, дописать ему в конец то, что нужно, и всё сохранить.

Ясно. Так и сделаю. Но видимо будет медленно, если сохранять таким образом несколько сообщений подряд.

[Ruslan Demidow]

Дык при нажатии на кнопку возвращается её индекс. Если значение не сответствует какой-либо кнопке, то ты ткнул на саму панель.

Ок. Попробую.

[tyomitch]

Ясно. Так и сделаю. Но видимо будет медленно, если сохранять таким образом несколько сообщений подряд.

Сорри, а зачем .RTF для плейнтекстовых сообщений?
Я думал, у тебя RTB используется только для более красивого отображения?

В принципе, формат .RTF не такой уж тайный, и если скорость критична, можно собственный RTF-writer написать. Я свой писал - ничего сложного, просто скучно

[Ruslan Demidow]

Ясно. Так и сделаю. Но видимо будет медленно, если сохранять таким образом несколько сообщений подряд.

Сорри, а зачем .RTF для плейнтекстовых сообщений?

Да я вьювер фидошных баз пишу (в формате FIPS).
Ну и впихиваю в него всякую всячину: отображение квот разными цветами и шрифтами, смайлы и т.п.

Я думал, у тебя RTB используется только для более красивого отображения?

Так и есть. Просто пользователи просят сделать возможность дописывать сообщения со всем форматированием в документ RTF.

В принципе, формат .RTF не такой уж тайный, и если скорость критична, можно собственный RTF-writer написать. Я свой писал - ничего сложного, просто скучно

Я подумал: сообщение нужно загнать в RTF, раскрасить, применить форматирование, вставить смайлы...
Не, пожалуй не буду писать. Хотят в RTF - пусть ждут...
Сделаю пока возможность дописывать по одному сообщению - текущему, которое отображается.

[Ruslan Demidow]

Дык при нажатии на кнопку возвращается её индекс. Если значение не сответствует какой-либо кнопке, то ты ткнул на саму панель.

Не прокатило - во-первых обработка нажатия кнопок у меня в ButtonClick - щелчок по панели туда никак не попадает.
А в MouseDown обрабатывается любой щелчок на панели, независимо от того где: на кнопке или на панели.

[tyomitch]

Ruslan, лови:

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

Option Explicit

Private Type POINTAPI
    x As Long
    y As Long
End Type
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
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hwndParent As Long, ByVal hwndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
Private Const WM_USER = &H400&
Private Const TB_HITTEST = WM_USER + 69&

Private Sub Toolbar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim pt As POINTAPI, btn As Long
With pt
    .x = x / Screen.TwipsPerPixelX
    .y = y / Screen.TwipsPerPixelY
End With
btn = SendMessage(FindWindowEx(Toolbar1.hWnd, 0, "msvb_lib_toolbar", vbNullString), TB_HITTEST, 0, pt)
If btn < 0 Then
    Debug.Print "Не попали в кнопку"
Else
    Debug.Print "Попали в кнопку " & btn
End If
End Sub


[Ruslan Demidow]

Ruslan, лови:

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

Option Explicit

Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
==== Сгрызено моей собакой ====
    Debug.Print "Попали в кнопку " & btn
End If
End Sub


Тёмыч, спасибо! Уже в который раз выручаешь.