Sub Button1_Click
Dim Jo As JavaObject
Jo.InitializeContext
Dim Cs As CSBuilder
Cs.Initialize.Append(GetCharSequenceFromEditText(EditText2))
Dim Html As String
Html = Jo.RunMethod("toHtml",Array(GetCharSequenceFromEditText(EditText2)))
EditText1.Text = Jo.RunMethod("fromHtml",Array(Html))
End Sub
Sub GetCharSequenceFromEditText(et As EditText) As Object
Dim jo As JavaObject = et
Dim Test As Object
Test = jo.RunMethod("getText", Null)
Return jo.RunMethod("getText", Null)
End Sub
#If Java
import android.widget.TextView;
import android.text.Html;
import android.text.Spannable;
import android.text.Spanned;
public static String toHtml(Spannable sourceText) {
String genHtm = Html.toHtml(sourceText);
return genHtm;
}
public static Spanned fromHtml(String htmlString) {
Spanned returnView = Html.fromHtml(htmlString);
return returnView;
}
#End If