Как заменить данные в буфере обмена на свой текст- Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
Dim iData As New DataObject, iText$ 'MSForms.DataObject
 
iText$ = "Скопировать в буфер обмена"
iData.SetText iText$, 1
iData.PutInClipboard
 
With New DataObject
     .SetText "Заменить данные на этот текст"
     .PutInClipboard
End With

Похожие записи/страницы:

Leave a Comment