' CopyStringToClipboard via JavaObject
' Parameter: String
Sub CopyStringToClipboard(s As String)
Dim ta As TextArea
ta.Initialize("ta")
ta.Text = s
ta.SelectAll
Dim jo As JavaObject = ta
jo.RunMethod("copy", Null)
End Sub
' PasteStringFromClipboard via JavaObject
' Return: String
Sub PasteStringFromClipboard As String
Dim ta As TextArea
ta.Initialize("ta")
Dim jo As JavaObject = ta
jo.RunMethod("paste", Null)
ta.SelectAll
Return ta.Text
End Sub