трабл rich text box...

[vitaly]

Помогите пожалуйста!
я с vb недавно...
использую rich text box понятно для чего..
для вставки в него текста из буфера хоче делать так

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


rtftext.text=clipboard.gettext


выдает ошибку:

invalid qualifier

помогите пжалста...

[Amed]

У меня не выдаёт

[vvs_adm]

vitaly
Что-то я поизвращался немного, но у меня ошибку вызвать не получилось в такой строке... где ошибку-то выдает?

[Amed]

Что в этот момент в буфере?

[vvs_adm]

Amed Без разницы, что я только в буфер не пхал, он просто "" выдаст и все

[vitaly]

как ошибку подсвечивает
...
rtftext.text
...
Имя проверял совпадает....
Просьба кому не лень...
Посмотрите весь код..
Просьба матом не ругаться когда его увидите.

[vitaly]

и ещё...забыл...
Там этой строки нет...
она должна быть в месте

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


Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
    On Error Resume Next
    Select Case Button.Key
        Case "New"
            LoadNewDoc
        Case "Open"
            mnuFileOpen_Click
        Case "Save"
            mnuFileSave_Click
        Case "Print"
            mnuFilePrint_Click
        Case "Cut"
            'ToDo: Add 'Cut' button code.
           
        Case "Copy"
            Clipboard.SetText ActiveForm.rtfText.SelText
        Case "Paste"
            ' ВОТ ТУТ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        Case "Bold"
            ActiveForm.rtfText.SelBold = Not ActiveForm.rtfText.SelBold
            Button.Value = IIf(ActiveForm.rtfText.SelBold, tbrPressed, tbrUnpressed)
        Case "Italic"
            ActiveForm.rtfText.SelItalic = Not ActiveForm.rtfText.SelItalic
            Button.Value = IIf(ActiveForm.rtfText.SelItalic, tbrPressed, tbrUnpressed)
        Case "Underline"
            ActiveForm.rtfText.SelUnderline = Not ActiveForm.rtfText.SelUnderline
            Button.Value = IIf(ActiveForm.rtfText.SelUnderline, tbrPressed, tbrUnpressed)
        Case "Align Left"
            ActiveForm.rtfText.SelAlignment = rtfLeft
        Case "Center"
            ActiveForm.rtfText.SelAlignment = rtfCenter
        Case "Align Right"
            ActiveForm.rtfText.SelAlignment = rtfRight
    End Select



Почему её там нет?
убрал что б не портило остальное..

[BV]

Почему нет очистки буфера до записи?

[vitaly]

ПАСИБА ВСЕМ! ЗАРАБОТАЛО!

to bv:
потому, что даже если там что-то есть то ин-фа перезапишеться.
зн. нафика себя переутруждать?

[vitaly]

новый trouble...
пытаюсь изменить скролбар ричтекстбокса,
вот так

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

ActiveForm.rtfText.DisableNoScroll = False


так бейсик пишет, что свойство только для чтения...
Можно ли как небудь это исправить?

[vitaly]

неужели никто не знает?

[GSerg]

Как исправлять свойства только для чтения?
Не знаем.

[vitaly]

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

и неужели я не могу изменить его програмно т.е. в коде?

[GSerg]

Внимательно прочитай ещё раз сказанное тобой только что.
Повторяй процедуру прочтения, последовательно проходя через стадии , , и .

[echo]

vitaly

мдя...
ну нельзя его поменять! его можно ТОЛЬКО прочитать

[alibek]

Повторяй процедуру прочтения, последовательно проходя через стадии , , и .

Блеск
Буду копирайтить

[vitaly]

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

[Ennor]

Ищи, уже было. Если вкратце, то в блокноте его текстовое поле заново пересоздается с нуля при смене этой опции. Ты можешь класть на форму 2 RTB, у одного из них опция включена, у другого выключена. Ну или постигать премудрости CreateWindowEx() и делать так, как это делается в блокноте.

[vitaly]

Пасиба...
буду искать..

[vitaly]

дошел я вот до чего...

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


Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
  (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   ByVal lParam As Long) As Long
Private Const EM_SETTARGETDEVICE = 1096

Private Sub Form_Load()
     SendMessageLong RichTextBox1.hwnd, EM_SETTARGETDEVICE, 0, 1
End Sub


скажите а как отменить содеянное?

[Ennor]

В жизни не встречал более бестолково описанного сообщения. Ты уверен, что оно делает именно то, что тебе нужно?

Да, кстати, а что именно тебе нужно? Ибо что-то мне подсказывает, что нужного тебе эффекта можно добиться, поигравшись со свойством RightMargin и убрав нафиг этот извращенческий DisableNoScroll.

[vitaly]

Спасибо...Сам нашел выход...каким-то левым способом..но еффект дает нужный..

[CORBA]

чтобы сделать программно отмену воспользуйся след. кодом:

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



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 WM_UNDO = &H304

Private Sub Command1_Click()
SendMessage Text1.hWnd, WM_UNDO, 0, 0
End Sub


[vitaly]

to corba.

Спасиб!