Копирование из Label
Скажите пожалуйста, как можно сделать так, чтобы текст из Label можно было выделять и копировать ?
А просто помести на форму TextBox и сделай его невидимым. При клике на Label сделай так, чтобы TextBox принимал размеры и текст Label, а потом делай его видимым.
После редактирования текста Label.Caption=TextBoxName.Text , затем скрывай TextBox и Label делай видимым.
Удачи!
После редактирования текста Label.Caption=TextBoxName.Text , затем скрывай TextBox и Label делай видимым.
Удачи!
Предлагаю поместить на форму TextBox, но не делать его невидимым.
Вместо этого надо только установить ему такие свойства, чтобы он был похож на label: без границы, стиль = flat, цвет фона = control.
Вместо этого надо только установить ему такие свойства, чтобы он был похож на label: без границы, стиль = flat, цвет фона = control.
На счет выделять - это вряд ли получится :)
А остальное - вполне:
Private Sub Label1_Click()
Clipboard.Clear
Clipboard.SetText Label1.Caption
MsgBox Clipboard.GetText, , "Text in clipboard"
End Sub
А остальное - вполне:
Private Sub Label1_Click()
Clipboard.Clear
Clipboard.SetText Label1.Caption
MsgBox Clipboard.GetText, , "Text in clipboard"
End Sub