iOS Question [Solved] Set/Get Text to Clipboard

[aeric]

I tried the following but it is not working.

Sub SetTextToClipboard (Text As String)
    Dim Pasteboard As NativeObject
    Dim general As NativeObject = Pasteboard.Initialize("UIPasteboard").GetField("generalPasteboard")
    general.RunMethod("setString:", Array As Object(Text))
End Sub

Sub GetTextFromClipboard As String
    Dim Pasteboard As NativeObject
    Dim general As NativeObject = Pasteboard.Initialize("UIPasteboard").GetField("generalPasteboard")
    If general.IsInitialized Then
        Dim blnHasString As Boolean = general.GetField("hasStrings")
        If blnHasString Then
            Dim value As Object = general.RunMethod("string", Null)
            Return value
        End If
    End If
    Return ""
End Sub

 

[Alexander Stolte]

Why you are not using the iPhone lib.?

Dim c As Clipboard
c.StringItem = "Test"
Log(c.StringItem)

 

[aeric]

Why you are not using the iPhone lib.?

Dim c As Clipboard
c.StringItem = "Test"
Log(c.StringItem)

Thanks. I didn't know it exists.

 

[Alexander Stolte]

I didn't know it exists.

I found it using the B4I filter and "clipboard" as a search term in the 4th place in the following thread:

copy to clipboard b4i??

hi, is it possible to copy an text to clipboard?? thanx

www.b4x.com

Many thanks! Have a nice day