Копировать содержимое Textbox в буфер

[alleonid]

Подскажите пожалуйста команду
"Копировать содержимое Textbox в буфер обмена"?
Плиз.

[uhm]

Textbox.Copy, разве нет?
Только, если я правильно помню, если у тебя выделена часть символов, он скопирует только их. Соотв., нужно еще сначала выделить все.

[alleonid]

Спасибо.
Я попробовал и так и эдак и что то не получается.
Вот что значит отсутствие фундаментального образования...
И в гегле найти почему то не могу
Не могли бы Вы пару строчек кода черкануть между

Private Sub Command1_Click()

End Sub

(форма №7 , Textbox на этой форме №1)

Textbox.Copy, разве нет?
Только, если я правильно помню, если у тебя выделена часть символов, он скопирует только их. Соотв., нужно еще сначала выделить все.

[uhm]

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

    TextBox1.SelStart = 0
    TextBox1.SelLength = TextBox1.TextLength
    TextBox1.Copy


Поправка: textbox копирует только выделенный текст, поэтому перед копированием нужно выделить все (что и делается в первых двух строчках).

[alleonid]

Почему Error '424' ?

[alibek]

А Textbox.Copy это что, какой-то новый метод?

[uhm]

alleonid, у тебя же TextBox называется Text1, а не Textbox1...
alibek, только не говори мне, что в VBшном текстбоксе нет этого метода...

[alleonid]

Да, я обычно выезжаю на автозаполнении а здесь ложаюсь.
Поскажите метод, пожалуйста, я его поищу в Гегле

А Textbox.Copy это что, какой-то новый метод?

[alleonid]

Да я это понял, заменил конечно.
Только все равно, как раз на .Copy выходит сообщение
Method or Data member not found

alleonid, у тебя же TextBox называется Text1, а не Textbox1...
alibek, только не говори мне, что в VBшном текстбоксе нет этого метода...

[uhm]

Значит, нету... Все, я ушел в секцию по VBA и больше оттуда не высовываюсь...

Тогда тебе поможет

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

Clipboard.Settext Text1.Text


[Booozer]

Более полный пример. Сначала проверяет активный элемент на текстовое поле и если это оно то выделяет весь текст и копирует в буфер выделенную часть.

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


Private Sub Command1_Click ()            'Пр.5
   Clipboard.Clear
   If TypeOf Screen.ActiveControl Is TextBox Then
      Screen.ActiveControl.SelStart = 0
      Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)
      Clipboard.SetText Screen.ActiveControl.SelText
   End If
End Sub


[Booozer]

В моем примере правда одна лажа. При нажатии на Cjmmand1 активным элементом становится кнопка. Так что надо брать не активный элемент, а конкретный.

[coderx]

Более полный пример. Сначала проверяет активный элемент на текстовое поле и если это оно то выделяет весь текст и копирует в буфер выделенную часть.

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

Private Sub Command1_Click()                                'Пр.5
   Clipboard.Clear
   If TypeOf Screen.ActiveControl Is TextBox Then
      Screen.ActiveControl.SelStart = 0
      Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)
      Clipboard.SetText Screen.ActiveControl.SelText 
  End If
End Sub

Booozer, для твоей коды не надо будеть расположить в процедуре Command1_Click()'а. Он может исползоват тогда, когда C API функциям определяеш нажатию клавишу и можеш коппировать таким методом.
Если выше указанное Форма №1 и Форма №7 находиться в одной программе тогда можеш использовать этого кода:

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

Clipboard.Settext Text1.Text

Никакое выделение, никакое активность здесь ненадо!
Но один прывичка: надо ссылаться на Форму на который нужен:

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

Clipboard.SetText Form7.Text1.Text

[alleonid]

Благодарю Вас всех.
Просто спасибо.