Modified source engine (2017) developed by valve and leaked in 2020. Not for commercial purporses
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

33 lines
2.0 KiB

5 years ago
<EFBFBD><EFBFBD>Imports EnvDTE
Imports System.Diagnostics
'
' This module contains macros that only work in vs2005 or later.
'
Public Module Valve2005
Class ClipboardCopier
Sub DoCopy()
Dim t As System.Threading.Thread = New System.Threading.Thread(AddressOf MyThreadFunction)
t.SetApartmentState(System.Threading.ApartmentState.STA)
t.Start()
t.Join() ' Wait for the thread to finish.
End Sub
Sub MyThreadFunction()
Dim x As String
x = System.Windows.Forms.Clipboard.GetText()
System.Windows.Forms.Clipboard.SetText(x)
End Sub
End Class
Sub CopyToClipboardAsPlainText()
' First have the app copy stuff to the clipboard.
DTE.ExecuteCommand("Edit.Copy")
' Now convert the clipboard contents to plain text.
' Must do this inside a thread with a state that .net likes.
Dim cc As New ClipboardCopier
cc.DoCopy()
End Sub
End Module