Получить текст из буфера обмена- Visual Basic(Бейсик)

1
2
3
4
5
6
On Error Resume Next
  
Dim iData As New DataObject, iText$ 'MSForms.DataObject
 
iData.GetFromClipboard
iText$ = iData.GetText(1)

Leave a Comment